From a7218bc2dfaef4ef1a311a994bdc3e6150c490d1 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Subject: [PATCH 12/39] clean up PROGN ugliness in TRIE-BEGIN-P --- src/lisp/structs.lisp | 12 +++++------- 1 files changed, 5 insertions(+), 7 deletions(-) diff --git a/src/lisp/structs.lisp b/src/lisp/structs.lisp index e75592a..d9e861e 100755 --- a/src/lisp/structs.lisp +++ b/src/lisp/structs.lisp @@ -196,13 +196,11 @@ (let* ((byte (aref str (trie-level tr))) (letter (char-code byte))) (if (eql letter 0) - (progn - (not (eql nil (trie-children tr)))) - (progn - (let* ((ind (- letter (char-code #\A))) - (children (trie-children tr)) - (ttr (aref children ind))) - (and (not (eql ttr 0)) (trie-begin-p ttr str))))))) + (not (eql nil (trie-children tr))) + (let* ((ind (- letter (char-code #\A))) + (children (trie-children tr)) + (ttr (aref children ind))) + (and (not (eql ttr 0)) (trie-begin-p ttr str)))))) (defun inc-word-count (tr) (declare (type trie tr)) -- 1.6.2