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

(eval '(block b3

                 (max (return-from b3 1)
                 (if (unwind-protect (unwind-protect 2)) 3 4))))
	 => nil is not of type c::ref

	* src/compiler/envanal.lisp (emit-cleanups): Don't generate
	a %funcall If second arg of :unwind-protect cleanup is unused.
	Found by Paul Dietz.
parent ae24b059
No related branches found
No related tags found
Loading
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