[Bese-devel] LispWorks and UCW

[Juergen Gmeiner]

Marco Baringer wrote:
> Juergen Gmeiner <gj at gjdv.at> writes:
> 
> 
>>diff -rN -udp old-ucw_0.3.7/libs/arnesi/src/mopp.lisp new-ucw_0.3.7/libs/arnesi/src/mopp.lisp
>>--- old-ucw_0.3.7/libs/arnesi/src/mopp.lisp	2005-02-28 18:03:38.000000000 +0100
>>+++ new-ucw_0.3.7/libs/arnesi/src/mopp.lisp	2005-03-24 23:38:50.000000000 +0100
>>@@ -335,12 +335,13 @@ object wrapping OBJECT."
>> ;;;; mopp:direct-slot-definition-value accordingly.
>> 
>> #+mopp::have-mop
>>-(eval-when (:compile-toplevel :execute)
>>-  (defclass %meta-class (standard-class) ())
>>+(progn ;; class not defined when loading
>>+  (defclass %meta-class (cl:standard-class) ())
> 
> 
> is is the same if we just add the :load-toplevel here? (openmcl needs
> :compile-toplevel for this to work).
> 
> 

does not work, i get

; (DEFCLASS IT.BESE.ARNESI.MOPP%INTERNALS::%META-CLASS)


**++++ Error in (METHOD IT.BESE.ARNESI.MOPP:VALIDATE-SUPERCLASS 
(IT.BESE.ARNESI.MOPP%INTERNALS::%META-CLASS 
IT.BESE.ARNESI.MOPP:STANDARD-CLASS)):
   IT.BESE.ARNESI.MOPP:STANDARD-CLASS is not the name of a class
; (TOP-LEVEL-FORM 5)
; *** 1 error detected, no fasl file produced.


how about:

(eval-when (#-lispworks :compile-toplevel :load-toplevel :execute)

   (defclass %meta-class (cl:standard-class) ())

this works on lispworks/linux - i can't check openmcl ;-)

cheers,
juergen