[elephant-devel] elephant-1.0 on Lispworks+win32; bdb; postmodern
Ian Eslick
eslick at media.mit.edu
Tue Feb 3 16:57:51 UTC 2009
Hi Frank,
Does the latest source tree resolve this bug?
Ian
On Jan 28, 2009, at 2:08 PM, Frank Schorr wrote:
>> -----Ursprüngliche Nachricht-----
>> Von: "Ian Eslick" <eslick at media.mit.edu>
>
>>
>> Did this happen on the first open-controller or somewhere in the
>> middle of the tests?
>>
>
> I can't tell.
> But I tried this:
>
> (asdf:operate 'asdf:load-op :elephant)
> (asdf:operate 'asdf:load-op :ele-bdb)
> (setf *db-spec* '(:BDB "c:/temp/testdb/"))
> (ele:open-store *db-spec*)
>
> [The bdb files are created in the directory. Hope this helps]
>
> Error: The slot ELEPHANT::SCHEMA-NAME-INDEX is unbound in the object
> #<BDB-STORE-CONTROLLER c:/temp/testdb/> (an instance of class
> #<STANDARD-CLASS DB-BDB::BDB-STORE-CONTROLLER 21F0DF4F>).
> 1 (continue) Try reading slot ELEPHANT::SCHEMA-NAME-INDEX again.
> 2 Specify a value to use this time for slot ELEPHANT::SCHEMA-NAME-
> INDEX.
> 3 Specify a value to set slot ELEPHANT::SCHEMA-NAME-INDEX to.
> 4 (abort) Abort job 4 :(BIND-STANDARD-STREAMS-AND-EXECUTE
> #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER Background Output>
> 21CE1B7F> (FUNCALL-BACKGROUND-JOB-AUX #<CAPI:EDITOR-PANE CAPI:EDITOR-
> PANE 217334BB> BACKGROUND-REGION-EVAL (# # # # T NIL NIL)))
>
> Type :b for backtrace, :c <option number> to proceed, or :? for
> other options
>
> CL-USER 1 : 1 > :b :verbose
> Call to (METHOD SLOT-UNBOUND (T T T)) (offset 512)
> CLASS : #<STANDARD-CLASS DB-BDB::BDB-STORE-CONTROLLER
> 21F0DF4F>
> CLOS::INSTANCE : #<BDB-STORE-CONTROLLER c:/temp/testdb/>
> CLOS::SLOT-NAME : ELEPHANT::SCHEMA-NAME-INDEX
>
> Call to CLOS::CALL-SLOT-UNBOUND-FUNCTION (offset 21)
> CLASS : #<STANDARD-CLASS DB-BDB::BDB-STORE-CONTROLLER
> 21F0DF4F>
> CLOS::INSTANCE : #<BDB-STORE-CONTROLLER c:/temp/testdb/>
> CLOS::SLOT-NAME : ELEPHANT::SCHEMA-NAME-INDEX
>
> Call to ELEPHANT::GET-DB-SCHEMAS (offset 31)
>
> Call to ELEPHANT::GET-CURRENT-DB-SCHEMA (offset 23)
>
> Call to (METHOD ELEPHANT::LOOKUP-SCHEMA (ELEPHANT:STORE-CONTROLLER
> ELEPHANT:PERSISTENT-METACLASS)) (offset 91)
>
> Call to (METHOD CLOS:FINALIZE-INHERITANCE :AFTER
> (ELEPHANT:PERSISTENT-METACLASS)) (offset 361)
> ELEPHANT::INSTANCE : #<ELEPHANT:PERSISTENT-METACLASS
> ELEPHANT:PERSISTENT-OBJECT 21344DAF>
> CLOS::.ISL. : #(#(#(1477 (CLOS::DEPENDENTS CLOS::NAME
> CLOS:DEFAULT-INITARGS CLOS::DIRECT-DEFAULT-INITARGS CLOS::DIRECT-
> SLOTS CLOS::DIRECT-SUBCLASSES CLOS::DIRECT-SUPERCLASSES
> CLOS::PRECEDENCE-LIST CLOS::EFFECTIVE-SLOTS CLOS::NO-INSTANCE-SLOTS
> CLOS::PROTOTYPE CLOS::DIRECT-METHODS CLOS::WRAPPER
> CLOS::CONSTRUCTORS CLOS::DOCUMENTATION-SLOT CLOS::PLIST
> CLOS::POTENTIAL-INITARGS CLOS::MAKE-INSTANCE-FLAGS ELEPHANT::%CLASS-
> SCHEMA ELEPHANT::%STORE-SCHEMAS ELEPHANT::%CLASS-INDEXING ELEPHANT::
> %CACHE-STYLE) NIL #<STANDARD-CLASS ELEPHANT:PERSISTENT-METACLASS
> 21352493> STANDARD-CLASS) #(20) NIL NIL) ELEPHANT::%CLASS-INDEXING 2
> 0)
> CLOS::.PV. : #(20)
> ELEPHANT::OLD-SCHEMA : NIL
> ELEPHANT::NEW-SCHEMA : #<CLASS-SCHEMA PERSISTENT-OBJECT>
>
> Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 140)
>
> Call to CLOS::ENSURE-CLASS-FINALIZED (offset 150)
> CLASS : #<ELEPHANT:PERSISTENT-METACLASS ELEPHANT:PERSISTENT-OBJECT
> 21344DAF>
>
> Call to CLOS::ENSURE-CLASS-FINALIZED (offset 336)
> CLASS : #<ELEPHANT:PERSISTENT-METACLASS DB-BDB::BDB-INDEXED-BTREE
> 21E77043>
>
> Call to (METHOD CLOS:DEFAULT-INITARGS (CLASS T)) (offset 27)
> CLASS : #<ELEPHANT:PERSISTENT-METACLASS DB-BDB::BDB-
> INDEXED-BTREE 21E77043>
> CLOS::INITARGS : (:FROM-OID -3 :SC #<BDB-STORE-CONTROLLER c:/temp/
> testdb/> :INDICES #<EQL Hash Table{0} 2173A1AF>)
>
> Call to CLOS::MAKE-INSTANCE-FROM-CLASS-1 (offset 386)
> CLASS : #<ELEPHANT:PERSISTENT-METACLASS DB-BDB::BDB-
> INDEXED-BTREE 21E77043>
> CLOS::INITARGS : (:FROM-OID -3 :SC #<BDB-STORE-CONTROLLER c:/temp/
> testdb/> :INDICES #<EQL Hash Table{0} 2173A1AF>)
>
> 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 741)
> DB-BDB::SC : #<BDB-STORE-CONTROLLER c:/temp/
> testdb/>
> DB-BDB::TXN-FN : #<Closure ((METHOD ELEPHANT::OPEN-
> CONTROLLER (DB-BDB::BDB-STORE-CONTROLLER)) . 2) 21E8DD72>
> 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
> DB-BDB::SNAPSHOT : NIL
> DB-BDB::INHIBIT-ROLLBACK-FN : NIL
> CLOS::.ISL. : :DONT-KNOW
> DB-BDB::ENV : #<Pointer to type :VOID =
> #x00F04500>
> COUNT : 0
> DB-BDB::SUCCESS : NIL
> DB-BDB::TXN : #<Pointer to type :VOID =
> #x00F06B58>
> DB-BDB::RESULT : NIL
> ELEPHANT::*CURRENT-TRANSACTION* : (#<BDB-STORE-CONTROLLER c:/temp/
> testdb/> #<Pointer to type :VOID = #x00F06B58> NIL)
> ELEPHANT:*STORE-CONTROLLER* : #<BDB-STORE-CONTROLLER c:/temp/
> testdb/>
> DBG::G : #<Closure ((METHOD
> ELEPHANT::EXECUTE-TRANSACTION (DB-BDB::BDB-STORE-CONTROLLER T)) . 2)
> 2187F16A>
> CONDITIONS::*HANDLER-CLUSTERS* : (((CONDITION . #<Closure #
> 2187F16A>)) ((WARNING . EDITOR::EDITOR-EVALUATION-WARNING)) ((END-OF-
> FILE . #<Closure # 21E2EC3A>) (READER-ERROR . #<Closure # 2187F62A>)))
>
> Call to (METHOD ELEPHANT::OPEN-CONTROLLER (DB-BDB::BDB-STORE-
> CONTROLLER)) (offset 2211)
>
> Call to CLOS::METHOD-COMBINATION-TEMPLATE (offset 62)
>
> Call to ELEPHANT:OPEN-STORE (offset 66)
>
> Call to EVAL (offset 113)
> EXP : (ELEPHANT:OPEN-STORE *DB-SPEC*)
>
> Call to EDITOR::EDITOR-EVAL (offset 177)
> EDITOR:BUFFER : :DONT-KNOW
> EDITOR::SEXP : (ELEPHANT:OPEN-STORE *DB-SPEC*)
> EDITOR::ERRORP : T
>
> Call to (SUBFUNCTION 3 (SUBFUNCTION 1 EDITOR::REGION-LISP-EVAL))
> (offset 26)
> EDITOR::FORM : (ELEPHANT:OPEN-STORE *DB-SPEC*)
> 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 4163
> 21E34127>
> EDITOR::END : #<EDITOR::POINT "work.lisp" 0 offset 4189
> 21E3414F>
> 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 4163
> 21E34127>
> EDITOR::START-MESSAGE : "Evaluating..."
> EDITOR::END-MESSAGE : "Finished evaluating"
> EDITOR::BODY-FN : #<Closure (EDITOR::REGION-LISP-EVAL . 1)
> 21E2EC22>
>
> Call to EDITOR::REGION-LISP-EVAL (offset 204)
> EDITOR:BUFFER : #<EDITOR:BUFFER work.lisp>
> EDITOR::START : #<EDITOR::POINT "work.lisp" 0 offset 4163 21E34127>
> EDITOR::END : #<EDITOR::POINT "work.lisp" 0 offset 4189 21E3414F>
> PRINT : T
>
> Call to EDITOR::BACKGROUND-REGION-EVAL (offset 103)
> EDITOR::WINDOW : #<EDITOR::WM-WINDOW "work.lisp" 216DE40F>
> EDITOR:BUFFER : #<EDITOR:BUFFER work.lisp>
> EDITOR::START : #<EDITOR::POINT "work.lisp" 0 offset 4163
> 21E34127>
> EDITOR::END : #<EDITOR::POINT "work.lisp" 0 offset 4189
> 21E3414F>
> 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 217334BB>
> FUNCTION : EDITOR::BACKGROUND-REGION-EVAL
> CAPI::ARGS : (#<EDITOR::WM-WINDOW "work.lisp" 216DE40F>
> #<EDITOR:BUFFER work.lisp> #<EDITOR::POINT "work.lisp" 0 offset 4163
> 21E34127> #<EDITOR::POINT "work.lisp" 0 offset 4189 21E3414F> T NIL
> NIL)
>
> Call to CAPI::BIND-STANDARD-STREAMS-AND-EXECUTE (offset 204)
> STREAM : #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER
> Background Output> 21CE1B7F>
> CAPI::FUNC-ARGS : (CAPI::FUNCALL-BACKGROUND-JOB-AUX #<CAPI:EDITOR-
> PANE CAPI:EDITOR-PANE 217334BB> EDITOR::BACKGROUND-REGION-EVAL
> (#<EDITOR::WM-WINDOW "work.lisp" 216DE40F> #<EDITOR:BUFFER
> work.lisp> #<EDITOR::POINT "work.lisp" 0 offset 4163 21E34127>
> #<EDITOR::POINT "work.lisp" 0 offset 4189 21E3414F> 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 2" Priority
> 50000000 State "Running">
> MP::SYMBOLS : NIL
>
>
> CL-USER 2 : 1 >
>
> _______________________________________________________________________
> NUR NOCH BIS 31.01.! WEB.DE FreeDSL - Telefonanschluss + DSL
> für nur 16,37 EURO/mtl.!* http://dsl.web.de/?
> ac=OM.AD.AD008K13805B7069a
>
>
> _______________________________________________
> elephant-devel site list
> elephant-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/elephant-devel
More information about the elephant-devel
mailing list