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