mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-18 07:12:26 -08:00
cmp: c2catch uses GENSYM instead of incrementing *last-label*
The assigned "code" is only part of the comment, so it is clearly not the label.
This commit is contained in:
parent
97411d9e32
commit
77f0810d22
1 changed files with 1 additions and 1 deletions
|
|
@ -146,7 +146,7 @@
|
|||
(defun c2catch (c1form tag body)
|
||||
(declare (ignore c1form))
|
||||
(let* ((new-destination (tmp-destination *destination*))
|
||||
(code (incf *last-label*)))
|
||||
(code (gensym "CATCH")))
|
||||
(let ((*destination* 'VALUE0))
|
||||
(c2expr* tag))
|
||||
(let* ((*destination* new-destination)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue