[Bese-devel] LispWorks and UCW

[Marco Baringer]

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).

>    (defmethod mopp:validate-superclass ((c %meta-class) (s mopp:standard-class)) t)
>  
> -  (defclass %dsd (mopp:standard-direct-slot-definition)
> +  (defclass %dsd (#-lispworks mopp:standard-direct-slot-definition
> +                              #+lispworks clos::standard-direct-slot-definition)
>      ((%slot :accessor %slot :initarg :%slot :initform nil)))
>  
>    (defmethod mopp:direct-slot-definition-class ((c %meta-class) &rest initargs)