[elephant-cvs] CVS elephant/src/memutil

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/memutil
In directory clnet:/tmp/cvs-serv6719/src/memutil

Modified Files:
	memutil.lisp 
Log Message:
Package name fixes caught by SBCL tests

--- /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp	2007/02/01 04:03:28	1.16
+++ /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp	2007/02/01 04:37:25	1.17
@@ -45,8 +45,12 @@
 	   #:buffer-write-double #:buffer-write-string 
            #:buffer-write-int32 #:buffer-write-uint32
            #:buffer-write-int64 #:buffer-write-uint64
+           #:buffer-write-int #:buffer-write-uint
 
-	   #:buffer-read-byte #:buffer-read-fixnum32 #:buffer-read-fixnum64
+	   #:buffer-read-byte #:buffer-read-fixnum 
+	   #:buffer-read-fixnum32 
+	   #:buffer-read-fixnum64
+	   #:buffer-read-int #:buffer-read-uint
 	   #:buffer-read-int32 #:buffer-read-uint32
 	   #:buffer-read-int64 #:buffer-read-uint64
 	   #:buffer-read-float #:buffer-read-double 
@@ -728,7 +732,7 @@
   (declare (type buffer-stream bs))
   (let ((position (buffer-stream-position bs)))
     (setf (buffer-stream-position bs) (+ position 4))
-    (the fixnum (read-int (buffer-stream-buffer bs) position))))
+    (the fixnum (read-int32 (buffer-stream-buffer bs) position))))
 
 (defun buffer-read-int32 (bs)
   "Read a 32-bit signed integer."