minor fixes
authordrewc <drewc@tech.coop>
Wed, 31 May 2006 03:16:58 +0000 (20:16 -0700)
committerdrewc <drewc@tech.coop>
Wed, 31 May 2006 03:16:58 +0000 (20:16 -0700)
darcs-hash:20060531031658-39164-2b331001bc55ebcfb644eb4c695e08f28df5eb16.gz

lisp-on-lines.asd
src/mewa.lisp

index 23446c9..33a79ed 100644 (file)
@@ -18,7 +18,6 @@
                                     (:file "special-initargs")
                                     (:file "properties")                                      
                                     (:file "mewa")
-                                    (:file "validation")
                                     (:file "lisp-on-lines")  
                                     (:file "defdisplay")
                                     (:file "standard-display")
index 7a27b77..25c8f07 100644 (file)
 (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))