X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=wolf;a=blobdiff_plain;f=src%2Fmain%2Fwolf.lisp;fp=src%2Fmain%2Fwolf.lisp;h=0426111c7f7ede36dec67c57dc95d05c1cdcd535;hp=a5f6f697b8e77be0151b65fe5f32da49d96b0a03;hb=32e40fe970531962c4b12e9ff5ae6558995feb62;hpb=4c7b410b80d93e6374344b4f837b33b2b900e24a

diff --git a/src/main/wolf.lisp b/src/main/wolf.lisp
index a5f6f69..0426111 100644
--- a/src/main/wolf.lisp
+++ b/src/main/wolf.lisp
@@ -13,9 +13,9 @@
 (defvar *state* nil)
 (defvar *line-no* nil)
 (defvar *col-no* nil)
-(defvar *evaluators* nil)
 (defvar *form-stack* nil)
 (defvar *form-ended-on-same-line* nil)
+(defparameter *evaluators* nil)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
  (defparameter *possible-states*
@@ -57,9 +57,7 @@
 
 (defmacro defevaluator (state match func)
  (when (not (find state *possible-states*)) (error "~A is an invalid state" state))
- (let
-  ((scanner (gensym)))
-  `(pushnew (make-evaluator ,state ,match ,func) *evaluators*)))
+ `(pushnew (make-evaluator ,state ,match ,func) *evaluators*))
 
 (defun evaluate (text)
  (if (string= "" text)