Marc Mertens <[EMAIL PROTECTED]> writes:
> When I execute (loop never t finally (princ 'error)) everything works
> as expected howver if I modify this statement to :
> (loop never t finally (handler-case (print "You wan't see this")
> (error (condition_1) (princ 'error))))
>
> I get the following error :
>
[...]
> 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 c9>)
Wew, and a trace shows
0: (c::continuation-starts-block #<Continuation c40>)
0: c::*current-component* = #<Unknown Immediate Object, lowtag=#b10, type=#x1A
{B6E1A}>
And with C::*CHECK-COMSISTENCY* true,
Error in function c::barf: #<c::entry #x4814F215> was not reached.
Restarts:
0: [continue ] Ignore this error.
1: [ignore-all] Ignore this and all future occurrences of this error.
2: [abort ] Return to Top-Level.
Debug (type H for help)
(c::barf "~S was not reached." #<c::entry #x4814F215>)
Source: Error finding source:
Error in function debug::get-file-top-level-form: Source file no longer exists:
target:compiler/debug.lisp.
0] back 10
0: (c::barf "~S was not reached." #<c::entry #x4814F215>)
1: (c::check-node-consistency
#<c::exit #x48151255 entry= #<c::entry #x4814F215>>)
2: (c::check-block-consistency #<c::cblock Start = c1 {481511AD}>)
3: (c::check-ir1-consistency
(#<c:component #x48152D3D name= "loop never" reanalyze= t>))
