Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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...
commit dd95031c41ee41250d898941d6359ac7465e398c 1 parent 22a45b7
Edi Weitz authored
Showing with 5 additions and 2 deletions.
  1. +5 −2 who.lisp
View
7 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)
Please sign in to comment.
Something went wrong with that request. Please try again.