Fixed unterminating recursion in who-ps-html when element has attributes but no content.

diff --git a/src/lib/ps-html.lisp b/src/lib/ps-html.lisp
index d2d96cc..d1488cf 100644 (file)
--- a/src/lib/ps-html.lisp
+++ b/src/lib/ps-html.lisp
@@ -52,7 +52,8 @@
                       (push (format nil "<~A" (car form)) r)
                       (let (content)
                         (labels ((process-attributes (attrs)
-                                   (cond ((= 1 (length attrs)) (setf content (car attrs)))
+                                   (cond ((null attrs) )
+                                         ((= 1 (length attrs)) (setf content (car attrs)))
                                          ((consp (car attrs))
                                           (push `(if ,(first attrs)
                                                      (concat-string ,(format nil " ~A=\"" (second attrs)) ,(third attrs) "\"")