X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/e8fd1a9a2f3b68a8aee14b8776ff8398ba717eef..ec6dde1ef5ec97747c6ebfcc7f35b3d9da75843f:/src/ucw/html-description.lisp

diff --git a/src/ucw/html-description.lisp b/src/ucw/html-description.lisp
index 4ec32cc..1bc264b 100644
--- 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