[elephant-cvs] CVS elephant/src/memutil

[ieslick]

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