[clsql-fluid-devel] clsql-fluid and LispWorks

Tue May 19 11:51:52 UTC 2009

Hi

I am using Weblocks (stable) with CLSQL on LispWorks Professional
5.1.2. Trying to load clsql-fluid (from the git repository) fails,
though (see ** LispWorks error & backtrace below).

I have almost no MOP knowledge (yet), but I can duplicate LispWorks'
error in SBCL with the following (see * SBCL error & backtrace below),
which gives a better description of the error.

I need to use LispWorks, though. How can I fix this (or can someone fix
it).

Thanks.
Nico

PS. I also posted this to the Weblocks Google group.

* SBCL error & backtrace:

CL-USER> (defclass foo ()
	   ())
#<STANDARD-CLASS FOO>
CL-USER> (defclass bar (standard-class)
	   ())
#<STANDARD-CLASS BAR>
CL-USER> (defclass baz (foo)
	   ()
	   (:metaclass bar))

The class #<STANDARD-CLASS FOO> was specified as a super-class
of the class #<BAR BAZ>, but the meta-classes
#<STANDARD-CLASS STANDARD-CLASS> and #<STANDARD-CLASS BAR> are
incompatible.  Define a method for SB-MOP:VALIDATE-SUPERCLASS to
avoid this error.
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [ABORT] Return to SLIME's top level.
 2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread"
RUNNING {1002E2A1E1}>)

Backtrace:
  0: ((SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER (SB-PCL::STD-CLASS
T)) #(17 NIL 5 NIL) #<unavailable argument> #<BAR BAZ> T)[:EXTERNAL]
  1: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1. SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT.
SB-PCL::.DFUN-MORE-COUNT.)) ..)
  2: ((SB-PCL::FAST-METHOD MAKE-INSTANCE (CLASS)) #<unavailable
argument> #<unavailable argument> #<STANDARD-CLASS BAR>)[:EXTERNAL]
  3: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
  4: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]509))
  5: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK ..)
  6: ((SB-PCL::FAST-METHOD SB-MOP:ENSURE-CLASS-USING-CLASS (NULL T))
#<unavailable argument> #<unavailable argument> NIL BAZ)[:EXTERNAL]
  7: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]509))
  8: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK ..)
  9: (SB-MOP:ENSURE-CLASS BAZ)[:EXTERNAL]
 10: (SB-PCL::REAL-LOAD-DEFCLASS BAZ BAR (FOO) NIL NIL NIL NIL NIL
#S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING NIL
:TOPLEVEL-FORM-NUMBER NIL :PLIST NIL) NIL)
 11: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-PCL::LOAD-DEFCLASS 'BAZ 'BAR
