From f7ee743d11dde85cff2ec73f134a240fa0e53456 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 31 Jul 2008 00:31:47 +0200
Subject: Cosmetic improvements.

---
 control-flow.lisp | 2 --
 1 file changed, 2 deletions(-)

diff --git a/control-flow.lisp b/control-flow.lisp
index 1996175..90176f0 100644
--- a/control-flow.lisp
+++ b/control-flow.lisp
@@ -47,7 +47,6 @@
 (defmacro #.+go-tag-function-mapping-sym+ () nil)
 (defmacro #.+go-tag-catch-tag-mapping-sym+ () nil)
 
-;; FIXME: Implement TAGBODY and GO.
 (defmacro go (tag &environment env)
   `(throw ',(cdr (assoc tag (cadr (macroexpand `(,+go-tag-catch-tag-mapping-sym+)
                                                env))))
@@ -55,7 +54,6 @@
                                                    env)))))))
 
 (defmacro tagbody (&body body)
-  ;;(declare (optimize debug))
   (let* (labels-and-catch-tags
          labels-and-functions
          (catch-tag (gensym))
-- 
cgit v1.2.3