From ba0bb5b26b72e079cb0dcb30077b8770bcfd55fa Mon Sep 17 00:00:00 2001 From: Nathan Froyd Subject: [PATCH 35/39] use DEFCONSTANT for *MIN-WORD-LENGTH* --- src/lisp/solver.lisp | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lisp/solver.lisp b/src/lisp/solver.lisp index 89ebf5d..ba6c5d3 100755 --- a/src/lisp/solver.lisp +++ b/src/lisp/solver.lisp @@ -29,7 +29,7 @@ "../../dict/english_270k.txt")) ;; "../../dict/small.txt")) (defvar *test-board-dimensions* '(100 100)) -(defparameter *min-word-length* 3) +(defconstant +min-word-length+ 3) (defparameter *max-search-depth* 16) ;; includes @@ -87,8 +87,8 @@ (setq tr (get-child tr #\Q))) ;; Any words in the trie ? - (when (and (>= (length word) *min-word-length*) - (trie-include-prune-p tr word)) + (when (and (>= (length word) +min-word-length+) + (trie-include-prune-p tr word)) (setf (aref word fi) #\Newline) (write-string word nil :end (1+ fi))) -- 1.6.2