[elephant-cvs] CVS elephant/src/memutil

[ieslick]

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

Modified Files:
	memutil.lisp 
Log Message:
Documentation, optimizations, deadlock process, etc

--- /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp	2007/02/08 23:07:19	1.22
+++ /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp	2007/02/14 04:36:13	1.23
@@ -709,6 +709,7 @@
   (let* ((position (buffer-stream-position bs))
 	 (size (buffer-stream-size bs))
 	 (vlen (- size position)))
+    (assert (< (+ offset size) (length arry)))
     (if (>= vlen 0)
 	(dotimes (i vlen arry)
 	  (setf (aref arry (+ i offset))