[elephant-cvs] CVS update: elephant/src/sleepycat.lisp

[Robert L. Read]

Update of /project/elephant/cvsroot/elephant/src
In directory common-lisp.net:/tmp/cvs-serv21687/src

Modified Files:
      Tag: SQL-BACK-END
	sleepycat.lisp 
Log Message:
This function must be available at compile-time

Date: Thu Nov  3 18:54:33 2005
Author: rread

Index: elephant/src/sleepycat.lisp
diff -u elephant/src/sleepycat.lisp:1.13.2.2 elephant/src/sleepycat.lisp:1.13.2.3
--- elephant/src/sleepycat.lisp:1.13.2.2	Wed Nov  2 20:56:39 2005
+++ elephant/src/sleepycat.lisp	Thu Nov  3 18:54:33 2005
@@ -831,10 +831,12 @@
 ;; in that the function copy-from-system-area disappeared.
 ;; This code is an attempt to allow compilation under bothe SBCL 8 and SBCL 9.
 ;; Thanks to Juho Snellman for this idiom.
-(defun new-style-copy-p ()
-  (if (find-symbol "COPY-UB8-FROM-SYSTEM-AREA" "SB-KERNEL") 
-      '(:and) 
-      '(:or)))
+(eval-when (:compile-toplevel)
+  (defun new-style-copy-p ()
+    (if (find-symbol "COPY-UB8-FROM-SYSTEM-AREA" "SB-KERNEL") 
+	'(:and) 
+	'(:or)))
+  )
 
 (defun buffer-read-ucs1-string (bs byte-length)
   "Read a UCS1 string."