tons of small changes to bring this up to date with maxclaims 2.0

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

diff --git a/src/standard-descriptions/inline.lisp b/src/standard-descriptions/inline.lisp
index b04914e..3f349dd 100644 (file)
--- a/src/standard-descriptions/inline.lisp
+++ b/src/standard-descriptions/inline.lisp
@@ -15,6 +15,16 @@
   ()
   ())
 
+(defun display-inline (object &rest args)
+  (with-active-descriptions (inline)
+    (apply #'display *display* object args)))
+
+(defun display-inline-attribute (attribute value)
+  (if (ignore-errors (lol::attribute-active-attributes attribute))
+      (handler-case (display-inline value :attributes (lol::attribute-active-attributes attribute))
+       (error ()
+         (display-inline value)))
+      (display-inline value)))
+
+
 
-(define-display :in-description inline ((description t))               
-               (call-next-method))