The value NIL is not of type SB-C::IR2-BLOCK

[Paul F. Dietz]

(defun bug217 ()
  (declare (notinline funcall not))
  (labels ((%f1 ()
             (labels ((%f2 (&key (key1
                                  (if (not t)
                                      (ignore-errors 0)
                                      0)))
                        (declare (ignore key1))
                        0))
               (funcall #'%f2))))
    (%f1)))

==>

The value
  NIL
is not of type
  SB-C::IR2-BLOCK
   [Condition of type TYPE-ERROR]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] abort thread (#<THREAD tid=17741 "repl-thread" RUNNING {10010E80A3}>)

Backtrace:
  0: (SB-C::STACK-ANALYZE #<SB-C:COMPONENT :NAME "<unknown>" {100704E423}>)
  1: (SB-C::%COMPILE-COMPONENT #<SB-C:COMPONENT :NAME "<unknown>" {100704E423}>)
  2: (SB-C::COMPILE-COMPONENT #<SB-C:COMPONENT :NAME "<unknown>" {100704E423}>)
  3: (SB-C::%COMPILE (SB-INT:NAMED-LAMBDA BUG217 NIL (DECLARE (NOTINLINE FUNCALL NOT)) (BLOCK BUG217 (LABELS # #))) NIL NIL)
 [...]

x86-64, "2.3.7.121-ea5d41ba1"

[Paul F. Dietz (paul-f-dietz)]

Not seeing this fix on master.