Bug with loop and handler-case ?

[Marc Mertens]

Hello, 

    I just loaded and installed the latest version of CMUCL for linux,
version CMU Common Lisp 18e-pre1 2003-03-23-004 to test
if a bug concerning loop and handler case has been solved. 
Unfourtenately it still seems to be a problem, I narrowed it down
to the following code :


(defun  thisworks ()
  (loop never t
        finally (print "You wan't see this"))) 
(thisworks)

works, however  

(defun thisdoesnotworks ()
  (loop never t
        finally (handler-case (print "You wan't see this")
                              (error ()))))

(thisdoesnotworks)

gives 

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 c1>)
Source: Error finding source: 
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer 
exists:
  target:compiler/ir1util.lisp.
0] 


I know that I have posted this earlier, but this problem is really bugging me,
can someone help me.


Thanks a lot in advance.


Marc Mertens