[elephant-cvs] CVS elephant/src

[rread]

Update of /project/elephant/cvsroot/elephant/src
In directory common-lisp:/tmp/cvs-serv373

Modified Files:
	bdb-enable.lisp indexing.lisp serializer.lisp 
Log Message:
Thanks to Tayssir John Gabour for these bug fixes.


--- /project/elephant/cvsroot/elephant/src/bdb-enable.lisp	2006/02/04 22:25:09	1.6
+++ /project/elephant/cvsroot/elephant/src/bdb-enable.lisp	2006/02/14 15:25:10	1.7
@@ -65,7 +65,7 @@
 ;;       "/db/ben/lisp/db43/lib/libdb.so" 
        "/usr/local/BerkeleyDB.4.3/lib/libdb-4.3.so"
        ;; this works on FreeBSD
-       #+(and (or bsd freebsd) (not darwin macosx))
+       #+(and (or bsd freebsd) (not darwin) (not macosx))
        "/usr/local/lib/db43/libdb.so" 
        #+(or darwin macosx)
        ;; for Fink (OS X) -- but I will assume Linux more common...
--- /project/elephant/cvsroot/elephant/src/indexing.lisp	2006/02/08 03:23:12	1.3
+++ /project/elephant/cvsroot/elephant/src/indexing.lisp	2006/02/14 15:25:10	1.4
@@ -450,8 +450,8 @@
 ;;
 
 ;; DEFINE THE SYNCHRONIZATION RULES
+(eval-when (:compile-toplevel :load-toplevel)
 
-(eval-when (:compile-toplevel)
   (defclass synch-rule ()
     ((lhs :accessor synch-rule-lhs :initarg :lhs :initform nil)
      (rhs :accessor synch-rule-rhs :initarg :rhs :initform nil)))
--- /project/elephant/cvsroot/elephant/src/serializer.lisp	2006/02/04 22:25:09	1.13
+++ /project/elephant/cvsroot/elephant/src/serializer.lisp	2006/02/14 15:25:10	1.14
@@ -466,7 +466,7 @@
 (eval-when (:compile-toplevel :load-toplevel)
   (asdf:operate 'asdf:load-op :cl-base64)
 )
-(defun ser-deser-equal (x1 &keys sc)
+(defun ser-deser-equal (x1 &key sc)
   (let* (
 	 (x1s (serialize-to-base64-string x1))
 	 (x1prime (deserialize-from-base64-string x1s :sc sc)))
@@ -482,7 +482,7 @@
   )
 
 
-(defun deserialize-from-base64-string (x &keys sc)
+(defun deserialize-from-base64-string (x &key sc)
   (with-buffer-streams (other)
     (deserialize 
      (sleepycat::buffer-write-byte-vector