SLOT is a direct slot defined on CLASS or one of its superclasses.
(Metaclass initializers are handled using a different mechanism.)"))
+(export 'find-class-initializer)
+(defgeneric find-class-initializer (slot class)
+ (:documentation
+ "Return an initializer value (any printable value) for a class slot SLOT.
+
+ The initializer might come either from the SLOT's defining class (which it
+ already knows), or from the instance CLASS, of which the defining class is
+ be (a superclass of) the metaclass.
+
+ This is used as part of `has-class-initializer-p' and the default output
+ hook for `effective-slot': if you override both of those then you don't
+ need to override this too."))
+
;;;--------------------------------------------------------------------------
;;; Instance layout.
object's metadata; but that would either require a search or we'd have to
be able work out the target chain's index in the table."))
+(export 'make-chain-offset)
(defgeneric make-chain-offset (class chain-head target-head)
(:documentation
"Return the offset from CHAIN-HEAD to TARGET-HEAD."))