'(FOO) (LIST) (LIST) ...) #<NULL-LEXENV>)
 12: (SB-INT:SIMPLE-EVAL-IN-LEXENV ..)
 13: (SB-INT:SIMPLE-EVAL-IN-LEXENV ..)
 14: (SB-INT:SIMPLE-EVAL-IN-LEXENV (DEFCLASS BAZ (FOO) NIL (:METACLASS
BAR)) #<NULL-LEXENV>)

** LispWorks error & backtrace:

CL-USER 4 > (asdf :clsql-fluid)
;;; Compiling file
/home/nico/devel/cl/asdf_install_dir/site/clsql/sql/fluid.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is  on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)
; (TOP-LEVEL-FORM 1)
; (DEFPACKAGE "CLSQL-FLUID-BT")
; (TOP-LEVEL-FORM 3)
; (SUBFUNCTION (DEFSETF CLSQL-FLUID-BT::FLUID-GC-COUNT) (DEFSTRUCT
CLSQL-FLUID-BT::FLUID))
; (SUBFUNCTION (DEFSETF CLSQL-FLUID-BT:FLUID-LOCK) (DEFSTRUCT
CLSQL-FLUID-BT::FLUID))
; (SUBFUNCTION CLSQL-FLUID-BT:MAKE-FLUID (DEFSTRUCT CLSQL-FLUID-BT::FLUID))
; CLSQL-FLUID-BT:FLUID-VALUE
; CLSQL-FLUID-BT::FLUID-GC
; (SETF CLSQL-FLUID-BT:FLUID-VALUE)
; (TOP-LEVEL-FORM 8)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 10)
; (DEFCLASS CLSQL-SYS::SUB-DB-FORWARDING-CLASS)
; (METHOD VALIDATE-SUPERCLASS (CLSQL-SYS::SUB-DB-FORWARDING-CLASS T))
; (METHOD CLOS:SLOT-VALUE-USING-CLASS (CLSQL-SYS::SUB-DB-FORWARDING-CLASS T T))
; (METHOD (SETF CLOS:SLOT-VALUE-USING-CLASS) (T
CLSQL-SYS::SUB-DB-FORWARDING-CLASS T T))
; (METHOD CLOS:SLOT-BOUNDP-USING-CLASS (CLSQL-SYS::SUB-DB-FORWARDING-CLASS T T))
; (METHOD CLOS:SLOT-MAKUNBOUND-USING-CLASS
(CLSQL-SYS::SUB-DB-FORWARDING-CLASS T T))

**++++ Error in (DEFCLASS CLSQL-SYS:FLUID-DATABASE):
  #<STANDARD-CLASS DATABASE 217B30A3> is an invalid superclass of
