[elephant-devel] AMD64 problems

[William Halliburton]

Elephant does not seem to work on my AMD64 with SBCL 0.9.10 or 0.9.9. See
the
following trace. Elephant version 0.5.0. Same occurs for current CVS.

Does anyone have similar problems?


William Halliburton


/usr/lib64/sbcl/src/code $ sbcl
This is SBCL 0.9.10, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.

* *features*

(:ASDF :CLC-OS-DEBIAN
       :COMMON-LISP-CONTROLLER
       :SB-THREAD
       :ANSI-CL
       :COMMON-LISP
       :SBCL
       :UNIX
       :SB-DOC
       :SB-PACKAGE-LOCKS
       :SB-UNICODE
       :SB-SOURCE-LOCATIONS
       :IEEE-FLOATING-POINT
       :X86-64
       :ELF
       :LINUX
       :GENCGC
       :STACK-GROWS-DOWNWARD-NOT-UPWARD
       :C-STACK-IS-CONTROL-STACK
       :LINKAGE-TABLE
       :STACK-ALLOCATABLE-CLOSURES
       :ALIEN-CALLBACKS
       :OS-PROVIDES-DLOPEN
       :OS-PROVIDES-DLADDR
       :OS-PROVIDES-PUTWC)
* (require 'elephant)

; loading system definition from /usr/share/common-lisp/systems/uffi.asd
into
; #<PACKAGE "ASDF837">
; registering #<SYSTEM UFFI {10005EBA31}> as UFFI
; loading system definition from /usr/share/common-lisp/systems/cl-
base64.asd
; into #<PACKAGE "ASDF934">
; registering #<SYSTEM CL-BASE64 {100029CE31}> as CL-BASE64
; registering #<SYSTEM CL-BASE64-TESTS {100074E5F1}> as CL-BASE64-TESTS
; loading system definition from /usr/share/common-lisp/systems/kmrcl.asd
into
; #<PACKAGE "ASDF946">
; registering #<SYSTEM KMRCL {10000A76D1}> as KMRCL
("SB-BSD-SOCKETS")
* (require 'ele-bdb)

NIL
* (use-package :elephant)

T
* (defparameter *db-path* "/home/conrad/website/ucw/ele-test/db")

*DB-PATH*
* (open-store *db-path*)

#<BDB-STORE-CONTROLLER {10002C5021}>
* (get-from-root "foo1")

NIL
NIL
* (defclass foo ()
  ((name :accessor foo.name :initarg :name :initform ""))
  (:metaclass persistent-metaclass))

#<PERSISTENT-METACLASS FOO>
* (add-to-root "foo1" (make-instance 'foo :name "asd"))

#<FOO {1000CFA8F1}>
* (get-from-root "foo1")
Argh! gc_find_freeish_pages failed (restart_page), nbytes=300647710752.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/elephant-devel/attachments/20060304/c3455620/attachment.html>