X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/6de8d30004efc9337b8c40d2ff2d0a76651d23eb..e8d4fa4537a1655714ad8bbbf9b7ba2d85ead959:/src/ucw/html-description.lisp?ds=sidebyside

diff --git a/src/ucw/html-description.lisp b/src/ucw/html-description.lisp
index 57c8125..120d317 100644
--- a/src/ucw/html-description.lisp
+++ b/src/ucw/html-description.lisp
@@ -5,7 +5,6 @@
 (define-description html-description ()
   ())
 
-
 (define-description t ()
   ((css-class  :value "lol-description" :activep nil)
    (dom-id :function (lambda (x)
@@ -39,8 +38,9 @@
   (:method (object attribute)
     (<:span 
 	:class "lol-attribute-value"
-	(<:as-html   (with-output-to-string (*display*)
-		 (display-attribute-value object attribute))))
+	(<:as-html   
+	 (with-output-to-string (*display*)
+	   (display-attribute-value object attribute))))
 ))
 
 (define-layered-function display-html-attribute (object attribute)
@@ -127,7 +127,9 @@ clear: left;
   )
 
 (define-display 
-  :in-description html-description ((description t) (display lol-ucw:component) object )
+  :in-description html-description ((description t) 
+				    (display lol-ucw:component) 
+				    object)
   (display-html-description description display object))