#245: Slots of a class with a custom meta-class are reported as unbound. -----------------------+---------------------------------------------------- Reporter: sboukarev | Owner: ehuelsmann Type: defect | Status: new Priority: major | Milestone: Component: (A)MOP | Version: Keywords: | -----------------------+---------------------------------------------------- {{{ (defpackage test2 (:use :cl :mop))

(in-package test2)

(defclass storable-class (standard-class) ())

(defmethod validate-superclass ((class standard-class) (superclass storable-class)) t)

(defmethod validate-superclass ((class storable-class) (superclass standard-class)) t)

;;;

(defclass identifiable () ((id :accessor id :initform 1)) (:metaclass storable-class)) }}}

ID slot is unbound and bound at the same time, despite having an initform.

(describe (make-instance 'identifiable)) #<IDENTIFIABLE {181F4B24}> is an instance of #<STORABLE-CLASS IDENTIFIABLE {1E4B2D10}>. The following slots have :INSTANCE allocation: ID unbound

(slot-boundp (make-instance 'identifiable) 'id) => NIL

(slot-value (make-instance 'identifiable) 'id) => 1