aboutsummaryrefslogtreecommitdiff
path: root/json-template.lisp
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-03-02 16:03:42 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-03-02 16:03:42 +0100
commit056d9cf493d06541852291aa5e3ca22068709af4 (patch)
tree8ef34e7a23fa24e098870db36a9cd59667e1d543 /json-template.lisp
parentd51b377a23914c7033764158079238f9a1de5edf (diff)
Remove debugging statements.
Diffstat (limited to 'json-template.lisp')
-rw-r--r--json-template.lisp6
1 files changed, 1 insertions, 5 deletions
diff --git a/json-template.lisp b/json-template.lisp
index 5b0a9b8..7aacee6 100644
--- a/json-template.lisp
+++ b/json-template.lisp
@@ -156,21 +156,17 @@
(format stream "~A"
(if filter
(funcall (cdr (assoc filter *template-filters*))
- value)
+ value)
value)))))
(:section
(destructuring-bind (section branch alternative) (cdr thing)
(let ((value (lookup-context contexts section)))
- (print "section")
- (print value)
(expand-template-to-stream (if value branch alternative)
(cons value contexts)
stream))))
(:repeated-section
- (print "repeat")
(destructuring-bind (section branch alternative) (cdr thing)
(let ((value (lookup-context contexts section)))
- (print value)
(if value
(mapc (lambda (ctx)
(expand-template-to-stream branch (cons ctx contexts) stream))