zzkt/osc
1
0
Fork 0
Code Issues 7 Pull requests Projects Releases Activity Actions

oscar

Browse source 
darcs-hash:20050306133533-2648a-78c19a39c75c8a5f14315c01425b7bc241c940cb.gz
This commit is contained in:
nik gaffney 2005-03-06 21:35:33 +08:00
parent 271545fbad
commit 57772e2bd3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
osc.lisp
View file

@ -204,7 +204,7 @@
#-(or sbcl cmucl) (error "cant decode floats using this implementation")) #-(or sbcl cmucl) (error "cant decode floats using this implementation"))
(defun decode-int32 (s) (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)" "4 byte > 32 bit int > two's compliment (in network byte order)"
(let ((i (+ (ash (elt s 0) 24) (let ((i (+ (ash (elt s 0) 24)
(ash (elt s 1) 16) (ash (elt s 1) 16)