From d9bac74c435f1f5985561c59de12df4b51a7cfe2 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 3 Aug 2008 01:03:44 +0200
Subject: TAGBODY: Use descriptive GENSYM names.

---
 control-flow.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'control-flow.lisp')

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 ()
-- 
cgit v1.2.3