Skip to content
Snippets Groups Projects
Commit dba261e1 authored by gerd's avatar gerd
Browse files

(loop for i in '(4 8 9 a 13)

	      when (eq i 'a) return :good
	      while (< i 12) collect i)

	signaling a type-error because the while is done before the when.
	Found by Paul Dietz.

	* src/code/loop.lisp (loop-do-if): Move the call to loop-pseudo-body
	outside of the binding of *loop-inside-conditional*.
parent 4d01ae3b
No related branches found
No related tags found
No related merge requests found
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment