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

(compile nil '(lambda (a)

		(declare (type (integer -30078003 47403) a))
		(unwind-protect
		    (if (ldb-test (byte 6 23) 828450)
			(logandc1 -1 (min -34 (block b2 a)))
		      a))))
	 => The assertion (C::CONSTANT-CONTINUATION-P C::CONT) failed,
	    in %unwind-protect/ir2-convert

	* src/compiler/ir1util.lisp (delete-block): Don't remove
	block end cleanups unless *converting-for-interpreter*.
	Reported by Paul Dietz.
parent 2e460b97
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