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)