[elephant-cvs] CVS elephant/src/memutil

[ieslick]

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

Modified Files:
	memutil.lisp 
Log Message:
Small changes for lispworks; mainly fixing pointer types

--- /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp	2007/03/03 17:24:59	1.25
+++ /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp	2007/03/16 14:44:46	1.26
@@ -79,8 +79,8 @@
   (def-type pointer-int (* :int))
   (def-type pointer-void :pointer-void)
   (def-foreign-type array-or-pointer-char
-      #+(or allegro lispworks) (:array :unsigned-char)
-      #+(or cmu sbcl scl openmcl) (* :unsigned-char))
+      #+(or allegro) (:array :unsigned-char)
+      #+(or cmu sbcl scl openmcl lispworks) (* :unsigned-char))
   (def-type array-or-pointer-char array-or-pointer-char)
 
   ;; Standard utility for copying two foreign buffers --