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:
Daniel Kochmański 2023-11-14 11:09:48 +01:00
parent 97411d9e32
commit 77f0810d22

View file

@ -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)