CCL-1.4 CLSQL-5.0.4 WinXP(32)

Hi everybody,

I encountered a little problem with Clozure CL 1.4 in WindowXP (32 bit).

I am using something like this:

(require 'asdf)

(push #p"d:/programs/ccl/extra/uffi-1.8.6/" asdf:*central-registry*)
(push #p"d:/programs/ccl/extra/clsql-5.0.4/" asdf:*central-registry*)

(push :win32 *features*)

(asdf:oos 'asdf:load-op 'uffi)
(asdf:oos 'asdf:load-op 'clsql)

(push #p"d:/programs/sqlite3/" clsql-sys:*foreign-library-search-paths*)
(push #p"d:/programs/ccl/extra/" clsql-sys:*foreign-library-search-paths*)

(asdf:oos 'asdf:load-op 'clsql-sqlite3)

(clsql:connect '("d:/db/test.sqlite") :database-type :sqlite3)

(clsql:def-view-class foo ()
  ((id
    :db-kind :key
    :db-constraints :not-null
    :type integer
    :initarg :id)
   (name
    :accessor name
    :type (string 30)
    :initarg :name))
  (:base-table foo))

(clsql:select 'foo)

and I got the following

value NIL is not of the expected type (UNSIGNED-BYTE 24).
   [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: (%STR-FROM-PTR #<A Foreign Pointer #x1193930> 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 FOO.NAME,FOO.ID FROM FOO" 
#<SQLITE3-DATABASE d:/work/scheme/erp/data/erp.db.sqlite OPEN #x904D92E> 
:AUTO T)
  3: (CCL::%%STANDARD-COMBINED-METHOD-DCODE ((#<STANDARD-METHOD 
CLSQL-SYS:DATABASE-QUERY :BEFORE (T CLSQL-SYS:DATABASE T T)>) NIL ..) 
13615756)
  4: (NIL #<Unknown Arguments>)
  5: (#<STANDARD-METHOD CLSQL-SYS:QUERY (STRING)> "SELECT 
FOO.NAME,FOO.ID FROM FOO" :DATABASE #<SQLITE3-DATABASE 
d:/work/scheme/erp/data/erp.db.sqlite OPEN #x904D92E> :RESULT-TYPES 
:AUTO :FLATP NIL :FIELD-..
  6: (CCL::%%CHECK-KEYWORDS #(1 #(:FIELD-NAMES :FLATP :RESULT-TYPES 
:DATABASE) #<METHOD-FUNCTION CLSQL-SYS:QUERY (STRING)>) 13615783)
  7: (NIL #<Unknown Arguments>)
  8: (CCL::%%CHECK-KEYWORDS #(1 #(:FIELD-NAMES :FLATP :RESULT-TYPES 
:DATABASE) #<METHOD-FUNCTION CLSQL-SYS:QUERY 
(CLSQL-SYS::%SQL-EXPRESSION)>) 13615803)
  9: (NIL #<Unknown Arguments>)
 10: (CLSQL-SYS:SELECT #<SQL-IDENT-ATTRIBUTE FOO.NAME> 
#<SQL-IDENT-ATTRIBUTE FOO.ID> :FROM (#<SQL-IDENT-TABLE FOO>) 
:RESULT-TYPES :AUTO :REFRESH NIL)
 11: (CLSQL-SYS::FIND-ALL (FOO) :REFRESH NIL)
 12: (CLSQL-SYS:SELECT FOO)
 13: (CCL::CALL-CHECK-REGS CLSQL-SYS:SELECT FOO)
 14: (SWANK::EVAL-REGION "(clsql:select 'foo)\n")
 15: ((:INTERNAL SWANK::REPL-EVAL))
 16: (SWANK::TRACK-PACKAGE #<COMPILED-LEXICAL-CLOSURE (:INTERNAL 
SWANK::REPL-EVAL) #x90B2396>)
 17: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation 
request." #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) 
#x90B23E6>)
 18: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<COMPILED-LEXICAL-CLOSURE 
(:INTERNAL SWANK::REPL-EVAL) #x90B240E>)
 19: (SWANK::REPL-EVAL "(clsql:select 'foo)\n")
 20: (CCL::CALL-CHECK-REGS SWANK:LISTENER-EVAL "(clsql:select 'foo)\n")
 21: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(clsql:select 
'foo)\n") "COMMON-LISP-USER" 26)
 22: (SWANK::PROCESS-REQUESTS NIL)
 23: ((:INTERNAL SWANK::HANDLE-REQUESTS))
 24: (#<Anonymous Function #x8C0E2BE> #<Compiled-function 
SWANK:SWANK-DEBUGGER-HOOK #x8C9E3D6> #<COMPILED-LEXICAL-CLOSURE 
(:INTERNAL SWANK::HANDLE-REQUESTS) #x90B27FE>)
 25: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-OUTPUT* . 
#<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x8D428B6>) (*STANDARD-INPUT* . 
#<SWANK-BACKEND::SLIME-INPUT-STREAM #x8D42AEE>) ..))) 
#<COMPILED-LEXICAL-CLOSURE (..
 26: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x8D16DDE> 
#<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x90B27FE>)
 27: (SWANK::HANDLE-REQUESTS #<CONNECTION #x8D16DDE> NIL)
 28: (SWANK::CALL-WITH-BINDINGS NIL #<COMPILED-LEXICAL-CLOSURE 
(:INTERNAL SWANK::SPAWN-REPL-THREAD) #x8D4BFDE>)
 29: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(11) [Active] 
#x8D42E56> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL 
CCL::%PROCESS-RUN-FUNCTION) #x8D42D16>))
 30: ((:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS))) #<PROCESS 
repl-thread(11) [Active] #x8D42E56> (#<COMPILED-LEXICAL-CLOSURE 
(:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x8D42D16>))
 31: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))

I used

(clsql:create-view-from-class 'foo)

(defvar foo1 (make-instance 'foo :id 1 :name 'foo1))

(clsql:update-records-from-instance foo1)

to create the table and insert one row.

The same error occurs if I the default listener:

? (clsql:select 'foo)
 > Error: value NIL is not of the expected type (UNSIGNED-BYTE 24).
 > While executing: %STR-FROM-PTR, in process listener(1).
 > Type :POP to abort, :R for a list of available restarts.
 > Type :? for other options.
1 > :pop


Any ideas?

Thanks for your time,
Stefan