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