Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    2b5e775c
    (eval '(block b3 · 2b5e775c
    gerd authored
                     (max (return-from b3 1)
                     (if (unwind-protect (unwind-protect 2)) 3 4))))
    	 => nil is not of type c::ref
    
    	* src/compiler/envanal.lisp (emit-cleanups): Don't generate
    	a %funcall If second arg of :unwind-protect cleanup is unused.
    	Found by Paul Dietz.
    2b5e775c
    History
    (eval '(block b3
    gerd authored
                     (max (return-from b3 1)
                     (if (unwind-protect (unwind-protect 2)) 3 4))))
    	 => nil is not of type c::ref
    
    	* src/compiler/envanal.lisp (emit-cleanups): Don't generate
    	a %funcall If second arg of :unwind-protect cleanup is unused.
    	Found by Paul Dietz.