[Openmcl-devel] mop issue
mb at bese.it
Sat Oct 2 09:41:19 EDT 2004
i originally thought this was a miss understanding on my part, but
sbcl and cmucl both deal with this code without a hitch.
(defclass kclass (standard-class)
(defmethod mopp:validate-superclass ((sub kclass) (super standard-class))
(defclass super ()
(defmethod mopp:compute-class-precedence-list ((class kclass))
(let ((cpl (call-next-method))
(super-cpl (mopp:class-precedence-list (find-class 'super))))
(if (member (find-class 'super) cpl)
(append (remove-if (lambda (class) (member class super-cpl)) cpl)
(defclass foo ()
(defclass bar (foo)
when attempting to define the BAR class i get an "Inconsistent
superclasses for #<KCLASS BAR>" error. i think the issue in in
ccl::compute-cpl, but my understanding of the MOP (and in particular
openmcl's implementation) is way to weak to figure out what's wrong.
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
More information about the Openmcl-devel