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))))