From bbc8d727e5720b028602dcd20b1d2a32f8b9509c Mon Sep 17 00:00:00 2001
From: Nathan Froyd <froydnj@gmail.com>
Subject: [PATCH 32/39] declare TRIE-INCLUDE-PRUNE-P's argument properly

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

diff --git a/src/lisp/structs.lisp b/src/lisp/structs.lisp
index 46a9d0c..08f9f9d 100755
--- a/src/lisp/structs.lisp
+++ b/src/lisp/structs.lisp
@@ -167,7 +167,7 @@
   "Tests whether the str is a complete word in the trie.
    If true then the word is pruned from the trie."
   (declare (type trie tr)
-           (type string str))
+           (type (simple-array character (*)) str))
   (let* ((byte (aref str (trie-level tr)))
          (letter (char-code byte))) 
     (if (eql letter 0)
@@ -177,7 +177,7 @@
                 nil
                 (let ((parent (trie-parent tr)))
                   (setf (trie-is-word tr) nil)
-                  (dec-word-count tr)
+                  #+nil (dec-word-count tr)
                   t)))
         (let* ((ind (- letter (char-code #\A)))
                (children (trie-children tr))
-- 
1.6.2