I can run the tests with lift now. They all result in an error,
because I can't open a store.
This is unstable on Lispworks win32:
(asdf:operate 'asdf:load-op :elephant)
(asdf:operate 'asdf:load-op :ele-bdb)
(elephant:open-store '(:BDB #p"c:/temp/testdb/"))
The condition #<ELEPHANT:ELEPHANT-DESERIALIZATION-ERROR 226062AC>
occurred
1 (abort) Abort job 3 :(BIND-STANDARD-STREAMS-AND-EXECUTE
#<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER Background Output>
221E9F5B> (FUNCALL-BACKGROUND-JOB-AUX #<CAPI:EDITOR-PANE CAPI:EDITOR-
PANE 2223DF5B> BACKGROUND-REGION-EVAL (# # # # T NIL NIL)))
CL-USER 5 : 1 > :b :verbose
Call to ELEPHANT::DESERIALIZE (offset 358)
ELEPHANT::BS : #S(ELEPHANT-MEMUTIL:BUFFER-STREAM :BUFFER
#<Pointer to type (:UNSIGNED :CHAR) = #x0039D340> :SIZE 45 :POSITION
2844 :LENGTH 80)
ELEPHANT::SC : #<BDB-STORE-CONTROLLER c:\temp\testdb\>
ELEPHANT::OID-ONLY : NIL
DBG::G : #<CONDITIONS::COERCE-TO-CONDITION-ERROR
2176D46F>
ELEPHANT::E : #<CONDITIONS::COERCE-TO-CONDITION-ERROR
2176D46F>
Call to (METHOD ELEPHANT::PERSISTENT-SLOT-READER (DB-BDB::BDB-STORE-
CONTROLLER T T)) (offset 175)
DB-BDB::SC : #<BDB-STORE-CONTROLLER c:\temp\testdb\>
DB-BDB::INSTANCE : #<BDB-INDEXED-BTREE oid:-3>
DB-BDB::NAME : DB-BDB::INDICES
CLOS::.ISL. : :DONT-KNOW
DB-BDB::KEY-BUF : #S(ELEPHANT-MEMUTIL:BUFFER-STREAM :BUFFER
#<Pointer to type (:UNSIGNED :CHAR) = #x00941FB0> :SIZE 28 :POSITION
0 :LENGTH 80)
DB-BDB::VALUE-BUF : #S(ELEPHANT-MEMUTIL:BUFFER-STREAM :BUFFER
#<Pointer to type (:UNSIGNED :CHAR) = #x0039D340> :SIZE 45 :POSITION
2844 :LENGTH 80)
DB-BDB::BUF : #S(ELEPHANT-MEMUTIL:BUFFER-STREAM :BUFFER
#<Pointer to type (:UNSIGNED :CHAR) = #x0039D340> :SIZE 45 :POSITION
2844 :LENGTH 80)
Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 45)
Call to (METHOD CLOS::DYNAMIC-SLOT-VALUE-USING-SLOTD (T T)) (offset
120)
CLOS::INSTANCE : #<BDB-INDEXED-BTREE oid:-3>
CLOS::SLOTD : #<ELEPHANT::PERSISTENT-EFFECTIVE-SLOT-DEFINITION
DB-BDB::INDICES 217232EB>
Call to (METHOD SHARED-INITIALIZE :AFTER (DB-BDB::BDB-INDEXED-BTREE
T)) (offset 14)
Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 152)
Call to (SUBFUNCTION CALL-NEXT-METHOD (METHOD SHARED-
INITIALIZE :AROUND (ELEPHANT:PERSISTENT-OBJECT T))) (offset 201)
Call to (METHOD SHARED-INITIALIZE :AROUND (ELEPHANT:PERSISTENT-
OBJECT T)) (offset 561)
ELEPHANT::INSTANCE : #<BDB-INDEXED-BTREE
oid:-3>
ELEPHANT::SLOT-NAMES : T
ELEPHANT::INITARGS : (:FROM-OID -3 :SC #<BDB-
STORE-CONTROLLER c:\temp\testdb\> :INDICES #<EQL Hash Table{0}
200EF94F>)
ELEPHANT::FROM-OID : -3
ELEPHANT:CACHE-MODE : NIL
CLOS::.ISL. : :DONT-KNOW
DBG::G : (#<Closure CLOS::METHOD-
COMBINATION-TEMPLATE 200F101A>)
DBG::G : #<ELEPHANT:PERSISTENT-
METACLASS DB-BDB::BDB-INDEXED-BTREE 2171310F>
ELEPHANT::TRANSIENT-SLOTS : (ELEPHANT::OID
ELEPHANT::SPEC ELEPHANT:CACHE-MODE DB-BDB::INDICES-CACHE)
ELEPHANT::CACHED-SLOTS : NIL
ELEPHANT::INDEXED-SLOTS : NIL
ELEPHANT::DERIVED-SLOTS : NIL
ELEPHANT::ASSOCIATION-END-SLOTS : NIL
ELEPHANT::PERSISTENT-SLOTS : (DB-BDB::INDICES)
CLASS : #<ELEPHANT:PERSISTENT-
METACLASS DB-BDB::BDB-INDEXED-BTREE 2171310F>
ELEPHANT::PERSISTENT-INITIALIZABLE-SLOTS : (DB-BDB::INDICES)
ELEPHANT::SET-SLOTS : NIL
Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 45)
Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 79)
Call to CLOS::NEXT-METHOD-CALL-2 (offset 87)
CONS : (METHOD INITIALIZE-INSTANCE :AROUND
(ELEPHANT:PERSISTENT-OBJECT))
CLOS::NEXT-METHODS : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE
200EFF22>)
#:G174431 : #<BDB-INDEXED-BTREE oid:-3>
#:G174432 : (:FROM-OID -3 :SC #<BDB-STORE-CONTROLLER c:
\temp\testdb\> :INDICES #<EQL Hash Table{0} 200EF94F>)
Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 42)
Call to CLOS::MAKE-INSTANCE-FROM-CLASS-1 (offset 452)
CLASS : #<ELEPHANT:PERSISTENT-METACLASS DB-BDB::BDB-
INDEXED-BTREE 2171310F>
CLOS::INITARGS : (:FROM-OID -3 :SC #<BDB-STORE-CONTROLLER c:\temp
\testdb\> :INDICES #<EQL Hash Table{0} 200EF94F>)
Call to (SUBFUNCTION 2 (METHOD ELEPHANT::OPEN-CONTROLLER (DB-
BDB::BDB-STORE-CONTROLLER))) (offset 175)
Call to (METHOD ELEPHANT::EXECUTE-TRANSACTION (DB-BDB::BDB-STORE-
CONTROLLER T)) (offset 383)
DB-BDB::SC : #<BDB-STORE-CONTROLLER c:\temp
\testdb\>
DB-BDB::TXN-FN : #<Closure ((METHOD ELEPHANT::OPEN-
CONTROLLER (DB-BDB::BDB-STORE-CONTROLLER)) . 2) 200E8742>
DBG::G : :DONT-KNOW
DB-BDB::TRANSACTION : :DONT-KNOW
DB-BDB::PARENT : NIL
DB-BDB::ENVIRONMENT : NIL
DB-BDB::RETRIES : 200
DB-BDB::DEGREE-2 : NIL
DB-BDB::READ-UNCOMMITTED : NIL
DB-BDB::TXN-NOSYNC : NIL
DB-BDB::TXN-NOWAIT : NIL
DB-BDB::TXN-SYNC : NIL
CLOS::.ISL. : :DONT-KNOW
DB-BDB::ENV : #<Pointer to type :VOID =
#x016E44C0>
COUNT : 0
DB-BDB::SUCCESS : NIL
DB-BDB::TXN : #<Pointer to type :VOID =
#x016E6BB8>
DB-BDB::RESULT : NIL
ELEPHANT::*CURRENT-TRANSACTION* : (#<BDB-STORE-CONTROLLER c:\temp
\testdb\> . #<Pointer to type :VOID = #x016E6BB8>)
ELEPHANT:*STORE-CONTROLLER* : #<BDB-STORE-CONTROLLER c:\temp
\testdb\>
Call to (METHOD ELEPHANT::OPEN-CONTROLLER (DB-BDB::BDB-STORE-
CONTROLLER)) (offset 1899)
Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 62)
Call to ELEPHANT:OPEN-STORE (offset 66)
ELEPHANT::SPEC : (:BDB #P"c:/temp/testdb/")
ELEPHANT::ARGS : NIL
ELEPHANT::CONTROLLER : #<BDB-STORE-CONTROLLER c:\temp\testdb\>
Call to EVAL (offset 113)
EXP : (ELEPHANT:OPEN-STORE (QUOTE (:BDB #P"c:/temp/testdb/")))
Call to EDITOR::EDITOR-EVAL (offset 177)
EDITOR:BUFFER : :DONT-KNOW
EDITOR::SEXP : (ELEPHANT:OPEN-STORE (QUOTE (:BDB #P"c:/temp/
testdb/")))
EDITOR::ERRORP : T
Call to (SUBFUNCTION 3 (SUBFUNCTION 1 EDITOR::REGION-LISP-EVAL))
(offset 26)
EDITOR::FORM : (ELEPHANT:OPEN-STORE (QUOTE (:BDB #P"c:/temp/
testdb/")))
EDITOR:BUFFER : #<EDITOR:BUFFER work.lisp>
Call to (SUBFUNCTION 1 EDITOR::REGION-LISP-EVAL) (offset 624)
#:BUFFER41963 : #<EDITOR:BUFFER work.lisp>
EDITOR:BUFFER : #<EDITOR:BUFFER work.lisp>
PRINT : T
EDITOR::START : #<EDITOR::POINT "work.lisp" 0 offset 1681
200AC743>
EDITOR::END : #<EDITOR::POINT "work.lisp" 0 offset 1730
200AD187>
DBG::|block-catch-tag| : (NIL)
DBG::|block-catch-tag| : (NIL)
Call to EDITOR::WITH-COMPILATION-ENVIRONMENT-AT-POINT-FN (offset 266)
EDITOR::POINT : #<EDITOR::POINT "work.lisp" 0 offset 1681
200AC743>
EDITOR::START-MESSAGE : "Evaluating..."
EDITOR::END-MESSAGE : "Finished evaluating"
EDITOR::BODY-FN : #<Closure (EDITOR::REGION-LISP-EVAL . 1)
200ACC3A>
Call to EDITOR::REGION-LISP-EVAL (offset 204)
EDITOR:BUFFER : #<EDITOR:BUFFER work.lisp>
EDITOR::START : #<EDITOR::POINT "work.lisp" 0 offset 1681 200AC743>
EDITOR::END : #<EDITOR::POINT "work.lisp" 0 offset 1730 200AD187>
PRINT : T
Call to EDITOR::BACKGROUND-REGION-EVAL (offset 103)
EDITOR::WINDOW : #<EDITOR::WM-WINDOW "work.lisp" 222436AF>
EDITOR:BUFFER : #<EDITOR:BUFFER work.lisp>
EDITOR::START : #<EDITOR::POINT "work.lisp" 0 offset 1681
200AC743>
EDITOR::END : #<EDITOR::POINT "work.lisp" 0 offset 1730
200AD187>
PRINT : T
EDITOR::WARNINGS : NIL
EDITOR::AFTER-FUNCTION : NIL
Call to CAPI::FUNCALL-BACKGROUND-JOB-AUX (offset 50)
CAPI::PANE : #<CAPI:EDITOR-PANE CAPI:EDITOR-PANE 2223DF5B>
FUNCTION : EDITOR::BACKGROUND-REGION-EVAL
CAPI::ARGS : (#<EDITOR::WM-WINDOW "work.lisp" 222436AF>
#<EDITOR:BUFFER work.lisp> #<EDITOR::POINT "work.lisp" 0 offset 1681
200AC743> #<EDITOR::POINT "work.lisp" 0 offset 1730 200AD187> T NIL
NIL)
Call to CAPI::BIND-STANDARD-STREAMS-AND-EXECUTE (offset 204)
STREAM : #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER
Background Output> 221E9F5B>
CAPI::FUNC-ARGS : (CAPI::FUNCALL-BACKGROUND-JOB-AUX #<CAPI:EDITOR-
PANE CAPI:EDITOR-PANE 2223DF5B> EDITOR::BACKGROUND-REGION-EVAL
(#<EDITOR::WM-WINDOW "work.lisp" 222436AF> #<EDITOR:BUFFER
work.lisp> #<EDITOR::POINT "work.lisp" 0 offset 1681 200AC743>
#<EDITOR::POINT "work.lisp" 0 offset 1730 200AD187> T NIL NIL))
Call to MP::BACKGROUND-EXECUTE-LOOP (offset 629)
Call to (SUBFUNCTION MP::PROCESS-SG-FUNCTION MP::INITIALIZE-PROCESS-
STACK) (offset 301)
MP::IGNORED : :DONT-KNOW
VALUES : NIL
MP:PROCESS : #<MP:PROCESS Name "Background execute 1" Priority
70000000 State "Running">
MP::SYMBOLS : NIL
CL-USER 6 : 1 >
_____________________________________________________________________
Der WEB.DE SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen!
http://smartsurfer.web.de/?mc=100071&distributionid=000000000066
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
