-
- (let* ((description (find-occurence object)))
-
- (if description
- (dletf (((description.type description) type)
- ((attributes description) (or
- (attributes description)
- (list-slots object))))
- ;; apply the default line to the description
- (funcall-with-description
- description
- (funcall line object)
- ;; apply the passed in arguments and call display-using-description
- #'(lambda ()
- (funcall-with-description
- description
- properties
- #'display-using-description description object component))))
- (error "no description for ~A" object))))