#<SUB-DB-FORWARDING-CLASS FLUID-DATABASE 22149AE7>.
;;;*** Warning in (METHOD INITIALIZE-INSTANCE :AFTER
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD INITIALIZE-INSTANCE :AFTER (CLSQL-SYS:FLUID-DATABASE))
; CLSQL-SYS::MAKE-FLUID-DATABASE-FLUID
; CLSQL-SYS::FLUID-SUB-DATABASE
; CLSQL-SYS::DEFINE-FLUID-FORWARD
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-TYPE
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-TYPE (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-QUERY (T
CLSQL-SYS:FLUID-DATABASE T T)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-QUERY (T CLSQL-SYS:FLUID-DATABASE T T))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-EXECUTE-COMMAND (T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-EXECUTE-COMMAND (T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-QUERY-RESULT-SET (T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-QUERY-RESULT-SET (T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-DUMP-RESULT-SET (T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-DUMP-RESULT-SET (T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-STORE-NEXT-ROW (T
CLSQL-SYS:FLUID-DATABASE T)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-STORE-NEXT-ROW (T CLSQL-SYS:FLUID-DATABASE T))
;;;*** Warning in (METHOD CLSQL-SYS::DATABASE-TRUNCATE
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS::DATABASE-TRUNCATE (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-CREATE-SEQUENCE (T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-CREATE-SEQUENCE (T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-DROP-SEQUENCE (T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-DROP-SEQUENCE (T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-SEQUENCE-NEXT (T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-SEQUENCE-NEXT (T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-LIST-SEQUENCES
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-LIST-SEQUENCES (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-SET-SEQUENCE-POSITION (T
T CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-SET-SEQUENCE-POSITION (T T
CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-SEQUENCE-LAST (T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-SEQUENCE-LAST (T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS::DATABASE-START-TRANSACTION
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS::DATABASE-START-TRANSACTION (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS::DATABASE-COMMIT-TRANSACTION
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS::DATABASE-COMMIT-TRANSACTION (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS::DATABASE-ABORT-TRANSACTION
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS::DATABASE-ABORT-TRANSACTION (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-LIST-TABLES
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-LIST-TABLES (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-LIST-TABLES-AND-SEQUENCES
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-LIST-TABLES-AND-SEQUENCES
(CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-LIST-VIEWS
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-LIST-VIEWS (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-LIST-INDEXES
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-LIST-INDEXES (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-LIST-TABLE-INDEXES (T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-LIST-TABLE-INDEXES (T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-LIST-ATTRIBUTES (T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-LIST-ATTRIBUTES (T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-ATTRIBUTE-TYPE (T T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-ATTRIBUTE-TYPE (T T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS::DATABASE-ADD-ATTRIBUTE (T T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS::DATABASE-ADD-ATTRIBUTE (T T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS::DATABASE-RENAME-ATTRIBUTE (T T T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS::DATABASE-RENAME-ATTRIBUTE (T T T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-UNDERLYING-TYPE
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-UNDERLYING-TYPE (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-CREATE-LARGE-OBJECT
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-CREATE-LARGE-OBJECT (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-WRITE-LARGE-OBJECT (T T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-WRITE-LARGE-OBJECT (T T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-READ-LARGE-OBJECT (T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-READ-LARGE-OBJECT (T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-DELETE-LARGE-OBJECT (T
CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-DELETE-LARGE-OBJECT (T CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-PREPARE (T T
CLSQL-SYS:FLUID-DATABASE T T)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-PREPARE (T T CLSQL-SYS:FLUID-DATABASE T T))
; (METHOD CLSQL-SYS:DATABASE-TYPE-LIBRARY-LOADED ((EQL :FLUID)))
; (METHOD CLSQL-SYS:DATABASE-TYPE-LOAD-FOREIGN ((EQL :FLUID)))
; (METHOD CLSQL-SYS:DATABASE-INITIALIZE-DATABASE-TYPE ((EQL :FLUID)))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-DISCONNECT
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-DISCONNECT (CLSQL-SYS:FLUID-DATABASE))
;;;*** Warning in (METHOD CLSQL-SYS:DATABASE-RECONNECT
(CLSQL-SYS:FLUID-DATABASE)): Ignoring type declaration with illegal
type CLSQL-SYS:FLUID-DATABASE
; (METHOD CLSQL-SYS:DATABASE-RECONNECT (CLSQL-SYS:FLUID-DATABASE))
; (TOP-LEVEL-FORM 0)
; *** 1 error detected, no fasl file produced.
Warning: COMPILE-FILE warned while performing #<ASDF:COMPILE-OP NIL
2180E873> on #<ASDF:CL-SOURCE-FILE "fluid" 2186C523>.
Warning: COMPILE-FILE failed while performing #<ASDF:COMPILE-OP NIL
2180E873> on #<ASDF:CL-SOURCE-FILE "fluid" 2186C523>.
Error: erred while invoking #<ASDF:COMPILE-OP NIL 2180E873> on
#<ASDF:CL-SOURCE-FILE "fluid" 2186C523>
  1 (continue) Try recompiling fluid
  2 Retry performing #<ASDF:COMPILE-OP NIL 2180E873> on
#<ASDF:CL-SOURCE-FILE "fluid" 2186C523>.
  3 Continue, treating #<ASDF:COMPILE-OP NIL 2180E873> on
#<ASDF:CL-SOURCE-FILE "fluid" 2186C523> as having been successful.
  4 (abort) Return to level 0.
  5 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed,  or :? for other options

CL-USER 5 : 1 > :b
Call to CLOS::METHOD-COMBINATION-TEMPLATE
Call to CLOS::NEXT-METHOD-CALL-2
Call to (METHOD ASDF:PERFORM ASDF:AROUND (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
Call to CLOS::METHOD-COMBINATION-TEMPLATE
Call to (SUBFUNCTION 1 ASDF:OPERATE)
Call to ASDF:OPERATE
Call to ASDF:OOS
Interpreted call to ASDF
Call to EVAL
Call to CAPI::CAPI-TOP-LEVEL-FUNCTION
Call to CAPI::INTERACTIVE-PANE-TOP-LOOP
Call to (SUBFUNCTION MP::PROCESS-SG-FUNCTION MP::INITIALIZE-PROCESS-STACK)

CL-USER 6 : 1 >