SLOOP -> ANSI LOOP translation



| It would be interesting to know what implementations return for the
| following:
| 
| (defun nleft (n x &optional tail)
|   (loop for v on (nthcdr n x)
|         for w on x
|         when (eq v tail) do (return w)
|         finally (return w)))
| 
| (nleft 1 '(0 1))
| 
| SLOOP says '(1), while MIT LOOP says '(0 1). I had assumed MIT LOOP is
| correct but I haven't checked.

clisp-2.33.1 on cygwin and clisp-2.33.2 on irix6.5 give (0 1)


NOTICE
This e-mail and any attachments are private and confidential and may contain privileged information. If you are not an authorised recipient, the copying or distribution of this e-mail and any attachments is prohibited and you must not read, print or act in reliance on this e-mail or attachments.
This notice should not be removed.