braino that was in the archive somehow but not in my tree.
authorDrew Crampsie <drewc@tech.coop>
Thu, 12 Jan 2006 02:00:29 +0000 (18:00 -0800)
committerDrew 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

index ffca8b5..6f5a096 100644 (file)
  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))))