Received: by 10.180.107.167 with SMTP id hd7mr535319wib.0.1344614957599;
        Fri, 10 Aug 2012 09:09:17 -0700 (PDT)
Path: q11ni62049229wiw.1!nntp.google.com!goblin3!goblin1!goblin.stu.neva.ru!eternal-september.org!feeder.eternal-september.org!mx04.eternal-september.org!.POSTED!not-for-mail
From: Zermelo <zerm...@teletu.it.nospam.invalid>
Newsgroups: comp.lang.lisp
Subject: Re: computed goto
Date: Fri, 10 Aug 2012 18:09:05 +0200
Organization: A noiseless patient Spider
Lines: 22
Message-ID: <85k3x63f1a.fsf@teletu.it.nospam.invalid>
References: <85txwb2d7e.fsf@SANDOKAN-INITIA.i-did-not-set--mail-host-address--so-tickle-me>
	<87fw7uq56c.fsf@kuiper.lan.informatimago.com>
	<87628qq3z8.fsf@kuiper.lan.informatimago.com>
	<87wr16om08.fsf@kuiper.lan.informatimago.com>
Mime-Version: 1.0
Injection-Info: mx04.eternal-september.org; posting-host="f4d342378ac0f85c73fdd1497e3147e6";
	logging-data="25722"; mail-complaints-to="ab...@eternal-september.org";	posting-account="U2FsdGVkX18hfrN2p3dnBPucp40sJG0W"
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.92 (windows-nt)
Cancel-Lock: sha1:t9gL9DRlTldOp7oKDNFn72Ko6FU=
	sha1:vrcgwBIunotvFeb055g9TcKaqaw=
Content-Type: text/plain

Using Clozure CL with this code

(let ((i 0))
      (comefrom-tagbody

       (comefrom :end-loop)
       (if (>= i 5)
           :done)

       (print (incf i))
       :end-loop

       (if (zerop (random 2))
         (comefrom 5))

       (print 'done)
       (terpri)))

I get this error:
While compiling an anonymous function :
Can't GO to tag (CAR CF).
   [Condition of type CCL::COMPILE-TIME-PROGRAM-ERROR]