From 95fb8d50283fad371505b4139fca8aaf25bc4e75 Mon Sep 17 00:00:00 2001
From: Nathan Froyd <froydnj@gmail.com>
Subject: [PATCH 33/39] add SPEED/SPACE/DEBUG to TREE-INCLUDE-PRUNE-P

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

diff --git a/src/lisp/structs.lisp b/src/lisp/structs.lisp
index 08f9f9d..2f4ccbc 100755
--- a/src/lisp/structs.lisp
+++ b/src/lisp/structs.lisp
@@ -168,6 +168,7 @@
    If true then the word is pruned from the trie."
   (declare (type trie tr)
            (type (simple-array character (*)) str))
+  (declare (optimize (speed 3) (space 0) (debug 0)))
   (let* ((byte (aref str (trie-level tr)))
          (letter (char-code byte))) 
     (if (eql letter 0)
-- 
1.6.2