default action is to FUNCALL-WITH-LAYERS the DISPLAY-USING-DESCRIPTION method."))
(define-layered-method display
default action is to FUNCALL-WITH-LAYERS the DISPLAY-USING-DESCRIPTION method."))
(define-layered-method display
(let* ((occurence (find-occurence object))
(plist (attribute.plist
(find-attribute occurence (intern (format nil "~A" type) :KEYWORD))))
(let* ((occurence (find-occurence object))
(plist (attribute.plist
(find-attribute occurence (intern (format nil "~A" type) :KEYWORD))))