<div dir="ltr"><div><div><div>Hi,<br><br></div>I have tried the following in LispWorks:<br><br><pre class="">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>)</pre><br>The thing is that specialisation defined in <a href="https://github.com/mcna/closer-mop/blob/master/closer-lispworks.lisp">https://github.com/mcna/closer-mop/blob/master/closer-lispworks.lisp</a> uses standard-class from c2mop, which is later exported, but nothing forces subsequent code to use it instead of cl:standard-class.<br>
<br></div>Of course (eq (find-class 'cl:standard-class) (find-class 'c2mop:standard-class)) --> NIL<br><br></div>When I explicitely use c2mop:standard-class however, the specialisation from closer-mop.lisp is used:<br>
<br><pre class="">(c2cl:defclass foo () ((s1)) (:metaclass c2mop:standard-class))<br>(c2mop:slot-boundp-using-class (find-class 'foo) (make-instance 'foo) (first (harlequin-common-lisp:class-slots (find-class 'foo))))
NIL<br></pre><br>As expected. How can it be fixed please? Is there any test suite that can check what other functionality is affected?<br><br>Cheers,<br>Piotr<br></div>