minor fixes

[clinton/lisp-on-lines.git] / src / mewa.lisp

diff --git a/src/mewa.lisp b/src/mewa.lisp
index 7a27b77..25c8f07 100644 (file)
--- a/src/mewa.lisp
+++ b/src/mewa.lisp
@@ -37,14 +37,14 @@
 (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)
@@ -287,7 +287,10 @@ otherwise, (setf find-attribute)"
   (: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))