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

[blee at common-lisp.net]

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

Modified Files:
	sleepycat.lisp 
Log Message:
better features flags
eval-when madness

Date: Sun Sep 19 19:51:56 2004
Author: blee

Index: elephant/src/sleepycat.lisp
diff -u elephant/src/sleepycat.lisp:1.10 elephant/src/sleepycat.lisp:1.11
--- elephant/src/sleepycat.lisp:1.10	Thu Sep 16 06:22:41 2004
+++ elephant/src/sleepycat.lisp	Sun Sep 19 19:51:56 2004
@@ -134,7 +134,7 @@
        #+linux
        "/usr/local/BerkeleyDB.4.2/lib/libdb.so" 
        ;; this works on FreeBSD
-       #+(or bsd freebsd)
+       #+(and (or bsd freebsd) (not darwin))
        "/usr/local/lib/db42/libdb.so" 
        #+darwin
        "/usr/local/BerkeleyDB.4.2/lib/libdb.dylib" 
@@ -570,7 +570,7 @@
 ;;;
 ;;; buffer-stream functions
 
-(eval-when (:compile-toplevel)
+(eval-when (:compile-toplevel :load-toplevel)
   (defun process-struct-slot-defs (slot-defs struct)
     (loop for def in slot-defs
 	  collect (list (first def) (list (second def) struct)))))