projects
/
wolf
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add test coverage check
[wolf]
/
src
/
main
/
wolf.lisp
diff --git
a/src/main/wolf.lisp
b/src/main/wolf.lisp
index 776a535ae57c1f51106b048f22f048f4d1aeb55f..0426111c7f7ede36dec67c57dc95d05c1cdcd535 100644
(file)
--- a/
src/main/wolf.lisp
+++ b/
src/main/wolf.lisp
@@
-1,3
+1,4
@@
+; Copyright 2022 Frank Duncan (frank@consxy.com) under AGPL3. See distributed LICENSE.txt.
(in-package #:wolf)
; Some thoughts
(in-package #:wolf)
; Some thoughts
@@
-12,9
+13,9
@@
(defvar *state* nil)
(defvar *line-no* nil)
(defvar *col-no* nil)
(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)
(defvar *form-stack* nil)
(defvar *form-ended-on-same-line* nil)
+(defparameter *evaluators* nil)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *possible-states*
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *possible-states*
@@
-56,9
+57,7
@@
(defmacro defevaluator (state match func)
(when (not (find state *possible-states*)) (error "~A is an invalid state" state))
(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)
(defun evaluate (text)
(if (string= "" text)