src/standard-descriptions/inline.lisp

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