From e1993bc05044815c587bbdedd85636e4b7ad7ad0 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 7 Feb 1990 11:09:07 +0000 Subject: [PATCH] Fixed SUBSEQ's END arg to be SEQUENCE-END rather than INDEX, i.e. NIL is allowed. --- compiler/fndb.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index c4c097cf0..4dfa5bda2 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) -- GitLab