From 6b7576a0e998145d4d67d0f4dfe684689bb001bb Mon Sep 17 00:00:00 2001
From: Nathan Froyd <froydnj@gmail.com>
Subject: [PATCH 34/39] add SPEED/SPACE/DEBUG to FIND-WORDS

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

diff --git a/src/lisp/solver.lisp b/src/lisp/solver.lisp
index f71821d..89ebf5d 100755
--- a/src/lisp/solver.lisp
+++ b/src/lisp/solver.lisp
@@ -60,7 +60,7 @@
 
 (defun find-words (ltr word fi tr)
   "Recursively find words by searching dictionary"
-
+  (declare (optimize (speed 3) (space 0) (debug 0)))
   (declare 
    (type (simple-array character (*)) word)
    (type trie tr)
-- 
1.6.2