From 40d7d6998ea5ec54ec19be85fc1dc2e244874051 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Subject: [PATCH 37/39] slightly more efficient check for word-in-trie --- src/lisp/structs.lisp | 8 ++------ 1 files changed, 2 insertions(+), 6 deletions(-) diff --git a/src/lisp/structs.lisp b/src/lisp/structs.lisp index 399ac1f..a704596 100755 --- a/src/lisp/structs.lisp +++ b/src/lisp/structs.lisp @@ -174,12 +174,8 @@ (if (eql letter 0) (if (eql (trie-text tr) nil) nil - (if (not (trie-is-word tr)) - nil - (let ((parent (trie-parent tr))) - (setf (trie-is-word tr) nil) - #+nil (dec-word-count tr) - t))) + (prog1 (trie-is-word tr) + (setf (trie-is-word tr) nil))) (let* ((ind (- letter (char-code #\A))) (children (trie-children tr)) (ttr (aref children ind))) -- 1.6.2