Re: reading-files. CLOS-support?

Pete Halverson wrote:

      I need to read an input file which is not written out as lists.
      I can use read-line and get it as a string.
      how do I convert this string to a list.
      eg of kind of lines to be read and converted
      Line 13.4 24 50 100.0 45.6 78
      eye 0 0 0
      aim -75 10 12
      One posible solution I have is to coerce the string into a list
and reformulate the list by "imploding" atoms separated by blank spaces
together. This doesnt work for the number portion yet.But, I am still
working on it.

>
Id be very interested in solutions to this as well.  Id be happy to receive
duplicates of any email-messages showing up.

 
I would expect something as trivial as
 
  (defconstant +EOF-MARKER+ (make-symbol "EOF"))
 
  (defun READ-TOKENS-FROM-STRING (string)
     (with-input-from-string (stream string)
       (loop for thing = (read stream nil +eof-marker+)
             until (eq thing +eof-marker+)
             collect thing)))
 
ought to suffice here.  (Apologies to loop haters; conversion to "Lisp" is
left as an exercise to the reader :-)

Gauche Scheme:

(use gauche.generator)

(define (read-tokens-from-string string)
  (with-input-from-string string
    (cut  generator->list read)))