[elephant-devel] Opening new database in unstable

[Sebastian Georges]

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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/elephant-devel/attachments/20080613/11e8fab3/attachment.html>