From nicodnn at gmail.com  Tue May 19 11:51:52 2009
From: nicodnn at gmail.com (Nico De Jager)
Date: Tue, 19 May 2009 13:51:52 +0200
Subject: [clsql-fluid-devel] clsql-fluid and LispWorks
Message-ID: <9d4fe0e0905190451v2b05cb62radb55e513de24ce@mail.gmail.com>

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 >



From s11 at member.fsf.org  Tue May 19 18:49:32 2009
From: s11 at member.fsf.org (Stephen Compall)
Date: Tue, 19 May 2009 13:49:32 -0500
Subject: [clsql-fluid-devel] clsql-fluid and LispWorks
In-Reply-To: <9d4fe0e0905190451v2b05cb62radb55e513de24ce@mail.gmail.com> (Nico
	De Jager's message of "Tue, 19 May 2009 13:51:52 +0200")
References: <9d4fe0e0905190451v2b05cb62radb55e513de24ce@mail.gmail.com>
Message-ID: <m2ljot3p37.fsf@nocandy.dyndns.org>

Nico De Jager <nicodnn at gmail.com> writes:
> 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.

The piece you are missing is a method on `validate-superclass'.  See the
AMOP docs for details.

> 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]

As mentioned here.

> **++++ 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

The problem may be that Lispworks wants to call validate-superclass when
compiling defclass or defgeneric.  I define a VS method in the file
before those forms, but it is of course not evalled and added to the GF
until actually loading.  Would you try this patch and let me know
whether it helps?

-------------- next part --------------
A non-text attachment was scrubbed...
Name: clsql-fluid.lispworksp.diff
Type: text/x-diff
Size: 1190 bytes
Desc: a patch
URL: <https://mailman.common-lisp.net/pipermail/clsql-fluid-devel/attachments/20090519/d9df3248/attachment.diff>
-------------- next part --------------

-- 
Sorry but you say Nibiru is a Hoax?  Doesnt Exist?  So maybe The
Sumerian people doesnt exist also! --Anonymous by way of SkI

From ndj at bitart.cc  Wed May 20 16:28:48 2009
From: ndj at bitart.cc (Nico de Jager)
Date: Wed, 20 May 2009 18:28:48 +0200
Subject: [clsql-fluid-devel] clsql-fluid and LispWorks
In-Reply-To: <m2ljot3p37.fsf@nocandy.dyndns.org> (Stephen Compall's message of
	"Tue, 19 May 2009 13:49:32 -0500")
References: <9d4fe0e0905190451v2b05cb62radb55e513de24ce@mail.gmail.com>
	<m2ljot3p37.fsf@nocandy.dyndns.org>
Message-ID: <8763fvviv3.fsf@galileo.bitart.cc>

Thank you, Stephen. clsql-fluid compiles and loads on LispWorks after
applying your patch. 

Regards.
Nico


Stephen Compall <s11 at member.fsf.org> writes:

> Nico De Jager <nicodnn at gmail.com> writes:
>> 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.
>
> The piece you are missing is a method on `validate-superclass'.  See the
> AMOP docs for details.
>
>> 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]
>
> As mentioned here.
>
>> **++++ 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
>
> The problem may be that Lispworks wants to call validate-superclass when
> compiling defclass or defgeneric.  I define a VS method in the file
> before those forms, but it is of course not evalled and added to the GF
> until actually loading.  Would you try this patch and let me know
> whether it helps?
>
>
> diff --git a/sql/fluid.lisp b/sql/fluid.lisp
> index 26494b8..8a5a876 100644
> --- a/sql/fluid.lisp
> +++ b/sql/fluid.lisp
> @@ -82,13 +82,14 @@ NEW-VALUE."
>    ()
>    (:documentation "Forward some slots to an underlying database."))
>  
> -(defmethod c2mop:validate-superclass ((class sub-db-forwarding-class) superclass)
> -  "Allow standard-class, c2mop:standard-class, and myself."
> -  (and (eql (class-of class) (find-class 'sub-db-forwarding-class))
> -       (loop with scc = (class-of superclass)
> -	     for ccname in '(standard-class c2mop::standard-class
> -			     sub-db-forwarding-class)
> -	     thereis (eql scc (find-class ccname)))))
> +(eval-when (:compile-toplevel :load-toplevel :execute)
> +  (defmethod c2mop:validate-superclass ((class sub-db-forwarding-class) superclass)
> +    "Allow standard-class, c2mop:standard-class, and myself."
> +    (and (eql (class-of class) (find-class 'sub-db-forwarding-class))
> +	 (loop with scc = (class-of superclass)
> +	       for ccname in '(standard-class c2mop::standard-class
> +			       sub-db-forwarding-class)
> +	       thereis (eql scc (find-class ccname))))))
>  
>  (defmethod c2mop:slot-value-using-class
>      ((class sub-db-forwarding-class) inst slot-def)



From s11 at member.fsf.org  Thu May 21 01:46:43 2009
From: s11 at member.fsf.org (Stephen Compall)
Date: Wed, 20 May 2009 20:46:43 -0500
Subject: [clsql-fluid-devel] clsql-fluid and LispWorks
In-Reply-To: <8763fvviv3.fsf@galileo.bitart.cc> (Nico de Jager's message of
	"Wed, 20 May 2009 18:28:48 +0200")
References: <9d4fe0e0905190451v2b05cb62radb55e513de24ce@mail.gmail.com>
	<m2ljot3p37.fsf@nocandy.dyndns.org> <8763fvviv3.fsf@galileo.bitart.cc>
Message-ID: <m2ab57448s.fsf@nocandy.dyndns.org>

Nico de Jager <ndj-JxuIrPVgl5nF11Dp+j+f1g at public.gmane.org> writes:
> Thank you, Stephen. clsql-fluid compiles and loads on LispWorks after
> applying your patch.

Thanks for the testing, I applied this in Git and Darcs.

-- 
Sorry but you say Nibiru is a Hoax?  Doesnt Exist?  So maybe The
Sumerian people doesnt exist also! --Anonymous by way of SkI