[Sbcl-devel] BUG: block compilation causes internal compiler error

[Eric M. <ema...@la...>]

Block-compiling (using the :block-compile argument to COMPILE-FILE)
causes an internal error on a simple file containing

,----
| (defun foo (x)
|   (list x))
| 
| (defun bar (x)
|   (+ x (foo x)))
`----


debugger invoked on condition of type TYPE-ERROR:
  The value NIL is not of type SB-C::NODE.
restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT   ] Reduce debugger level (leaving debugger, returning to toplevel).
  1: [TOPLEVEL] Restart at toplevel READ/EVAL/PRINT loop.
(SB-C::IR1-OPTIMIZE-BLOCK 1 #<SB-C::CBLOCK 2 :START c1 {9015DB9}>)[:EXTERNAL]
0] backtrace

0: (SB-C::IR1-OPTIMIZE-BLOCK 1 #<SB-C::CBLOCK 2 :START c1 {9015DB9}>)[:EXTERNAL]
1: (SB-C::IR1-OPTIMIZE 1 #<SB-C:COMPONENT :NAME "top level form" {901C449}>)[:EXTERNAL]
2: (SB-C::IR1-OPTIMIZE-UNTIL-DONE
    1
    #<SB-C:COMPONENT :NAME "top level form" {901C449}>)[:EXTERNAL]
3: (SB-C::IR1-PHASES 1 #<SB-C:COMPONENT :NAME "top level form" {901C449}>)[:EXTERNAL]
4: (SB-C::COMPILE-COMPONENT
    1
    #<SB-C:COMPONENT :NAME "top level form" {901C449}>)[:EXTERNAL]

-- 
Eric Marsden                          <URL:http://www.laas.fr/~emarsden/>