diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-31 00:31:47 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-31 00:31:47 +0200 |
| commit | f7ee743d11dde85cff2ec73f134a240fa0e53456 (patch) | |
| tree | af803aac26a874a6aa5ef70a8555cfe6991184c1 | |
| parent | e262e11181ae43e80ecb80066ab7c2907e1d0678 (diff) | |
Cosmetic improvements.
| -rw-r--r-- | control-flow.lisp | 2 |
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)) |