clsql 5.1.1 with sqlite3 failing on OSX 64bit ccl

JT Klein <[email protected]> Thu, 5 Aug 2010 21:01:22 +0000 (UTC)
Newsgroups gmane.lisp.clsql.general
Message-ID <[email protected]>



Hello,

I'm trying to use clsql 5.1.1 with uffi 2.0.0 on ccl 1.4-r13199 X8664.   
It seems to be using the sqlite3.dylib  present in /usr/lib

This is what happens:


ccl> (clsql:create-database '("./foo.db") :database-type :sqlite3)
T

ccl> (clsql:with-database (db  '("./foo.db") :database-type :sqlite3)
          (clsql:list-tables :database db))
NIL

ccl> (clsql:with-database (db  '("./foo.db") :database-type :sqlite3)
          (clsql:create-view-from-class 'user :database db))

ccl> (clsql:with-database (db  '("./foo.db") :database-type :sqlite3)
          (clsql:list-tables :database db))

value NIL is not of the expected type (UNSIGNED-BYTE 56).
   [Condition of type TYPE-ERROR]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [ABORT] Return to SLIME's top level.
 2: [ABORT-BREAK] Reset this thread
 3: [ABORT] Kill this thread

Backtrace:
  0: (CCL:%STR-FROM-PTR #<A Foreign Pointer #x10135E0> NIL NIL)
  1: ((:INTERNAL CLSQL-SQLITE3::EXTRACT-ROW-DATA (CLSQL-SYS:DATABASE-QUERY 
(T CLSQL-SQLITE3:SQLITE3-DATABASE T T))))
  2: (#<STANDARD-METHOD CLSQL-SYS:DATABASE-QUERY 
(T CLSQL-SQLITE3:SQLITE3-DATABASE T     T)> "SELECT name FROM sqlite_master 
WHERE type='table' UNION ALL SELECT name  FROM sqlite_temp_master 
 WHERE type='table' ..
  3: (CCL::%%STANDARD-COMBINED-METHOD-DCODE ((#<STANDARD-METHOD
 CLSQL-SYS:DATABASE-QUERY :BEFORE (T CLSQL-SYS:DATABASE T T)>) 
NIL ..) 8346325)
  4: (NIL #<Unknown Arguments>)
  5: (#<STANDARD-METHOD CLSQL-SYS:DATABASE-LIST-TABLES-AND-SEQUENCES
 (CLSQL-SQLITE3:SQLITE3-DATABASE)> #<SQLITE3-DATABASE ./foo.db 
OPEN #x3000428B17DD> :OWNER NIL)
  6: (CCL::%%CHECK-KEYWORDS #(1 #(:OWNER) #<CCL:METHOD-FUNCTION 
CLSQL-SYS:DATABASE-LIST-TABLES-AND-SEQUENCES 
(CLSQL-SQLITE3:SQLITE3-DATABASE)>) 8346350)
  7: (NIL #<Unknown Arguments>)
  8: (#<STANDARD-METHOD CLSQL-SYS:DATABASE-LIST-TABLES 
(CLSQL-SQLITE3:SQLITE3-DATABASE)> #<SQLITE3-DATABASE ./foo.db 
OPEN #x3000428B17DD> :OWNER NIL)
  9: (CCL::%%CHECK-KEYWORDS #(1 #(:OWNER) #<CCL:METHOD-FUNCTION 
CLSQL-SYS:DATABASE-LIST-TABLES (CLSQL-SQLITE3:SQLITE3-DATABASE)>) 
8346371)
 10: (NIL #<Unknown Arguments>)
 11: (#<Anonymous Function #x3000428B18CF>)


If I try to create the view again, it says that USER exists in it.