Commit 06431d5e3194e0a6ff2715ee8950dcb263ed9af0

Thomas de Grivel 2013-12-23T10:30:01

Fix dumplicate var declarations in compiled templates.

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/template.lisp b/template.lisp
index 50701f1..d1ceacd 100644
--- a/template.lisp
+++ b/template.lisp
@@ -133,7 +133,7 @@
   (let (vars)
     (do-tree (x sexp)
       (when (and (symbolp x) (eq *template-vars-package* (symbol-package x)))
-	(push x vars)))
+	(pushnew x vars :test #'eq)))
     (nreverse vars)))
 
 (defun compile-template (template)