<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.3.2">
</HEAD>
<BODY>
Thanks! I'm glad it's working for you.<BR>
<BR>
If you have any suspicions that it is not working, you may wish to run the full test suite,<BR>
BerkeleyDB-tests.lisp.<BR>
<BR>
On Tue, 2006-02-14 at 13:56 +0100, Tayssir John Gabbour wrote:
<BLOCKQUOTE TYPE=CITE>
<PRE>
<FONT COLOR="#000000">Good morning,</FONT>
<FONT COLOR="#000000">Ok, patch attached to this email. Not stress tested, but I can certainly</FONT>
<FONT COLOR="#000000">open a store, put stuff in it, close it, then find it again upon reopening.</FONT>
<FONT COLOR="#000000">Patch is against 0.5.0, and I'm now running SBCL 0.99.</FONT>
<FONT COLOR="#000000">Tayssir</FONT>
</PRE>
<TABLE CELLSPACING="0" CELLPADDING="0" BORDER="1">
<TR>
<TD>
<FONT SIZE="2">plain text document attachment (elephant.patch)</FONT>
</TD>
</TR>
</TABLE>
<PRE>
<FONT COLOR="#000000">Common subdirectories: /Users/blah/Desktop/elephant/src/CVS and ../src/CVS</FONT>
<FONT COLOR="#000000">diff -U 5 /Users/blah/Desktop/elephant/src/bdb-enable.lisp ../src/bdb-enable.lisp</FONT>
<FONT COLOR="#000000">--- /Users/blah/Desktop/elephant/src/bdb-enable.lisp 2006-02-06 01:30:54.000000000 +0100</FONT>
<FONT COLOR="#000000">+++ ../src/bdb-enable.lisp 2006-02-14 13:40:19.000000000 +0100</FONT>
<FONT COLOR="#000000">@@ -63,11 +63,11 @@</FONT>
<FONT COLOR="#000000"> ;; Sleepycat: this works on linux</FONT>
<FONT COLOR="#000000"> #+linux</FONT>
<FONT COLOR="#000000"> ;; "/db/ben/lisp/db43/lib/libdb.so" </FONT>
<FONT COLOR="#000000"> "/usr/local/BerkeleyDB.4.3/lib/libdb-4.3.so"</FONT>
<FONT COLOR="#000000"> ;; this works on FreeBSD</FONT>
<FONT COLOR="#000000">- #+(and (or bsd freebsd) (not darwin macosx))</FONT>
<FONT COLOR="#000000">+ #+(and (or bsd freebsd) (not darwin) (not macosx))</FONT>
<FONT COLOR="#000000"> "/usr/local/lib/db43/libdb.so" </FONT>
<FONT COLOR="#000000"> #+(or darwin macosx)</FONT>
<FONT COLOR="#000000"> ;; for Fink (OS X) -- but I will assume Linux more common...</FONT>
<FONT COLOR="#000000"> ;; "/sw/lib/libdb-4.3.dylib"</FONT>
<FONT COLOR="#000000"> ;; a possible manual install</FONT>
<FONT COLOR="#000000">diff -U 5 /Users/blah/Desktop/elephant/src/serializer.lisp ../src/serializer.lisp</FONT>
<FONT COLOR="#000000">--- /Users/blah/Desktop/elephant/src/serializer.lisp 2006-02-06 01:30:54.000000000 +0100</FONT>
<FONT COLOR="#000000">+++ ../src/serializer.lisp 2006-02-14 13:46:00.000000000 +0100</FONT>
<FONT COLOR="#000000">@@ -464,11 +464,11 @@</FONT>
<FONT COLOR="#000000"> </FONT>
<FONT COLOR="#000000"> (eval-when (:compile-toplevel :load-toplevel)</FONT>
<FONT COLOR="#000000"> (asdf:operate 'asdf:load-op :cl-base64)</FONT>
<FONT COLOR="#000000"> )</FONT>
<FONT COLOR="#000000">-(defun ser-deser-equal (x1 &keys sc)</FONT>
<FONT COLOR="#000000">+(defun ser-deser-equal (x1 &key sc)</FONT>
<FONT COLOR="#000000"> (let* (</FONT>
<FONT COLOR="#000000"> (x1s (serialize-to-base64-string x1))</FONT>
<FONT COLOR="#000000"> (x1prime (deserialize-from-base64-string x1s :sc sc)))</FONT>
<FONT COLOR="#000000"> (assert (equal x1 x1prime))</FONT>
<FONT COLOR="#000000"> (equal x1 x1prime)))</FONT>
<FONT COLOR="#000000">@@ -480,11 +480,11 @@</FONT>
<FONT COLOR="#000000"> (sleepycat::buffer-read-byte-vector </FONT>
<FONT COLOR="#000000"> (serialize x out-buf))))</FONT>
<FONT COLOR="#000000"> )</FONT>
<FONT COLOR="#000000"> </FONT>
<FONT COLOR="#000000">-(defun deserialize-from-base64-string (x &keys sc)</FONT>
<FONT COLOR="#000000">+(defun deserialize-from-base64-string (x &key sc)</FONT>
<FONT COLOR="#000000"> (with-buffer-streams (other)</FONT>
<FONT COLOR="#000000"> (deserialize </FONT>
<FONT COLOR="#000000"> (sleepycat::buffer-write-byte-vector </FONT>
<FONT COLOR="#000000"> other </FONT>
<FONT COLOR="#000000"> (cl-base64::base64-string-to-usb8-array x))</FONT>
<FONT COLOR="#000000">_______________________________________________</FONT>
<FONT COLOR="#000000">elephant-devel site list</FONT>
<FONT COLOR="#000000"><A HREF="mailto:elephant-devel@common-lisp.net">elephant-devel@common-lisp.net</A></FONT>
<FONT COLOR="#000000"><A HREF="http://common-lisp.net/mailman/listinfo/elephant-devel">http://common-lisp.net/mailman/listinfo/elephant-devel</A></FONT>
</PRE>
</BLOCKQUOTE>
</BODY>
</HTML>