Commit ffc414eb authored by Henrik Hjelte's avatar Henrik Hjelte
Browse files

wrap code in progns, to avoid possiblity of multiple nil tags in tagbody

darcs-hash:9ecc45d1834bb9584f2d4fb2c3b57da2b7af0f77
parent 20ef584b
......@@ -569,14 +569,14 @@ Evaluate (iterate:display-iterate-clauses) for an overview of clauses"
(prepend (default-driver-code) body)
(let ((it-bod `(block ,*block-name*
(tagbody
,.init-code
(progn ,.init-code)
,*loop-top*
,.body
(progn ,.body)
,.(if *loop-step-used?* (list *loop-step*))
,.steppers
(progn ,.steppers)
(go ,*loop-top*)
,.(if *loop-end-used?* (list *loop-end*))
,.final-code)
(progn ,.final-code))
,(if (member *result-var* *bindings* :key #'car)
*result-var*
nil))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment