summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-07-31 00:31:47 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-07-31 00:31:47 +0200
commitf7ee743d11dde85cff2ec73f134a240fa0e53456 (patch)
treeaf803aac26a874a6aa5ef70a8555cfe6991184c1
parente262e11181ae43e80ecb80066ab7c2907e1d0678 (diff)
Cosmetic improvements.
-rw-r--r--control-flow.lisp2
1 files changed, 0 insertions, 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))