<!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>
This works for me under SBCL; please see the attached typescript.<BR>
<BR>
I can't conjecture what the problem might be; is the script you show below everything?<BR>
Are the packages changes somehow done in a visual environment and there for not showing?<BR>
Try running through my script and let me know what the results are, if this is still a problem for you.<BR>
<BR>
<BR>
On Thu, 2006-01-05 at 17:01 -0500, Waldo Rubinstein wrote:
<BLOCKQUOTE TYPE=CITE>
<PRE>
<FONT COLOR="#000000">Hi,</FONT>
<FONT COLOR="#000000">I'm starting to use BTrees in elephant and am encountering a problem. </FONT>
<FONT COLOR="#000000">Basically, I added a BTree object to the root under a key named </FONT>
<FONT COLOR="#000000">"EDI-834-TAPES". I can retrieve the BTree object, but when I try to </FONT>
<FONT COLOR="#000000">access a BTree element (whether to read or write), I get an error. </FONT>
<FONT COLOR="#000000">See below:</FONT>
<FONT COLOR="#000000">CL-USER> (in-package ele)</FONT>
<FONT COLOR="#000000">#<Package "ELEPHANT"></FONT>
<FONT COLOR="#000000">ELE> (open-store "testdb")</FONT>
<FONT COLOR="#000000">#<BDB-STORE-CONTROLLER #x8A5C816></FONT>
<FONT COLOR="#000000">ELE> (setf tapes (get-from-root "EDI-834-TAPES"))</FONT>
<FONT COLOR="#000000">#<BTREE #x8A5805E></FONT>
<FONT COLOR="#000000">ELE> (get-value 1234 tapes)</FONT>
<FONT COLOR="#000000">CL-USER> (in-package ele)</FONT>
<FONT COLOR="#000000">#<Package "ELEPHANT"></FONT>
<FONT COLOR="#000000">ELE> (open-store "testdb")</FONT>
<FONT COLOR="#000000">#<BDB-STORE-CONTROLLER #x8A5C816></FONT>
<FONT COLOR="#000000">ELE> (setf tapes (get-from-root "EDI-834-TAPES"))</FONT>
<FONT COLOR="#000000">#<BTREE #x8A5805E></FONT>
<FONT COLOR="#000000">ELE> (get-value 1234 tapes)</FONT>
<FONT COLOR="#000000">No applicable method for args:</FONT>
<FONT COLOR="#000000">(1234 #<BTREE #x8A5805E>)</FONT>
<FONT COLOR="#000000">to #<STANDARD-GENERIC-FUNCTION GET-VALUE #x84146AE></FONT>
<FONT COLOR="#000000"> [Condition of type SIMPLE-ERROR]</FONT>
<FONT COLOR="#000000">Restarts:</FONT>
<FONT COLOR="#000000"> 0: [ABORT-REQUEST] Abort handling SLIME request.</FONT>
<FONT COLOR="#000000"> 1: [ABORT-BREAK] Reset this process</FONT>
<FONT COLOR="#000000"> 2: [ABORT] Kill this process</FONT>
<FONT COLOR="#000000">Backtrace:</FONT>
<FONT COLOR="#000000"> 0: (#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> </FONT>
<FONT COLOR="#000000">#<STANDARD-GENERIC-FUNCTION GET-VALUE #x84146AE>)</FONT>
<FONT COLOR="#000000"> 1: (CCL::CALL-CHECK-REGS 'GET-VALUE)</FONT>
<FONT COLOR="#000000">Basically, the last statement (get-value) should return NIL since </FONT>
<FONT COLOR="#000000">there is not BTree element within the BTree object.</FONT>
<FONT COLOR="#000000">What am I doing wrong? I tried to "mimic" as close as possible the </FONT>
<FONT COLOR="#000000">steps in the Blog tutorial but keep getting to the same problem.</FONT>
<FONT COLOR="#000000">Thanks,</FONT>
<FONT COLOR="#000000">Waldo</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>