Here's a simpler example:
* (tagbody (go loop) (BLOCK G1472 #'(LAMBDA () (RETURN-FROM G1472 NIL))) loop)
; ; (BLOCK G1472 #'(LAMBDA # #))
; Note: Deleting unreachable code.
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
:INVALID-OBJECT is not of type C:COMPONENT
Restarts:
0: [ABORT] Return to Top-Level.
Debug (type H for help)
(C::CONTINUATION-STARTS-BLOCK #<Continuation c21>)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists:
target:compiler/ir1util.lisp.
0] 0
*
