<!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>
Wonderful! You have found a bug in my documentation. I will fix it today.<BR>
<BR>
<BR>
<BR>
<BR>
On Fri, 2006-01-06 at 01:59 -0500, Waldo Rubinstein wrote:
<BLOCKQUOTE TYPE=CITE>
<PRE>
<FONT COLOR="#000000">After reading your script, I tried it again in OpenMCL and it worked. </FONT>
<FONT COLOR="#000000">See below (but please see further below):</FONT>
<FONT COLOR="#000000">Welcome to OpenMCL Version 1.0 (DarwinPPC32)!</FONT>
<FONT COLOR="#000000">? (in-package :ele)</FONT>
<FONT COLOR="#000000">#<Package "ELEPHANT"></FONT>
<FONT COLOR="#000000">? (open-store "testdb")</FONT>
<FONT COLOR="#000000">#<BDB-STORE-CONTROLLER #x89CF54E></FONT>
<FONT COLOR="#000000">? (setq bt (make-btree))</FONT>
<FONT COLOR="#000000">#<BDB-BTREE #x89CD506></FONT>
<FONT COLOR="#000000">? (add-to-root "EDI-834-TAPES" bt)</FONT>
<FONT COLOR="#000000">#<BDB-BTREE #x89CD506></FONT>
<FONT COLOR="#000000">? (close-store)</FONT>
<FONT COLOR="#000000">NIL</FONT>
<FONT COLOR="#000000">? (setq bt nil)</FONT>
<FONT COLOR="#000000">NIL</FONT>
<FONT COLOR="#000000">? (open-store "testdb")</FONT>
<FONT COLOR="#000000">#<BDB-STORE-CONTROLLER #x89CC55E></FONT>
<FONT COLOR="#000000">? (setq bt (get-from-root "EDI-834-TAPES"))</FONT>
<FONT COLOR="#000000">#<BDB-BTREE #x89CBADE></FONT>
<FONT COLOR="#000000">? (get-value 1234 bt)</FONT>
<FONT COLOR="#000000">NIL</FONT>
<FONT COLOR="#000000">NIL</FONT>
<FONT COLOR="#000000">? (setf (get-value 1234 bt) "My test")</FONT>
<FONT COLOR="#000000">;Compiler warnings :</FONT>
<FONT COLOR="#000000">; Undeclared free variable BT, in an anonymous lambda form.</FONT>
<FONT COLOR="#000000">"My test"</FONT>
<FONT COLOR="#000000">? (close-store)</FONT>
<FONT COLOR="#000000">NIL</FONT>
<FONT COLOR="#000000">? (setq bt nil)</FONT>
<FONT COLOR="#000000">NIL</FONT>
<FONT COLOR="#000000">? (open-store "testdb")</FONT>
<FONT COLOR="#000000">#<BDB-STORE-CONTROLLER #x89C9E36></FONT>
<FONT COLOR="#000000">? (get-value 1234 (get-from-root "EDI-834-TAPES"))</FONT>
<FONT COLOR="#000000">"My test"</FONT>
<FONT COLOR="#000000">T</FONT>
<FONT COLOR="#000000">? (close-store)</FONT>
<FONT COLOR="#000000">NIL</FONT>
<FONT COLOR="#000000">However, when I try it using the format used in the Tutorial, it </FONT>
<FONT COLOR="#000000">fails. See below:</FONT>
<FONT COLOR="#000000">? (open-store "testdb")</FONT>
<FONT COLOR="#000000">#<BDB-STORE-CONTROLLER #x89C8DEE></FONT>
<FONT COLOR="#000000">? (setq bt (make-instance 'btree))</FONT>
<FONT COLOR="#000000">#<BTREE #x89C851E></FONT>
<FONT COLOR="#000000">? (add-to-root "EDI-834-TAPES" bt)</FONT>
<FONT COLOR="#000000">#<BTREE #x89C851E></FONT>
<FONT COLOR="#000000">? (close-store)</FONT>
<FONT COLOR="#000000">NIL</FONT>
<FONT COLOR="#000000">? (setq bt nil)</FONT>
<FONT COLOR="#000000">NIL</FONT>
<FONT COLOR="#000000">? (open-store "testdb")</FONT>
<FONT COLOR="#000000">#<BDB-STORE-CONTROLLER #x89C7BAE></FONT>
<FONT COLOR="#000000">? (setq bt (get-from-root "EDI-834-TAPES"))</FONT>
<FONT COLOR="#000000">#<BTREE #x89C7256></FONT>
<FONT COLOR="#000000">? (get-value 1234 bt)</FONT>
<FONT COLOR="#000000"> > Error in process listener(1): No applicable method for args:</FONT>
<FONT COLOR="#000000"> > (1234 #<BTREE #x89C7256>)</FONT>
<FONT COLOR="#000000"> > to #<STANDARD-GENERIC-FUNCTION GET- </FONT>
<FONT COLOR="#000000">VALUE #x84146AE></FONT>
<FONT COLOR="#000000"> > While executing: #<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE- </FONT>
<FONT COLOR="#000000">METHOD (T)></FONT>
<FONT COLOR="#000000"> > Type :POP to abort.</FONT>
<FONT COLOR="#000000">Type :? for other options.</FONT>
<FONT COLOR="#000000">1 ></FONT>
<FONT COLOR="#000000">The main difference is the way the BTree class is created. In the </FONT>
<FONT COLOR="#000000">tutorial, it says to use (make-instance 'btree). In your script, </FONT>
<FONT COLOR="#000000">which worked, you suggest to use (make-btree). Apparently, these are </FONT>
<FONT COLOR="#000000">two different CLOS classes. I believe that the tutorial is then </FONT>
<FONT COLOR="#000000">somehow inaccurate.</FONT>
<FONT COLOR="#000000">Thanks,</FONT>
<FONT COLOR="#000000">Waldo</FONT>
<FONT COLOR="#000000">On Jan 5, 2006, at 9:40 PM, Robert L. Read wrote:</FONT>
<FONT COLOR="#000000">> This works for me under SBCL; please see the attached typescript.</FONT>
<FONT COLOR="#000000">></FONT>
<FONT COLOR="#000000">> I can't conjecture what the problem might be; is the script you </FONT>
<FONT COLOR="#000000">> show below everything?</FONT>
<FONT COLOR="#000000">> Are the packages changes somehow done in a visual environment and </FONT>
<FONT COLOR="#000000">> there for not showing?</FONT>
<FONT COLOR="#000000">> Try running through my script and let me know what the results are, </FONT>
<FONT COLOR="#000000">> if this is still a problem for you.</FONT>
<FONT COLOR="#000000">></FONT>
<FONT COLOR="#000000"><snip></FONT>
</PRE>
</BLOCKQUOTE>
</BODY>
</HTML>