diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-02 18:08:25 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-02 18:08:25 +0100 |
| commit | b3ad6185585ddd597fda8b318dfd57e7d0d25dc4 (patch) | |
| tree | c561516975a536fa399cf0090265b210ea4f3a0a | |
| parent | 24cc1cca3f60f69747dba83127c61e7c4615013a (diff) | |
Look up filters properly.
| -rw-r--r-- | json-template.lisp | 5 |
1 files 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) |