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

Modified Files: memutil.lisp Log Message: Fixes for lispworks in tests & deadlock detect; fixes for openmcl in pointer manipulation

--- /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp 2007/03/21 14:29:31 1.27 +++ /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp 2007/04/29 02:10:55 1.28 @@ -471,12 +471,12 @@ (simple-string (loop for i fixnum from 0 below length do - (setf (deref-array dest 'array-or-pointer-char (+ i dest-offset)) + (setf (deref-array dest '(:array :unsigned-char) (+ i dest-offset)) (char-code (schar src (+ i src-offset)))))) (string (loop for i fixnum from 0 below length do - (setf (deref-array dest 'array-or-pointer-char (+ i dest-offset)) + (setf (deref-array dest '(:array :unsigned-char) (+ i dest-offset)) (char-code (char src (+ i src-offset))))))))