From 7553e5e8a09f7ee07bf759e99b996925b060f9b9 Mon Sep 17 00:00:00 2001 From: drewc Date: Tue, 30 May 2006 20:16:58 -0700 Subject: [PATCH] minor fixes darcs-hash:20060531031658-39164-2b331001bc55ebcfb644eb4c695e08f28df5eb16.gz --- lisp-on-lines.asd | 1 - src/mewa.lisp | 9 ++++++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp-on-lines.asd b/lisp-on-lines.asd index 23446c9..33a79ed 100644 --- a/lisp-on-lines.asd +++ b/lisp-on-lines.asd @@ -18,7 +18,6 @@ (:file "special-initargs") (:file "properties") (:file "mewa") - (:file "validation") (:file "lisp-on-lines") (:file "defdisplay") (:file "standard-display") diff --git a/src/mewa.lisp b/src/mewa.lisp index 7a27b77..25c8f07 100644 --- 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)) -- 2.20.1