From 056d9cf493d06541852291aa5e3ca22068709af4 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Wed, 2 Mar 2011 16:03:42 +0100 Subject: Remove debugging statements. --- json-template.lisp | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'json-template.lisp') 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)) -- cgit v1.2.3