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)))))