Hello,
I seem to have two problems with some loop statements,
Problem 1.
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 :
(PRINT "You wan't see this")
Note: Deleting unreachable code.
(HANDLER-CASE (PRINT "You wan't see this")
(ERROR (CONDITION_1) (PRINC 'ERROR)))
--> BLOCK LET TAGBODY RETURN-FROM
==>
(LET ((CONDITION_1 #:G1))
(PRINC 'ERROR))
Note: Variable CONDITION_1 defined but never used.
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>)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer
exists:
target:compiler/ir1util.lisp.
0]
Problem 2. There seems to be a problem with the theris keyword
(loop for i from 0
theris (when (> i 0) i)
gives the following error:
THERIS is an unknown keyword in LOOP macro.
Current LOOP context: THERIS (WHEN (> I 0) I).
Restarts:
0: [ABORT] Return to Top-Level.
Debug (type H for help)
(ANSI-LOOP::LOOP-ITERATION-DRIVER)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer
exists:
target:code/loop.lisp.
0]
The version of CMUCL I'm using is mentioned in the startup text below.
CMU Common Lisp 18e-pre, built 2002-12-19 on melbourne, running on snark
Send questions to [EMAIL PROTECTED] and bug reports to [EMAIL PROTECTED]
Loaded subsystems:
Python 1.0, target Intel x86
CLOS based on PCL version: September 16 92 PCL (f)
Any help will be really appreciated.
Marc Mertens
[EMAIL PROTECTED]
