mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed a typo in DEFSEQ.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-03-19 19:36:39 +01:00
parent 66e128ab8a
commit fbd8eb1863
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/seqlib.lsp
View file

@ -233,7 +233,7 @@
most-positive-fixnum)
(t count))))))
(declare (fixnum ,last-index
,@(and countp (list count))))
,@(and countp '(count))))
nil
(if from-end ,from-end-form ,normal-form))))))))
(do-defseq ,f ,args ,countp ,everywherep)