diff options
| -rw-r--r-- | control-flow.lisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/control-flow.lisp b/control-flow.lisp index 03825be..0ffb306 100644 --- a/control-flow.lisp +++ b/control-flow.lisp @@ -92,10 +92,10 @@ (defmacro tagbody (&body body) (let* (labels-and-catch-tags labels-and-functions - (catch-tag (gensym)) - (block-name (gensym)) - (return-value-sym (gensym)) - (end-marker (gensym)) + (catch-tag (gensym "TAGBODY-CATCH-TAG")) + (block-name (gensym "TAGBODY-BLOCK-NAME")) + (return-value-sym (gensym "TAGBODY-RETURN-VALUE")) + (end-marker (gensym "TAGBODY-END")) (sections (mapcon (let (current-label accumulated-clauses @@ -112,7 +112,7 @@ labels-and-catch-tags)) (let ((old-function current-function)) (setq current-label clause - current-function (gensym)) + current-function (gensym "TAGBODY-SECTION")) (prog1 (when old-function `((,old-function () |