/[gcl]/gcl/o/read.d
ViewVC logotype

Diff of /gcl/o/read.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by camm, Fri Oct 3 16:03:16 2003 UTC revision 1.23 by camm, Thu Oct 23 16:44:29 2003 UTC
# Line 2338  CANNOT_PARSE: Line 2338  CANNOT_PARSE:
2338  @)  @)
2339    
2340  object  object
2341  read_byte1(str,eof)  read_byte1(strm,eof)
2342  object str,eof;  object strm,eof;
2343  {if (stream_at_end(str))  {
2344     return eof;    if (strm == Cnil)
2345   return make_fixnum(readc_stream(str));}      strm = symbol_value(sLAstandard_inputA);
2346      else if (strm == Ct)
2347        strm = symbol_value(sLAterminal_ioA);
2348      if (stream_at_end(strm))
2349        return eof;
2350      return make_fixnum(readc_stream(strm));
2351    }
2352    
2353  object  object
2354  read_char1(str,eof)  read_char1(strm,eof)
2355  object str,eof;  object strm,eof;
2356  {if (stream_at_end(str))  {
2357     return eof;    if (strm == Cnil)
2358   return code_char(readc_stream(str));}      strm = symbol_value(sLAstandard_inputA);
2359      else if (strm == Ct)
2360        strm = symbol_value(sLAterminal_ioA);
2361      if (stream_at_end(strm))
2362        return eof;
2363      return code_char(readc_stream(strm));
2364    }
2365    
2366   @(defun copy_readtable (&optional (from `current_readtable()`) to)   @(defun copy_readtable (&optional (from `current_readtable()`) to)
2367  @  @

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26