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