Read data file containing fractional numbers?



trying to include the opening (and closing? )
of the requested data file inside a block
structure,  and getting errors, as in:
======================
 Maxima 5.24.0 http://maxima.sourceforge.net
using Lisp GNU Common Lisp (GCL) GCL 2.6.8 (a.k.a. GCL)
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
                                  2011-05-21


(%i1) load(read_data1);
(%o1)                       c:/work2/read_data1.mac
(%i2) fundef (read_data1);
(%o2) read_data1(%filename) := block([%s, %r],
if not file_search(%filename) then (disp(" file not found "), 
return(false)),
%s : openr(%filename), %r : [], while (l : readline(s)) # false do r :
cons(map(parse_string, split(l)), r), reverse(%r))
(%i3) read_data1("mydata1.dat");
readline: argument must be a stream.
#0: read_data1(%filename=mydata1.dat)(read_data1.mac line 13)
 -- an error. To debug this try: debugmode(true);
==========================
lines 13 and 14 of the data file are :

while (l : readline(s)) # false do
            ( r : cons (map(parse_string, split(l)), r)),
==============================
So the file hasn't been opened for reading by
my code?


Ted