From 63f0d9f1af25460ec527bd22a8068932e1e25dc3 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Mon, 2 Jun 2014 22:21:55 +0000 Subject: avoid setq in subseq --- gcl/lsp/gcl_seqlib.lsp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/gcl/lsp/gcl_seqlib.lsp b/gcl/lsp/gcl_seqlib.lsp index 09bbc1a6..2f0a66b6 100755 --- a/gcl/lsp/gcl_seqlib.lsp +++ b/gcl/lsp/gcl_seqlib.lsp @@ -212,10 +212,9 @@ (declare (optimize (safety 1))) (check-type s sequence) (check-type start seqind) - (unless end (setq end array-dimension-limit)) - (check-type end seqind) + (check-type end (or null seqind)) - (let ((s s)(start start)(end end)) + (let ((s s)(start start)(end (or end array-dimension-limit))) (declare (sequence s) (seqind start end)) (cond ((listp s) (do ((i start (1+ i))(r)(rp)(p (nthcdr start s) (cdr p))) ((or (>= i end) (endp p)) r) -- cgit v1.2.3