[Openmcl-devel] tagbody and go

[Taoufik Dachraoui]

Hi

I would like to implement something like the following:

(defun runstep (step)
   (tagbody (go step)
       1 (format t "run 1~%") (go end)
       2 (format t "run 2~%") (go end)
       3 (format t "run 3~%") (go end)
       4 (format t "run 4~%") (go end)
       5 (format t "run 5~%") (go end)
     end ))

this does not work, but how can I do something like this?

Kind regards
Taoufik
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20101208/c7cfb931/attachment.htm>