(prepare-function :initarg :prepare-function :type (or symbol function)
:reader sod-slot-prepare-function))
(:documentation
(prepare-function :initarg :prepare-function :type (or symbol function)
:reader sod-slot-prepare-function))
(:documentation
These slots need class-specific initialization. It's easier to keep all
of the information (name, type, and how to initialize them) about these
These slots need class-specific initialization. It's easier to keep all
of the information (name, type, and how to initialize them) about these
((slot sod-class-slot) slot-names &key pset)
(declare (ignore slot-names))
(default-slot (slot 'initializer-function)
((slot sod-class-slot) slot-names &key pset)
(declare (ignore slot-names))
(default-slot (slot 'initializer-function)
(prepare-function :initarg :prepare-function :type (or symbol function)
:reader effective-slot-prepare-function))
(:documentation
(prepare-function :initarg :prepare-function :type (or symbol function)
:reader effective-slot-prepare-function))
(:documentation
This class ignores any explicit initializers and computes initializer
values using the slot's INIT-FUNC slot and a magical protocol during
This class ignores any explicit initializers and computes initializer
values using the slot's INIT-FUNC slot and a magical protocol during
(defmethod print-object ((entry method-entry) stream)
(maybe-print-unreadable-object (entry stream :type t)
(defmethod print-object ((entry method-entry) stream)
(maybe-print-unreadable-object (entry stream :type t)
(let ((method (find message
(sod-class-effective-methods subclass)
:key #'effective-method-message)))
(let ((method (find message
(sod-class-effective-methods subclass)
:key #'effective-method-message)))