(compile nil '(lambda () (dotimes (i 1 2) (catch 'c 3))))
==>
COMPILE-TAGBODY: tag not found: 3 [Condition of type SIMPLE-ERROR]
Restarts: 0: [TOP-LEVEL] Return to top level.
Backtrace: 0: (#<FUNCTION {6495CFA3}> #<SIMPLE-ERROR {74889B81}> #<FUNCTION {6495CFA3}>) 1: (APPLY #<FUNCTION {6495CFA3}> (#<SIMPLE-ERROR {74889B81}> #<FUNCTION {6495CFA3}>)) 2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<SIMPLE-ERROR {74889B81}> #<FUNCTION {6495CFA3}>) 3: (INVOKE-DEBUGGER #<SIMPLE-ERROR {74889B81}>) 4: (COMPILE NIL (LAMBDA NIL (DOTIMES (I 1 2) (CATCH 'C 3)))) 5: (SYSTEM::%EVAL (COMPILE NIL '(LAMBDA NIL (DOTIMES # #)))) 6: (EVAL (COMPILE NIL '(LAMBDA NIL (DOTIMES # #)))) 7: (SYSTEM:INTERACTIVE-EVAL (COMPILE NIL '(LAMBDA NIL (DOTIMES # #)))) 8: (TOP-LEVEL::REPL) 9: (TOP-LEVEL::TOP-LEVEL-LOOP)
________________________________ The information contained in this e-mail and any attachments from GrammaTech, Inc may contain confidential and/or proprietary information, and is intended only for the named recipient to whom it was originally addressed. If you are not the intended recipient, any disclosure, distribution, or copying of this e-mail or its attachments is strictly prohibited. If you have received this e-mail in error, please notify the sender immediately by return e-mail and permanently delete the e-mail and any attachments.