summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-03 01:03:44 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-03 01:03:44 +0200
commitd9bac74c435f1f5985561c59de12df4b51a7cfe2 (patch)
tree0c2156ac47b30b8d0a5ba991435fddaa92c5cfa1
parenta9a0a5613a250c8a3dd4b53b837d977806a23b67 (diff)
TAGBODY: Use descriptive GENSYM names.
-rw-r--r--control-flow.lisp10
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 ()