(defmethod print-object ((self description) stream)
(print-unreadable-object (self stream :type t)
(with-slots (description-type) self
- (format t "~A" description-type))))
+ (format stream "~A" description-type))))
;;;; * Occurences
(defvar *occurence-map* (make-hash-table)
"a display is generated by associating an 'occurence'
with an instance of a class. This is usually keyed off class-name,
-although an arbitrary occurence can be used with an arbitrary class.")
+although an arbitrary occurence could be used with an arbitrary class.")
(define-layered-class
standard-occurence (description)
(:documentation " Like SLOT-VALUE for instances, the base method calls GETTER."))
(defmethod attribute-slot-value (instance attribute)
- "Return (VALUES slot-value-or-nil existsp boundp"
+ "Return (VALUES slot-value-or-nil existsp boundp
+
+If this attribute, in its current context, refers to a slot,
+we return slot-value-or nil either boundp or not."
(let (existsp boundp slot-value-or-nil)
(cond
((and (slot-boundp attribute 'slot-name) (slot-name attribute))