- (format *display* "~{~A~%~}"
- (mapcar
- (lambda (attribute)
- (with-output-to-string (*display*)
- (display-attribute *object* attribute)))
- (attributes description))))
+ (let ((attributes (attributes description)))
+ (display-attribute (first attributes))
+ (dolist (attribute (rest attributes) (values))
+ (generic-format *display*
+ (attribute-value
+ (find-attribute description 'attribute-delimiter)))
+ (display-attribute attribute))))
+
+
+(define-display :around ((description t) (display null) object)
+ (with-output-to-string (*standard-output*)
+ (call-next-layered-method description t object)))
+