From 57772e2bd3c817f82648863a1dec2dd692e37f98 Mon Sep 17 00:00:00 2001
From: nik gaffney <nik@fo.am>
Date: Sun, 6 Mar 2005 21:35:33 +0800
Subject: [PATCH] oscar

darcs-hash:20050306133533-2648a-78c19a39c75c8a5f14315c01425b7bc241c940cb.gz
---
 osc.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/osc.lisp b/osc.lisp
index 7200a66..c4b3bd5 100644
--- a/osc.lisp
+++ b/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)