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