Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    56fd6636
    (compile nil · 56fd6636
    gerd authored
    	 '(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.
    56fd6636
    History
    (compile nil
    gerd authored
    	 '(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.