Thomas A. Russ wrote:

> Not at all connected with your original problem, but you can
> exploit the full power of LOOP to greatly simplify this part
> of the code:
>
> > (let ((stringlist)
> > (tmpstr))
> > (with-open-file (infile fname :direction :input)
> > (loop
> > (setq tmpstr (read-line infile nil nil))
> > (unless tmpstr
> > (return))
> > (push tmpstr stringlist)
> > ))
> > (setq stringlist (nreverse stringlist))
> > stringlist
> > ))
>
> It can be transformed into:
>
> (with-open-file (infile fname :direction :input)
> (loop for tmpstr = (read-line infile nil nil)
> while tmpstr
> collect tmpstr))

It's somewhat shorter in Gauche Scheme.

(call-with-input-file "output.dat" port->string-list)