From b3ad6185585ddd597fda8b318dfd57e7d0d25dc4 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Wed, 2 Mar 2011 18:08:25 +0100
Subject: Look up filters properly.

---
 json-template.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/json-template.lisp b/json-template.lisp
index 7aacee6..0e39004 100644
--- a/json-template.lisp
+++ b/json-template.lisp
@@ -155,8 +155,9 @@
          (let ((value (lookup-context contexts variable)))
            (format stream "~A"
                    (if filter
-                       (funcall (cdr (assoc filter *template-filters*))
-                                  value)
+                       (funcall (cdr (assoc filter *template-filters*
+                                            :test #'equal))
+                                value)
                        value)))))
       (:section
        (destructuring-bind (section branch alternative) (cdr thing)
-- 
cgit v1.2.3