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

(compile nil

	 '(lambda (a b c)
		  (declare (notinline logandc2 not))
		  (declare (optimize (safety 3)))
		  (declare (optimize (speed 0)))
		  (declare (optimize (debug 0)))
		  (let ((v10
			 (let ((v5 (if (not nil) -4 (logandc2 68392 c))))
			      c)))
		       a)))
	 => assertion failure, (not (block-delete-p block))

	* src/compiler/ir1opt.lisp (recognize-known-call): Treat
	:inline and :maybe-inline like :notinline if byte-compiling
	or converting for interpreter.  Reported by Paul Dietz.
parent a7ed2dae
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