[clinton/lisp-on-lines.git] / src / standard-descriptions / inline.lisp

(in-package :lisp-on-lines)

(define-description inline ())

(define-description t ()
  ((identity :label nil)
   (active-attributes :value (identity)))
  (:in-description inline))

(define-display :in-description inline ((description t))
  (format *display* "~{~A ~}" 
	  (mapcar 
	   (lambda (attribute)
	     (with-output-to-string (*display*)
	       (display-attribute *object* attribute)))
	   (attributes description))))
Commit	Line	Data
6de8d300	1	(in-package :lisp-on-lines)
	2
	3	(define-description inline ())
	4
	5	(define-description t ()
	6	((identity :label nil)
	7	(active-attributes :value (identity)))
	8	(:in-description inline))
	9
	10	(define-display :in-description inline ((description t))
	11	(format display "~{~A ~}"
	12	(mapcar
	13	(lambda (attribute)
	14	(with-output-to-string (display)
	15	(display-attribute object attribute)))
	16	(attributes description))))