((name
:initform nil
:initarg :name
- :accessor generic-function-name)
+ :reader generic-function-name)
(methods
:initform ()
:accessor generic-function-methods
: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
specializer)
((name
:initform nil
- :initarg :name
- :accessor class-name)
+ :initarg :name
+ :reader class-name)
(class-eq-specializer
:initform nil
:reader class-eq-specializer)
: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)))