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

Diff of /gcl/o/file.d

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

revision 1.35 by camm, Tue Nov 23 22:37:17 2004 UTC revision 1.36 by camm, Fri Jan 7 17:58:34 2005 UTC
# Line 1209  int start,end; Line 1209  int start,end;
1209              else              else
1210                      istart = FIX_CHECK(start);                      istart = FIX_CHECK(start);
1211              if (istart < 0)              if (istart < 0)
1212                      FEwrong_type_argument(sLpositive_fixnum,start);                      FEwrong_type_argument(sLnon_negative_fixnum,start);
1213                    
1214              if ((end == Cnil) &&              if ((end == Cnil) &&
1215                  (type_of(arr) == t_cons))                  (type_of(arr) == t_cons))
# Line 1225  int start,end; Line 1225  int start,end;
1225              else              else
1226                      iend = FIX_CHECK(end);                      iend = FIX_CHECK(end);
1227              if (iend < 0)              if (iend < 0)
1228                      FEwrong_type_argument(sLpositive_fixnum,end);                      FEwrong_type_argument(sLnon_negative_fixnum,end);
1229    
1230              ipos=read_sequence_stream(arr,str,istart,iend);              ipos=read_sequence_stream(arr,str,istart,iend);
1231              start = make_fixnum(ipos);              start = make_fixnum(ipos);
# Line 1312  int start,end; Line 1312  int start,end;
1312              else              else
1313                      istart = FIX_CHECK(start);                      istart = FIX_CHECK(start);
1314              if (istart < 0)              if (istart < 0)
1315                      FEwrong_type_argument(sLpositive_fixnum,start);                      FEwrong_type_argument(sLnon_negative_fixnum,start);
1316                    
1317              if ((end == Cnil) &&              if ((end == Cnil) &&
1318                  (type_of(arr) == t_cons))                  (type_of(arr) == t_cons))
# Line 1328  int start,end; Line 1328  int start,end;
1328              else              else
1329                      iend = FIX_CHECK(end);                      iend = FIX_CHECK(end);
1330              if (iend < 0)              if (iend < 0)
1331                      FEwrong_type_argument(sLpositive_fixnum,end);                      FEwrong_type_argument(sLnon_negative_fixnum,end);
1332    
1333              ipos=write_sequence_stream(arr,str,istart,iend);              ipos=write_sequence_stream(arr,str,istart,iend);
1334              if (ipos == iend)              if (ipos == iend)

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

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