X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffull-eval.lisp;h=83c1122db93a9274daadff067aa183b88d6ed20d;hb=0e03a9ac950b78d776c4869c809e202d9e929f39;hp=56208a054bdb9997c45e532ced98c9879b2dac1c;hpb=970dd272dc84f7420252eadb4829cc193f795716;p=sbcl.git

diff --git a/src/code/full-eval.lisp b/src/code/full-eval.lisp
index 56208a0..83c1122 100644
--- a/src/code/full-eval.lisp
+++ b/src/code/full-eval.lisp
@@ -893,7 +893,8 @@
          (do ((form body (cdr form)))
              ((null form) nil)
            (when (atom (car form))
-             ;; FIXME: detect duplicate tags
+             (when (assoc (car form) tags)
+               (ip-error "The tag :A appears more than once in a tagbody."))
              (push (cons (car form) (cdr form)) tags)
              (push (cons (car form) #'go-to-tag) (env-tags env)))))
        ;; And then evaluate the forms in the body, starting from the