[elephant-cvs] CVS elephant/src/elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/elephant
In directory clnet:/tmp/cvs-serv29823/src/elephant

Modified Files:
	serializer2.lisp 
Log Message:
Support sqlite3 in delete script; fix allegro %bignum conditional bug

--- /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp	2007/02/05 16:09:25	1.16
+++ /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp	2007/02/05 17:22:57	1.17
@@ -44,7 +44,7 @@
 	   (inline serialize deserialize
 		   slots-and-values
 		   deserialize-bignum
-		   %bignum-ref)))
+		   #+(or sbcl cmu) %bignum-ref)))
 
 (uffi:def-type foreign-char :char)
 
@@ -332,9 +332,9 @@
        ;; there is an OpenMCL function which should work 
        ;; and non-cons
        do
-	 #+(or cmu sbcl allegro)
+	 #+(or cmu sbcl)
 	 (buffer-write-uint (%bignum-ref num i) bs)
-	 #+(or lispworks openmcl)
+	 #+(or lispworks openmcl allegro)
 	 (buffer-write-uint (ldb (byte 32 (* 32 i)) num) bs)
 	 )))