[bknr-cvs] edi changed trunk/thirdparty/cl-who/who.lisp

[BKNR Commits]

Revision: 4343
Author: edi
URL: http://bknr.net/trac/changeset/4343

Patch from Slawek Zak

U   trunk/thirdparty/cl-who/who.lisp

Modified: trunk/thirdparty/cl-who/who.lisp
===================================================================
--- trunk/thirdparty/cl-who/who.lisp	2009-03-23 14:36:59 UTC (rev 4342)
+++ trunk/thirdparty/cl-who/who.lisp	2009-03-26 19:04:54 UTC (rev 4343)
@@ -174,7 +174,7 @@
   "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 @@
                       (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)