/[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.21 by camm, Sun Sep 14 02:43:07 2003 UTC revision 1.22 by camm, Fri Oct 3 16:03:16 2003 UTC
# Line 2280  READ: Line 2280  READ:
2280                         &aux x)                         &aux x)
2281          int s, e, ep;          int s, e, ep;
2282  @  @
2283          check_type_string(&strng);          if (junk_allowed==Cnil)
2284                check_type_string(&strng);
2285          get_string_start_end(strng, start, end, &s, &e);          get_string_start_end(strng, start, end, &s, &e);
2286          if (type_of(radix) != t_fixnum ||          if (type_of(radix) != t_fixnum ||
2287              fix(radix) < 2 || fix(radix) > 36)              fix(radix) < 2 || fix(radix) > 36)
# Line 2316  READ: Line 2317  READ:
2317          @(return x `make_fixnum(e)`)          @(return x `make_fixnum(e)`)
2318    
2319  CANNOT_PARSE:  CANNOT_PARSE:
2320          FEerror("Cannot parse an integer in the string ~S.", 1, strng);          Icall_error_handler(sKparse_error,
2321                                make_simple_string("Cannot parse an integer in the string ~S."),
2322                                1, strng);
2323  @)  @)
2324    
2325  @(defun read_byte (binary_input_stream  @(defun read_byte (binary_input_stream

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

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