Misc Cleanups.

[clinton/lisp-on-lines.git] / src / ucw / html-description.lisp

diff --git a/src/ucw/html-description.lisp b/src/ucw/html-description.lisp
index 4ec32cc..1bc264b 100644 (file)
--- a/src/ucw/html-description.lisp
+++ b/src/ucw/html-description.lisp
@@ -128,6 +128,8 @@
              :writer (make-attribute-value-writer attribute)))
 
 
+
+
 (define-layered-method display-attribute-editor 
    :in-layer #.(defining-description 'html-description) (attribute)
    (display-html-attribute-editor attribute (attribute-editor attribute)))
@@ -206,15 +208,8 @@ clear: left;
 
 (define-layered-method display-html-attribute-value 
   (object (attribute list-attribute))
-   (<:ul
-     (arnesi:dolist* (item (attribute-value attribute))
-       (<:li (apply #'display *display* item (slot-value attribute 'item-args))))))
-
-
-
-
-     
-      
-  
-               
-  
+  (let ((val (attribute-value attribute)))
+    (when (listp  val) 
+      (<:ul
+       (arnesi:dolist* (item (attribute-value attribute))
+        (<:li (apply #'display *display* item (slot-value attribute 'item-args))))))))
\ No newline at end of file