...
 
Commits (2)
......@@ -438,6 +438,15 @@
(reducing arg by op initial-value start))
13)
(deftest in-stream.reiter
(let ((s (make-string-input-stream "1 2 3 4 5")))
(iter (for n below 2)
(for line in-stream s))
(iter (for n below 2)
(for line in-stream s)
(collect line)))
(3 4))
(deftest reducing.0
(iter (with expr = '(2 + 10 - 5 + 6))
(with start = (pop expr))
......
......@@ -2693,11 +2693,12 @@ e.g. (DSETQ (VALUES (a . b) nil c) form)"
reader stream-var nil `',eof))
',eof) (go ,*loop-end*))
.,setq)
:final-protected `((if (streamp ,stream-var)
(close ,stream-var)))
:final-protected (when (eq stream-or-file :file)
`((if (streamp ,stream-var)
(close ,stream-var))))
:variable var)))
;;; (FOR NEXT)
(defclause-driver (for var next next)
"General driver; VAR is set to value of NEXT"
......