[closer-devel] c2mop:standard-class not used in lispworks

[Piotr Wasik]

Hi,

I have tried the following in LispWorks:

CL-USER 1 > (c2cl:defclass foo () ((s1)))
#<STANDARD-CLASS FOO 201010AB>

CL-USER 2 > (c2mop:slot-boundp-using-class (find-class 'foo)
(make-instance 'foo) (first (harlequin-common-lisp:class-slots
(find-class 'foo))))

Error: The slot #<STANDARD-EFFECTIVE-SLOT-DEFINITION S1 23A4C803> is
missing from #<FOO 23A4C2B7> (of class #<STANDARD-CLASS FOO 201010AB>)


The thing is that specialisation defined in
https://github.com/mcna/closer-mop/blob/master/closer-lispworks.lisp uses
standard-class from c2mop, which is later exported, but nothing forces
subsequent code to use it instead of cl:standard-class.

Of course (eq (find-class 'cl:standard-class) (find-class
'c2mop:standard-class)) --> NIL

When I explicitely use c2mop:standard-class however, the specialisation
from closer-mop.lisp is used:

(c2cl:defclass foo () ((s1)) (:metaclass c2mop:standard-class))
(c2mop:slot-boundp-using-class (find-class 'foo) (make-instance 'foo)
(first (harlequin-common-lisp:class-slots (find-class 'foo))))
NIL


As expected. How can it be fixed please? Is there any test suite that can
check what other functionality is affected?

Cheers,
Piotr
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/closer-devel/attachments/20131102/52c97192/attachment.html>