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

(compile nil '(lambda (a c)

		(declare (notinline 1+))
		(declare (optimize (speed 0)))
		(declare (optimize (debug 0)))
		(unwind-protect
		    (block b5 (1+ (unwind-protect
	                           (if a (return-from b5 -30179678) c)))))))
	 => assertion failed (EQUAL (C::BYTE-BLOCK-INFO-START-STACK
	                            EXTENSIONS:INFO)

	* src/compiler/byte-comp.lisp (walk-block): #+nil an
	assertion.  Reported by Paul Dietz.
parent f6332522
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