[Openmcl-devel] tagbody and go

[Pascal Costanza]

On 8 Dec 2010, at 17:36, Taoufik Dachraoui wrote:

> 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?

(defun runstep (step)
  (ecase step
     (1 ...)
     (2 ...)
     (3 ...)))


Pascal

-- 
Pascal Costanza, mailto:pc at p-cos.net, http://p-cos.net
Vrije Universiteit Brussel
Software Languages Lab
Pleinlaan 2, B-1050 Brussel, Belgium