Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!cs.utexas.edu!samsung!uunet!aplcen!hall
From: hall@aplcen.apl.jhu.edu (Marty Hall)
Newsgroups: comp.lang.lisp
Subject: Re: Wanted: LOOP macro, CL, machine-independent
Message-ID: <5643@aplcen.apl.jhu.edu>
Date: 7 Jun 90 18:43:42 GMT
References: <1510@stsci.edu>
Reply-To: hall@aplcen (Marty Hall)
Distribution: usa
Organization: AAI Corp AI Lab, JHU P/T CS Faculty
Lines: 39

In article <1510@stsci.edu> mrose@stsci.EDU (Mike Rose) writes:
>
>Does anyone out there have a machine-independent CL "LOOP" macro?  I'd
>sure like something as close to the one in Steele as possible, so that
>when the various cl implementations provide a LOOP we don't have to
>change anything.

There are two versions available via anonymous FTP from rascal.ics.utexas.edu,
the site that supplies AKCL. Here is an excerpt from the README file in /pub:

===========================================================================
     Files on the directory rascal.ics.utexas.edu:/pub/

[...]

loop.lisp is a Common Lisp version of the Maclisp/Zetalisp loop macro.
This is apparently no license for this software, though there is an MIT
copyright.  See the front of the file for details.

sloop.lisp is Bill Schelter's Common Lisp version of the
Maclisp/Zetalisp loop macro.  It's much better than loop because it is
very extensible, just as was the original Interlisp I.S.OPR FOR macro,
the inspiration for loop.  There is no license required to take or use
this file, though there is a copyright (see the head of the file).

[...]

===========================================================================

It sounds like these are versions of the ZetaLISP loop macro. Using loop on 
my Symbolics appears to correspond closely to loop from CLtL2. Anyone
more familiar with how closely this corresponds?

				- Marty Hall

-------------------------------------------------------------------
hall@aplcen.apl.jhu.edu                 Artificial Intelligence Lab
hall%aplcen.apl.jhu.edu@cunyvm.bitnet   AAI Corp
..!uunet!aplcen!hall                    PO Box 126
(301) 683-6455                          Hunt Valley, MD 21030