From 87d6efd344fb95d412bee235d95890ac104f6e4b Mon Sep 17 00:00:00 2001
From: Nathan Froyd <froydnj@gmail.com>
Subject: [PATCH 06/39] remove spurious Q variable in FIND-WORDS

---
 src/lisp/solver.lisp |    7 ++-----
 1 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/lisp/solver.lisp b/src/lisp/solver.lisp
index 7f3e4d0..5877c28 100755
--- a/src/lisp/solver.lisp
+++ b/src/lisp/solver.lisp
@@ -72,10 +72,8 @@
   ;; the letter as used in the word
   (setf (letter-used ltr) t)
   
-  (let ((cc (letter-value ltr))
-        (q nil))
-    (declare (type character cc)
-             (type q boolean))
+  (let ((cc (letter-value ltr)))
+    (declare (type character cc))
 
     ;; create a new word according to the search depth
     (setf (aref word fi) cc)
@@ -86,7 +84,6 @@
     ;; handle Q's
     (if (eql cc #\Q)
         (progn
-          (setq q t)
           (setq cc #\U)
           (setf (aref word fi) cc)
           (setq fi (+ fi 1))
-- 
1.6.2