From dd95031c41ee41250d898941d6359ac7465e398c Mon Sep 17 00:00:00 2001 From: Edi Weitz Date: Thu, 26 Mar 2009 19:04:54 +0000 Subject: Patch from Slawek Zak git-svn-id: svn://bknr.net/svn/trunk/thirdparty/cl-who@4343 4281704c-cde7-0310-8518-8e2dc76b1ff0 --- who.lisp | 7 +++++-- 1 file 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) -- cgit v1.2.3