<br>
<br>
Elephant does not seem to work on my AMD64 with SBCL 0.9.10 or 0.9.9. See the<br>
following trace. Elephant version 0.5.0. Same occurs for current CVS.<br>
<br>
Does anyone have similar problems?<br>
<br>
<br>
William Halliburton<br>
<br>
<br>
/usr/lib64/sbcl/src/code $ sbcl<br>
This is SBCL 0.9.10, an implementation of ANSI Common Lisp.<br>
More information about SBCL is available at <<a href="http://www.sbcl.org/">http://www.sbcl.org/</a>>.<br>
<br>
SBCL is free software, provided as is, with absolutely no warranty.<br>
It is mostly in the public domain; some portions are provided under<br>
BSD-style licenses.  See the CREDITS and COPYING files in the<br>
distribution for more information.<br>
<br>
* *features*<br>
<br>
(:ASDF :CLC-OS-DEBIAN<br>
       :COMMON-LISP-CONTROLLER<br>
       :SB-THREAD<br>
       :ANSI-CL<br>
       :COMMON-LISP<br>
       :SBCL<br>
       :UNIX<br>
       :SB-DOC<br>
       :SB-PACKAGE-LOCKS<br>
       :SB-UNICODE<br>
       :SB-SOURCE-LOCATIONS<br>
       :IEEE-FLOATING-POINT<br>
       :X86-64<br>
       :ELF<br>
       :LINUX<br>
       :GENCGC<br>
       :STACK-GROWS-DOWNWARD-NOT-UPWARD<br>
       :C-STACK-IS-CONTROL-STACK<br>
       :LINKAGE-TABLE<br>
       :STACK-ALLOCATABLE-CLOSURES<br>
       :ALIEN-CALLBACKS<br>
       :OS-PROVIDES-DLOPEN<br>
       :OS-PROVIDES-DLADDR<br>
       :OS-PROVIDES-PUTWC)<br>
* (require 'elephant)<br>
<br>
; loading system definition from /usr/share/common-lisp/systems/uffi.asd into<br>
; #<PACKAGE "ASDF837"><br>
; registering #<SYSTEM UFFI {10005EBA31}> as UFFI<br>
; loading system definition from /usr/share/common-lisp/systems/cl-base64.asd<br>
; into #<PACKAGE "ASDF934"><br>
; registering #<SYSTEM CL-BASE64 {100029CE31}> as CL-BASE64<br>
; registering #<SYSTEM CL-BASE64-TESTS {100074E5F1}> as CL-BASE64-TESTS<br>
; loading system definition from /usr/share/common-lisp/systems/kmrcl.asd into<br>
; #<PACKAGE "ASDF946"><br>
; registering #<SYSTEM KMRCL {10000A76D1}> as KMRCL<br>
("SB-BSD-SOCKETS")<br>
* (require 'ele-bdb)<br>
<br>
NIL<br>
* (use-package :elephant)<br>
<br>
T<br>
* (defparameter *db-path* "/home/conrad/website/ucw/ele-test/db")<br>
<br>
*DB-PATH*<br>
* (open-store *db-path*)<br>
<br>
#<BDB-STORE-CONTROLLER {10002C5021}><br>
* (get-from-root "foo1")<br>
<br>
NIL<br>
NIL<br>
* (defclass foo ()<br>
  ((name :accessor <a href="http://foo.name">foo.name</a> :initarg :name :initform ""))<br>
  (:metaclass persistent-metaclass))<br>
<br>
#<PERSISTENT-METACLASS FOO><br>
* (add-to-root "foo1" (make-instance 'foo :name "asd"))<br>
<br>
#<FOO {1000CFA8F1}><br>
* (get-from-root "foo1")<br>
Argh! gc_find_freeish_pages failed (restart_page), nbytes=300647710752.<br>
<br>
<br>
<br>