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))