This shows the same bug:
* (tagbody (go loop) (HANDLER-CASE (PRINT "You wan't see this") (error nil)) loop)
; 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 c5>)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists:
target:compiler/ir1util.lisp.
0]
It works compiled, though:
* (funcall (compile nil '(lambda () (tagbody (go loop) (HANDLER-CASE (PRINT "You wan't
see this"))
loop))))
; In: LAMBDA NIL
; (PRINT "You wan't see this")
; Note: Deleting unreachable code.
;
; Compiling LAMBDA NIL:
; Compiling Top-Level Form:
; Compilation unit finished.
; 1 note
NIL
*
It also works under SBCL.
Paul
