diff options
| -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)) |