:accessor slot-definition-type)
(documentation
:initform nil
- :initarg :documentation)
+ :initarg :documentation
+ ;; FIXME: should we export this, as an extension?
+ :accessor %slot-definition-documentation)
(class
:initform nil
:initarg :class
:initarg :from-defclass-p)))
(defclass definition-source-mixin (standard-object)
- ((source :initform *load-pathname* :reader definition-source
- :initarg :definition-source)))
+ ((source
+ :initform nil
+ :reader definition-source
+ :initarg :definition-source)))
(defclass plist-mixin (standard-object)
((plist :initform () :accessor object-plist)))