mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-12 20:31:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed type warning in macroexpansion of sequece iterators

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-09-21 09:25:26 +02:00
parent bd4f3597ed
commit 09ae1f43c0
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpopt-sequence.lsp
View file

@ -140,8 +140,9 @@
(defmacro do-in-seq ((%elt sequence &key (start 0) end output) &body body)
(ext:with-unique-names (%start %iterator %counter %sequence)
(let* ((counter (and end `(- (or ,end most-positive-fixnum)
,%start)))
(let* ((counter (if end
`(- (or ,end most-positive-fixnum) ,%start)
0))
(test (if end
`(and ,%iterator (plusp ,%counter))
%iterator)))