failed AVER: (NOT (EQL (SB-C::LAMBDA-KIND SB-C::CLAMBDA) :DELETED)) in code with GO to missing tag

[Paul F. Dietz]

(defun bug006 (c)
    (flet ((%f15
               (f15-1 &optional (f15-2 0) (f15-3 c)
                      (f15-4
                       ((lambda (&rest args)
                          (+ (restart-bind nil (go missing-tag))
                             (progv nil nil 0)
                             )))))
             ))
      ))
==>

failed AVER:
    (NOT (EQL (SB-C::LAMBDA-KIND SB-C::CLAMBDA) :DELETED))
This is probably a bug in SBCL itself. (Alternatively, SBCL
might have been corrupted by bad user code, e.g. by an undefined
Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers
from alien code or from unsafe Lisp code; or there might be a
bug in the OS or hardware that SBCL is running on.) If it seems
to be a bug in SBCL itself, the maintainers would like to know
about it. Bug reports are welcome on the SBCL mailing lists,
which you can find at <http://sbcl.sourceforge.net/>.
   [Condition of type SB-INT:BUG]

Restarts:
 0: [RETRY] Retry EVAL of current toplevel form.
 1: [CONTINUE] Ignore error and continue loading file "/home/pdietz/ansi-test/bug006.lisp".
 2: [ABORT] Abort loading file "/home/pdietz/ansi-test/bug006.lisp".
 3: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: (SB-C::DFO-SCAVENGE-DEPENDENCY-GRAPH #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (LET (#)) :KIND :DELETED :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINE..
  1: ((LABELS SB-C::SCAVENGE-LAMBDA :IN SB-C::DFO-SCAVENGE-DEPENDENCY-GRAPH) #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (LAMBDA (&REST ARGS) :IN BUG006) :KIND :LET :TYPE #<SB-KERNEL:BUILT..
  2: (SB-C::DFO-SCAVENGE-DEPENDENCY-GRAPH #<SB-C::CLAMBDA :%SOURCE-NAME #:CLEANUP-FUN-6 :%DEBUG-NAME (FLET "CLEANUP-FUN-6" :IN BUG006) :KIND :CLEANUP :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only..
  3: (SB-C::FIND-INITIAL-DFO (#<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (SB-C::TL-XEP BUG006) :KIND :EXTERNAL :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFIN..
  4: (SB-C::%COMPILE (SB-INT:NAMED-LAMBDA BUG006 (C) (BLOCK BUG006 (FLET #))) #<SB-C::CORE-OBJECT {100D9E5113}> :NAME NIL :PATH (SB-C::ORIGINAL-SOURCE-START 0 1))
  5: ((FLET "LAMBDA0" :IN "SYS:SRC;COMPILER;TARGET-MAIN.LISP"))
[...]