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."