Properties are special now!

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

diff --git a/src/standard-descriptions/inline.lisp b/src/standard-descriptions/inline.lisp
new file mode 100644 (file)
index 0000000..9d05b65
--- /dev/null
+++ b/src/standard-descriptions/inline.lisp
@@ -0,0 +1,16 @@
+(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))))