diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-02 16:03:42 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-02 16:03:42 +0100 |
commit | 056d9cf493d06541852291aa5e3ca22068709af4 (patch) | |
tree | 8ef34e7a23fa24e098870db36a9cd59667e1d543 | |
parent | d51b377a23914c7033764158079238f9a1de5edf (diff) |
Remove debugging statements.
-rw-r--r-- | json-template.lisp | 6 |
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)) |