Patch from Slawek Zak

git-svn-id: svn://bknr.net/svn/trunk/thirdparty/cl-who@4343 4281704c-cde7-0310-8518-8e2dc76b1ff0

1 files changed, 5 insertions, 2 deletions

diff --git a/who.lisp b/who.lisp
index 39ce788..42579b4 100644
--- a/who.lisp
+++ b/who.lisp
@@ -174,7 +174,7 @@ can use EQL specializers on the first argument."
   "Transforms an HTML tree into an intermediate format - mainly a
 flattened list of strings. Utility function used by TREE-TO-COMMANDS-AUX."
   (loop for element in tree
-        when (or (keywordp element)
+        if (or (keywordp element)
                  (and (listp element)
                       (keywordp (first element)))
                  (and (listp element)
@@ -182,8 +182,11 @@ flattened list of strings. Utility function used by TREE-TO-COMMANDS-AUX."
                       (keywordp (first (first element)))))
         ;; the syntax for a tag - process it
         nconc (process-tag element #'tree-to-template)
+        ;; list - insert as sexp
+        else if (consp element)
+        collect `(let ((*indent* ,*indent*)) ,element)
+        ;; something else - insert verbatim     
         else
-        ;; something else - insert verbatim
         collect element))
 
 (defun string-list-to-string (string-list)