From b57957e283594515619c75ff9e6588ea7c1aa97d Mon Sep 17 00:00:00 2001 From: Nathan Froyd Subject: [PATCH 09/39] discard useless declaration in CURR-LETTER --- src/lisp/structs.lisp | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) diff --git a/src/lisp/structs.lisp b/src/lisp/structs.lisp index c7a8e97..9c060ef 100755 --- a/src/lisp/structs.lisp +++ b/src/lisp/structs.lisp @@ -97,8 +97,7 @@ (defun curr-letter (tr str) "returns the current letter code for the level" (declare (type trie tr) - (type string str) - (type (unsigned-byte 8) letter)) + (type string str)) (let ((level (trie-level tr))) (if (> (length str) level) (char-code (aref str level)) -- 1.6.2