Pascal Costanza wrote:

> > In Scheme I would probably do something like (list->vector (reverse
> > dict)) but is there a way to build the vector directly without knowing
> > the size in advance? Or is there a more "CL" way to do this?
>
> What about this:
>
> (with-open-file (str filename :direction :input)
> (loop for line = (read-line str nil 'eof)
> until (eql line 'eof)
> collect line into dict
> finally (return (apply #'vector dict))))
>
> or:
>
> (with-open-file (str filename :direction :input)
> (loop for line = (read-line str nil 'eof)
> until (eql line 'eof)
> count t into line-count
> collect line into dict
> finally (return
> (make-array line-count :initial-contents dict))))

Gauche Scheme

(use gauche.generator)

(generator->vector (file->generator "output.dat" read-line))