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

Modified Files: memutil.lisp Log Message: Fixes for Win32 allegro build; lispwork builds but fails to run; new test of :index class keyword which fails

--- /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp 2007/02/26 19:12:19 1.24 +++ /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp 2007/03/03 17:24:59 1.25 @@ -828,12 +828,13 @@ ;; This code is an attempt to allow compilation under bothe SBCL 8 and SBCL 9. ;; Thanks to Juho Snellman for this idiom. (eval-when (:compile-toplevel) - #+(and sbcl sb-unicode) (defun new-style-copy-p () + #+(and sbcl sb-unicode) (if (find-symbol "COPY-UB8-FROM-SYSTEM-AREA" "SB-KERNEL") '(:and) - '(:or))) - ) + '(:or)) + #-(and sbcl sb-unicode) + t))

(defun buffer-read-ucs1-string (bs byte-length) "Read a UCS1 string."