Bug with CATCH w. constant form

[Paul Dietz]

(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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/armedbear-devel/attachments/20200507/c8293130/attachment.htm>