/[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.49 by camm, Sun Sep 18 02:48:59 2005 UTC revision 1.50 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 632  object strm; Line 632  object strm;
632    
633          case smm_broadcast:          case smm_broadcast:
634          case smm_concatenated:          case smm_concatenated:
635                  if (( type_of(strm->sm.sm_object0) == t_cons ) &&                  if (( consp(strm->sm.sm_object0) ) &&
636                      ( type_of(strm->sm.sm_object0->c.c_car) == t_stream ))                      ( type_of(strm->sm.sm_object0->c.c_car) == t_stream ))
637                      strm=strm->sm.sm_object0->c.c_car;                      strm=strm->sm.sm_object0->c.c_car;
638                  else                  else
# Line 681  interactive_stream_p(object strm) Line 681  interactive_stream_p(object strm)
681    
682          case smm_broadcast:          case smm_broadcast:
683          case smm_concatenated:          case smm_concatenated:
684                  if (( type_of(strm->sm.sm_object0) == t_cons ) &&                  if (( consp(strm->sm.sm_object0) ) &&
685                      ( type_of(strm->sm.sm_object0->c.c_car) == t_stream ))                      ( type_of(strm->sm.sm_object0->c.c_car) == t_stream ))
686                      strm=strm->sm.sm_object0->c.c_car;                      strm=strm->sm.sm_object0->c.c_car;
687                  else                  else
# Line 1136  int start,end; Line 1136  int start,end;
1136          }          }
1137    
1138          i=0;          i=0;
1139          while ((type_of(a) == t_cons) && (i<start)) {          while ((consp(a)) && (i<start)) {
1140              a=a->c.c_cdr;              a=a->c.c_cdr;
1141              i++;              i++;
1142          }          }
# Line 1201  int start,end; Line 1201  int start,end;
1201                  default:                  default:
1202                      FEwrong_type_argument(sLsequence,a);                      FEwrong_type_argument(sLsequence,a);
1203                  }                  }
1204                  if (type_of(a) != t_cons)                  if (!consp(a))
1205                      aset1(a,i,val);                      aset1(a,i,val);
1206                  else {                  else {
1207                      a->c.c_car = val;                      a->c.c_car = val;
1208                      a=a->c.c_cdr;                      a=a->c.c_cdr;
1209                      if (type_of(a) != t_cons)                      if (!consp(a))
1210                          i=end+1;                          i=end+1;
1211                  }                  }
1212              }              }
# Line 1231  int start,end; Line 1231  int start,end;
1231                      FEwrong_type_argument(sLnon_negative_fixnum,start);                      FEwrong_type_argument(sLnon_negative_fixnum,start);
1232                    
1233              if ((end == Cnil) &&              if ((end == Cnil) &&
1234                  (type_of(arr) == t_cons))                  (consp(arr)))
1235                      iend = length(arr);                      iend = length(arr);
1236              else              else
1237              if ((end == Cnil) &&              if ((end == Cnil) &&
# Line 1279  int start,end; Line 1279  int start,end;
1279          }          }
1280    
1281          i=0;          i=0;
1282          while ((type_of(a) == t_cons) && (i<start)) {          while ((consp(a)) && (i<start)) {
1283              a=a->c.c_cdr;              a=a->c.c_cdr;
1284              i++;              i++;
1285          }          }
# Line 1288  int start,end; Line 1288  int start,end;
1288          for (i=start;i<end;i++) {          for (i=start;i<end;i++) {
1289              if (i<end) {              if (i<end) {
1290                  j=i;                  j=i;
1291                  if (type_of(a) != t_cons)                  if (!consp(a))
1292                      val = fLrow_major_aref(a,i);                      val = fLrow_major_aref(a,i);
1293                  else {                  else {
1294                      val = a->c.c_car;                      val = a->c.c_car;
1295                      a = a->c.c_cdr;                      a = a->c.c_cdr;
1296                      if (type_of(a) != t_cons)                      if (!consp(a))
1297                          i=end+1;                          i=end+1;
1298                  }                  }
1299    
# Line 1334  int start,end; Line 1334  int start,end;
1334                      FEwrong_type_argument(sLnon_negative_fixnum,start);                      FEwrong_type_argument(sLnon_negative_fixnum,start);
1335                    
1336              if ((end == Cnil) &&              if ((end == Cnil) &&
1337                  (type_of(arr) == t_cons))                  (consp(arr)))
1338                      iend = length(arr);                      iend = length(arr);
1339              else              else
1340              if ((end == Cnil) &&              if ((end == Cnil) &&

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

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