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