From f1309a37002d2fc516da89529a465e711f12f929 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Subject: [PATCH 10/39] fix declarations in GET-CHILD --- src/lisp/structs.lisp | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lisp/structs.lisp b/src/lisp/structs.lisp index 9c060ef..c79cd69 100755 --- a/src/lisp/structs.lisp +++ b/src/lisp/structs.lisp @@ -224,11 +224,11 @@ (defun get-child (tr ch) (declare (type trie tr) - (type character ch) - (type trie tt) - (type (unsigned-byte 8) ind)) + (type character ch)) (let* ((ind (- (char-code ch) (char-code #\A))) (tt (aref (trie-children tr) ind))) + (declare (type (or trie (integer 0 0)) tt) + (type (unsigned-byte 8) ind)) (if (eql 0 tt) (progn (setf tt (make-trie :level (+ (trie-level tr) 1))) -- 1.6.2