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:
d288288
)
fixed braino in DISPLAY dispatch.
author
Drew Crampsie
<drewc@tech.coop>
Sun, 8 Jan 2006 01:08:25 +0000
(17:08 -0800)
committer
Drew Crampsie
<drewc@tech.coop>
Sun, 8 Jan 2006 01:08:25 +0000
(17:08 -0800)
darcs-hash:
20060108010825
-5417e-
26457489da24cfb39521939d863a87006cfcee9f
.gz
src/standard-display.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/standard-display.lisp
b/src/standard-display.lisp
index
2a72992
..
ffca8b5
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
t
) &rest args &key layers (type 'viewer) &allow-other-keys)
+ ((component t) (object
standard-class
) &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))))