diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index c4c097cf0d408df6368ce241e136f39705eb5e21..4dfa5bda2080ac6bf5132dd1d729c47180db7d5b 100644 --- a/compiler/fndb.lisp +++ b/compiler/fndb.lisp @@ -401,7 +401,7 @@ (defknown elt (sequence index) t (foldable flushable)) -(defknown subseq (sequence index &optional index) consed-sequence +(defknown subseq (sequence index &optional sequence-end) consed-sequence (foldable flushable) :derive-type 'result-type-arg1) (defknown copy-seq (sequence) consed-sequence (foldable flushable)