oscar
darcs-hash:20050306133533-2648a-78c19a39c75c8a5f14315c01425b7bc241c940cb.gz
This commit is contained in:
parent
271545fbad
commit
57772e2bd3
1 changed files with 1 additions and 1 deletions
2
osc.lisp
2
osc.lisp
|
@ -204,7 +204,7 @@
|
|||
#-(or sbcl cmucl) (error "cant decode floats using this implementation"))
|
||||
|
||||
(defun decode-int32 (s)
|
||||
(declare (type (simple-array integer) s))
|
||||
(declare (type (simple-array (unsigned-byte 8) s)))
|
||||
"4 byte > 32 bit int > two's compliment (in network byte order)"
|
||||
(let ((i (+ (ash (elt s 0) 24)
|
||||
(ash (elt s 1) 16)
|
||||
|
|
Loading…
Reference in a new issue