(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*
(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)