[elephant-cvs] CVS elephant/src/memutil

[ieslick]

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