From 5c633869482b9b532d8cd409aa2214d435fa5cfc Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Sat, 7 Jan 2006 17:08:25 -0800
Subject: [PATCH] fixed braino in DISPLAY dispatch.

darcs-hash:20060108010825-5417e-26457489da24cfb39521939d863a87006cfcee9f.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 2a72992..ffca8b5 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 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))))
-- 
2.20.1