With pleasure!
The file store2328.db gets created with open-store, and I run SBCL
1.0.11.debian under ubuntu.
(require 'elephant)
(defparameter *CONNECTION-SPEC*'(:clsql (:sqlite3
"/home/seb/projects/timetracker-all/store2328.db")))
(elephant:open-store *CONNECTION-SPEC*)
When attempting to
set the slot's value to #<SQL-BTREE oid:1> (SETF of SLOT-VALUE), the
slot DB-CLSQL::CLASS-ROOT is missing from the object
#<SQL-STORE-CONTROLLER (SQLITE3
/home/seb/projects/timetracker-all/store2328.db)>.
[Condition of type SIMPLE-ERROR]
Restarts:
0: [ABORT] Return to SLIME's top level.
1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread"
{B025FA1}>)
Backtrace:
0: ((SB-PCL::FAST-METHOD SLOT-MISSING (T #1="#<...>" . #1#))
#<unused argument>
#<unused argument>
#<unused argument>
#<SQL-STORE-CONTROLLER (SQLITE3
/home/seb/projects/timetracker-all/store2328.db)>
DB-CLSQL::CLASS-ROOT
SETF
#<SQL-BTREE oid:1>)
1: ((SB-PCL::FAST-METHOD SLOT-MISSING (T #1="#<...>" . #1#))
#<unavailable argument>
#<unavailable argument>
#<unavailable argument>
#<SQL-STORE-CONTROLLER (SQLITE3
/home/seb/projects/timetracker-all/store2328.db)>
DB-CLSQL::CLASS-ROOT
SETF
#<SQL-BTREE oid:1>)
2: (SB-PCL::SET-SLOT-VALUE
#<SQL-STORE-CONTROLLER (SQLITE3
/home/seb/projects/timetracker-all/store2328.db)>
DB-CLSQL::CLASS-ROOT
#<SQL-BTREE oid:1>)
3: ((SB-PCL::FAST-METHOD ELEPHANT::OPEN-CONTROLLER
(DB-CLSQL::SQL-STORE-CONTROLLER))
#(NIL NIL 1 NIL)
#<unavailable argument>
#<SQL-STORE-CONTROLLER (SQLITE3
/home/seb/projects/timetracker-all/store2328.db)>)
4: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. #1="#<...>" . #1#))
#<unused argument>
#<unused argument>
#<SQL-STORE-CONTROLLER (SQLITE3
/home/seb/projects/timetracker-all/store2328.db)>
-309242147
0)
5: (ELEPHANT:OPEN-STORE
(:CLSQL
(:SQLITE3 "/home/seb/projects/timetracker-all/store2328.db")))
6: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(ELEPHANT:OPEN-STORE *CONNECTION-SPEC*)
#<NULL-LEXENV>)
Locals:
SB-DEBUG::ARG-0 = (ELEPHANT:OPEN-STORE *CONNECTION-SPEC*)
SB-DEBUG::ARG-1 = #<NULL-LEXENV>
7: (SWANK::EVAL-REGION
"(elephant:open-store *CONNECTION-SPEC*)
")
8: ((LAMBDA ()))
9: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {B05E9FD}>)
10: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {B05E9E5}>)
11: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {B05E9E5}>)
12: (SWANK::REPL-EVAL
"(elephant:open-store *CONNECTION-SPEC*)
")
13: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(SWANK:LISTENER-EVAL "(elephant:open-store *CONNECTION-SPEC*)
")
#<NULL-LEXENV>)
14: ((LAMBDA ()))
15: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
#<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
#<CLOSURE (LAMBDA #) {B05E8B5}>)
16: ((LAMBDA ()))
17: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
#<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
#<FUNCTION (LAMBDA #) {BDC8855}>)
18: (SWANK::CALL-WITH-REDIRECTED-IO
#<SWANK::CONNECTION {AF36EA1}>
#<CLOSURE (LAMBDA #) {B05E80D}>)
19: (SWANK::CALL-WITH-CONNECTION
#<SWANK::CONNECTION {AF36EA1}>
#<FUNCTION (LAMBDA #) {BDC8855}>)
20: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {AF36EA1}>)
21: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AF36EA1}>)
22: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AF36EA1}>)
23: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA #) {B0480A5}>)
24: ((FLET SB-THREAD::WITH-MUTEX-THUNK))
25: (SB-UNIX::CALL-WITH-LOCAL-INTERRUPTS
#<CLOSURE (FLET SB-UNIX::WITH-LOCAL-INTERRUPTS-THUNK) {B645609D}>
T)
26: ((FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) T)
27: ((FLET SB-UNIX::RUN-WITHOUT-INTERRUPTS))
28: (SB-UNIX::CALL-WITHOUT-INTERRUPTS
#<CLOSURE (FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) {B645618D}>)
29: (SB-THREAD::CALL-WITH-MUTEX
#<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK) {B6456215}>
#S(SB-THREAD:MUTEX
:NAME "thread result lock"
:%OWNER #<SB-THREAD:THREAD "repl-thread" {B025FA1}>
:STATE 1)
#<SB-THREAD:THREAD "repl-thread" {B025FA1}>
T)
30: ((LAMBDA ()))
31: ("foreign function: #x806398C")
32: ("foreign function: #x8051E61")
33: ("foreign function: #x805B44D")
34: ("foreign function: #xB7FB94FB")
Hope this helps.
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
