From f7ee743d11dde85cff2ec73f134a240fa0e53456 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard 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