From a9e8666b1a6d25968417c113de844798aa9103f1 Mon Sep 17 00:00:00 2001 From: Drew Crampsie Date: Wed, 11 Jan 2006 18:00:29 -0800 Subject: [PATCH] braino that was in the archive somehow but not in my tree. darcs-hash:20060112020029-5417e-7463a116acfaaa7e860d5aee7561815c903f9fa2.gz --- src/standard-display.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/standard-display.lisp b/src/standard-display.lisp index ffca8b5..6f5a096 100644 --- 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)))) -- 2.20.1