Commit 03840582 authored by Michael's avatar Michael

Syncing from Monotone at 20131102201933

parent 36aa2db4
......@@ -186,6 +186,7 @@ like e. g. *ESCAPE-TYPE*."
(defparameter *template-tag-expand*
`(("\\s+@if\\s+(\\S+)\\s*" . " (cond ((cl-emb::getf-emb \"\\1\") ")
("\\s+@ifnotempty\\s+(\\S+)\\s*" . " (cond ((> (length (cl-emb::getf-emb \"\\1\")) 0) ")
("\\s+@ifequal\\s+(\\S+)\\s+(\\S+)\\s*" . " (cond ((equal (format nil \"~a\" (cl-emb::getf-emb \"\\1\")) (format nil \"~a\" (cl-emb::getf-emb \"\\2\"))) ")
("\\s+@else\\s*" . " ) (t ")
("\\s+@endif\\s*" . " )) ")
("\\s+@unless\\s+(\\S+)\\s*" . " (cond ((not (cl-emb::getf-emb \"\\1\")) ")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment