HCoop
/
clinton
/
lisp-on-lines.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2259a10
)
braino that was in the archive somehow but not in my tree.
author
Drew Crampsie
<drewc@tech.coop>
Thu, 12 Jan 2006 02:00:29 +0000
(18:00 -0800)
committer
Drew Crampsie
<drewc@tech.coop>
Thu, 12 Jan 2006 02:00:29 +0000
(18:00 -0800)
darcs-hash:
20060112020029
-5417e-
7463a116acfaaa7e860d5aee7561815c903f9fa2
.gz
src/standard-display.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/standard-display.lisp
b/src/standard-display.lisp
index
ffca8b5
..
6f5a096
100644
(file)
--- a/
src/standard-display.lisp
+++ b/
src/standard-display.lisp
@@
-103,7
+103,7
@@
default action is to FUNCALL-WITH-LAYERS the DISPLAY-USING-DESCRIPTION method."))
(define-layered-method display
- ((component t) (object standard-class) &rest args &key layers (type 'viewer) &allow-other-keys)
+ ((component t) (object standard-object) &rest args &key layers (type 'viewer) &allow-other-keys)
(let* ((occurence (find-occurence object))
(plist (attribute.plist
(find-attribute occurence (intern (format nil "~A" type) :KEYWORD))))