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

cmp: fix compiler macro for sequence functions with :end argument

Browse source 
The :end argument was ignored previously.
This commit is contained in:
Marius Gerbershagen 2019-12-22 16:37:40 +01:00
parent 35e4a9160f
commit a4e93f7b61
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -161,7 +161,9 @@
(unless ,test (return ,output))
(let ((,%elt (si::seq-iterator-ref ,%sequence ,%iterator)))
,@body)
(setf ,%iterator (si::seq-iterator-next ,%sequence ,%iterator)))))))
(setf ,%iterator (si::seq-iterator-next ,%sequence ,%iterator))
,(when end
`(decf ,%counter)))))))
;;;
;;; MEMBER