Permalink
Browse files

Patch from Slawek Zak

git-svn-id: svn://bknr.net/svn/trunk/thirdparty/cl-who@4343 4281704c-cde7-0310-8518-8e2dc76b1ff0
  • Loading branch information...
1 parent 22a45b7 commit dd95031c41ee41250d898941d6359ac7465e398c Edi Weitz committed Mar 26, 2009
Showing with 5 additions and 2 deletions.
  1. +5 −2 who.lisp
View
@@ -174,16 +174,19 @@ 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)
(listp (first element))
(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)

0 comments on commit dd95031

Please sign in to comment.