/[gcl]/gcl/o/array.c
ViewVC logotype

Diff of /gcl/o/array.c

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

revision 1.20.4.1.4.1 by camm, Sun Sep 14 02:30:44 2003 UTC revision 1.20.4.1.4.2 by camm, Thu Nov 6 16:16:50 2003 UTC
# Line 180  DEFUN_NEW("ROW-MAJOR-AREF", object, fLro Line 180  DEFUN_NEW("ROW-MAJOR-AREF", object, fLro
180      return(Cnil);      return(Cnil);
181    }    }
182  }  }
183    #ifdef STATIC_FUNCTION_POINTERS
184    object
185    fLrow_major_aref(object x,fixnum i) {
186      return FFN(fLrow_major_aref)(x,i);
187    }
188    #endif
189    
190  object  object
191  aset1(object x,fixnum i,object val) {  aset1(object x,fixnum i,object val) {
# Line 255  DEFUN_NEW("ASET1", object, fSaset1, SI, Line 261  DEFUN_NEW("ASET1", object, fSaset1, SI,
261    }    }
262    return val;    return val;
263  }  }
264    #ifdef STATIC_FUNCTION_POINTERS
265    object
266    fSaset1(object x, fixnum i,object val) {
267      return FFN(fSaset1)(x,i,val);
268    }
269    #endif
270    
271  DEFUNO_NEW("ASET", object, fSaset, SI, 1, ARG_LIMIT, NONE, OO,  DEFUNO_NEW("ASET", object, fSaset, SI, 1, ARG_LIMIT, NONE, OO,
272         IO, OO, OO,void,siLaset,(object x,fixnum i,object y, ...),"")         IO, OO, OO,void,siLaset,(object x,fixnum i,object y, ...),"")
# Line 315  DEFUNO_NEW("ASET", object, fSaset, SI, 1 Line 327  DEFUNO_NEW("ASET", object, fSaset, SI, 1
327        
328  }  }
329    
330    
331  DEFUNO_NEW("SVSET", object, fSsvset, SI, 3, 3, NONE, OO, IO, OO,  DEFUNO_NEW("SVSET", object, fSsvset, SI, 3, 3, NONE, OO, IO, OO,
332         OO,void,siLsvset,(object x,fixnum i,object val),"")         OO,void,siLsvset,(object x,fixnum i,object val),"")
333  { if (TYPE_OF(x) != t_vector  { if (TYPE_OF(x) != t_vector
# Line 424  DEFUN_NEW("MAKE-VECTOR1",object,fSmake_v Line 437  DEFUN_NEW("MAKE-VECTOR1",object,fSmake_v
437        }        }
438      }      }
439    }    }
440    object
441    fSmake_vector1_1(fixnum n,fixnum elt_type,object staticp) {
442      VFUN_NARGS=3;
443      return FFN(fSmake_vector1)(n,elt_type,staticp);
444    }
445    
446    
447  static object DFLT_aet_object = Cnil;    static object DFLT_aet_object = Cnil;  
# Line 457  DEFUN_NEW("GET-AELTTYPE",object,fSget_ae Line 474  DEFUN_NEW("GET-AELTTYPE",object,fSget_ae
474      return make_fixnum(aet_lf);      return make_fixnum(aet_lf);
475    return make_fixnum(aet_object);    return make_fixnum(aet_object);
476  }  }
477    #ifdef STATIC_FUNCTION_POINTERS
478    object
479    fSget_aelttype(object x) {
480      return FFN(fSget_aelttype)(x);
481    }
482    #endif
483    
484  /* backward compatibility only:  /* backward compatibility only:
485          (si:make-vector element-type 0          (si:make-vector element-type 0
# Line 482  DEFUNO_NEW("MAKE-VECTOR",object,fSmake_v Line 505  DEFUNO_NEW("MAKE-VECTOR",object,fSmake_v
505    /* 8 args */    /* 8 args */
506    
507    VFUN_NARGS = 8;    VFUN_NARGS = 8;
508    x = fSmake_vector1(Mfix(x1),  /* n */    x = FFN(fSmake_vector1)(Mfix(x1),  /* n */
509                       fix(fSget_aelttype(x0)), /*aelt type */                       fix(fSget_aelttype(x0)), /*aelt type */
510                       x6, /* staticp */                       x6, /* staticp */
511                       x3, /* fillp */                       x3, /* fillp */
# Line 533  DEFUN_NEW("MAKE-ARRAY1",object,fSmake_ar Line 556  DEFUN_NEW("MAKE-ARRAY1",object,fSmake_ar
556          return x;          return x;
557        }        }
558   }}   }}
559    #ifdef STATIC_FUNCTION_POINTERS
560    object
561    fSmake_array1(fixnum elt_type,object staticp,object initial_element,object displaced_to,
562                  fixnum displaced_index_offset,object dimensions) {
563      return FFN(fSmake_array1)(elt_type,staticp,initial_element,
564                                displaced_to,displaced_index_offset,dimensions);
565    }
566    #endif
567    
568    
569  /*  /*
570  (proclaim '(ftype (function (object t  *)) array-displacement1))  (proclaim '(ftype (function (object t  *)) array-displacement1))
# Line 564  DEFUN_NEW("MAKE-ARRAY1",object,fSmake_ar Line 596  DEFUN_NEW("MAKE-ARRAY1",object,fSmake_ar
596  /*  } */  /*  } */
597    
598  static void  static void
599  Larray_displacement(void) {  FFN(Larray_displacement)(void) {
600    
601    object array,a;    object array,a;
602    int s,n;    int s,n;
# Line 1151  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1183  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1183    
1184          /* FIXME do this with C macros */          /* FIXME do this with C macros */
1185          switch(i+1){          switch(i+1){
1186          case 3:  (*fSaset)(ind[0],fix(ind[1]),ind[2]);break;          case 3:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2]);break;
1187          case 4:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3]);break;          case 4:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3]);break;
1188          case 5:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4]);break;          case 5:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4]);break;
1189          case 6:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5]);break;          case 6:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5]);break;
1190          case 7:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6]);break;          case 7:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6]);break;
1191          case 8:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7]);break;          case 8:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7]);break;
1192          case 9:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 9:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1193                                 ind[8]);break;                                 ind[8]);break;
1194          case 10:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 10:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1195                                  ind[8],ind[9]);break;                                  ind[8],ind[9]);break;
1196          case 11:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 11:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1197                                  ind[8],ind[9],ind[10]);break;                                  ind[8],ind[9],ind[10]);break;
1198          case 12:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 12:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1199                                  ind[8],ind[9],ind[10],ind[11]);break;                                  ind[8],ind[9],ind[10],ind[11]);break;
1200          case 13:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 13:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1201                                  ind[8],ind[9],ind[10],ind[11],ind[12]);break;                                  ind[8],ind[9],ind[10],ind[11],ind[12]);break;
1202          case 14:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 14:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1203                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13]);break;                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13]);break;
1204          case 15:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 15:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1205                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14]);break;                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14]);break;
1206          case 16:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 16:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1207                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1208                                  ind[15]);break;                                  ind[15]);break;
1209          case 17:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 17:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1210                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1211                                  ind[15],ind[16]);break;                                  ind[15],ind[16]);break;
1212          case 18:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 18:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1213                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1214                                  ind[15],ind[16],ind[17]);break;                                  ind[15],ind[16],ind[17]);break;
1215          case 19:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 19:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1216                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1217                                  ind[15],ind[16],ind[17],ind[18]);break;                                  ind[15],ind[16],ind[17],ind[18]);break;
1218          case 20:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 20:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1219                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1220                                  ind[15],ind[16],ind[17],ind[18],ind[19]);break;                                  ind[15],ind[16],ind[17],ind[18],ind[19]);break;
1221          case 21:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 21:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1222                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1223                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20]);break;                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20]);break;
1224          case 22:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 22:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1225                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1226                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21]);break;                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21]);break;
1227          case 23:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 23:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1228                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1229                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1230                                  ind[22]);break;                                  ind[22]);break;
1231          case 24:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 24:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1232                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1233                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1234                                  ind[22],ind[23]);break;                                  ind[22],ind[23]);break;
1235          case 25:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 25:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1236                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1237                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1238                                  ind[22],ind[23],ind[24]);break;                                  ind[22],ind[23],ind[24]);break;
1239          case 26:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 26:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1240                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1241                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1242                                  ind[22],ind[23],ind[24],ind[25]);break;                                  ind[22],ind[23],ind[24],ind[25]);break;
1243          case 27:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 27:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1244                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1245                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1246                                  ind[22],ind[23],ind[24],ind[25],ind[26]);break;                                  ind[22],ind[23],ind[24],ind[25],ind[26]);break;
1247          case 28:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 28:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1248                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1249                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1250                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27]);break;                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27]);break;
1251          case 29:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 29:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1252                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1253                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1254                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28]);break;                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28]);break;
1255          case 30:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 30:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1256                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1257                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1258                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1259                                  ind[29]);break;                                  ind[29]);break;
1260          case 31:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 31:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1261                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1262                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1263                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1264                                  ind[29],ind[30]);break;                                  ind[29],ind[30]);break;
1265          case 32:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 32:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1266                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1267                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1268                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1269                                  ind[29],ind[30],ind[31]);break;                                  ind[29],ind[30],ind[31]);break;
1270          case 33:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 33:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1271                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1272                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1273                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1274                                  ind[29],ind[30],ind[31],ind[32]);break;                                  ind[29],ind[30],ind[31],ind[32]);break;
1275          case 34:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 34:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1276                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1277                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1278                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1279                                  ind[29],ind[30],ind[31],ind[32],ind[33]);break;                                  ind[29],ind[30],ind[31],ind[32],ind[33]);break;
1280          case 35:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 35:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1281                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1282                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1283                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1284                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34]);break;                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34]);break;
1285          case 36:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 36:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1286                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1287                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1288                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1289                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35]);break;                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35]);break;
1290          case 37:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 37:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1291                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1292                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1293                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1294                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1295                                  ind[36]);break;                                  ind[36]);break;
1296          case 38:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 38:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1297                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1298                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1299                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1300                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1301                                  ind[36],ind[37]);break;                                  ind[36],ind[37]);break;
1302          case 39:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 39:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1303                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1304                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1305                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1306                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1307                                  ind[36],ind[37],ind[38]);break;                                  ind[36],ind[37],ind[38]);break;
1308          case 40:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 40:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1309                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1310                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1311                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1312                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1313                                  ind[36],ind[37],ind[38],ind[39]);break;                                  ind[36],ind[37],ind[38],ind[39]);break;
1314          case 41:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 41:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1315                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1316                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1317                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1318                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1319                                  ind[36],ind[37],ind[38],ind[39],ind[40]);break;                                  ind[36],ind[37],ind[38],ind[39],ind[40]);break;
1320          case 42:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 42:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1321                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1322                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1323                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1324                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1325                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41]);break;                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41]);break;
1326          case 43:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 43:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1327                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1328                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1329                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1330                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1331                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42]);break;                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42]);break;
1332          case 44:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 44:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1333                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1334                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1335                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1336                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1337                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1338                                  ind[43]);break;                                  ind[43]);break;
1339          case 45:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 45:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1340                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1341                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1342                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1343                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1344                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1345                                  ind[43],ind[44]);break;                                  ind[43],ind[44]);break;
1346          case 46:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 46:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1347                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1348                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1349                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1350                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1351                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1352                                  ind[43],ind[44],ind[45]);break;                                  ind[43],ind[44],ind[45]);break;
1353          case 47:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 47:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1354                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1355                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1356                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1357                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1358                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1359                                  ind[43],ind[44],ind[45],ind[46]);break;                                  ind[43],ind[44],ind[45],ind[46]);break;
1360          case 48:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 48:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1361                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1362                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1363                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1364                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1365                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1366                                  ind[43],ind[44],ind[45],ind[46],ind[47]);break;                                  ind[43],ind[44],ind[45],ind[46],ind[47]);break;
1367          case 49:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 49:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1368                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1369                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1370                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1371                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1372                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1373                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48]);break;                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48]);break;
1374          case 50:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 50:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1375                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1376                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1377                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1378                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],                                  ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1379                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1380                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49]);break;                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49]);break;
1381          case 51:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 51:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1382                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1383                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1384                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1354  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1386  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1386                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1387                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1388                                  ind[50]);break;                                  ind[50]);break;
1389          case 52:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 52:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1390                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1391                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1392                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1362  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1394  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1394                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1395                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1396                                  ind[50],ind[51]);break;                                  ind[50],ind[51]);break;
1397          case 53:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 53:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1398                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1399                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1400                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1370  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1402  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1402                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1403                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1404                                  ind[50],ind[51],ind[52]);break;                                  ind[50],ind[51],ind[52]);break;
1405          case 54:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 54:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1406                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1407                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1408                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1378  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1410  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1410                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1411                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1412                                  ind[50],ind[51],ind[52],ind[53]);break;                                  ind[50],ind[51],ind[52],ind[53]);break;
1413          case 55:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 55:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1414                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1415                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1416                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1386  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1418  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1418                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1419                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1420                                  ind[50],ind[51],ind[52],ind[53],ind[54]);break;                                  ind[50],ind[51],ind[52],ind[53],ind[54]);break;
1421          case 56:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 56:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1422                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1423                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1424                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1394  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1426  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1426                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1427                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1428                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55]);break;                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55]);break;
1429          case 57:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 57:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1430                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1431                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1432                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1402  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1434  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1434                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],                                  ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1435                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1436                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56]);break;                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56]);break;
1437          case 58:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 58:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1438                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1439                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1440                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1411  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1443  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1443                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1444                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1445                                  ind[57]);break;                                  ind[57]);break;
1446          case 59:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 59:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1447                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1448                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1449                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1420  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1452  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1452                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1453                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1454                                  ind[57],ind[58]);break;                                  ind[57],ind[58]);break;
1455          case 60:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 60:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1456                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1457                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1458                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1429  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1461  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1461                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1462                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1463                                  ind[57],ind[58],ind[59]);break;                                  ind[57],ind[58],ind[59]);break;
1464          case 61:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 61:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1465                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1466                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1467                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1438  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1470  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1470                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1471                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1472                                  ind[57],ind[58],ind[59],ind[60]);break;                                  ind[57],ind[58],ind[59],ind[60]);break;
1473          case 62:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 62:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1474                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1475                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1476                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1447  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1479  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1479                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1480                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1481                                  ind[57],ind[58],ind[59],ind[60],ind[61]);break;                                  ind[57],ind[58],ind[59],ind[60],ind[61]);break;
1482          case 63:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 63:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1483                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1484                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1485                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
# Line 1456  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1488  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1488                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],                                  ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1489                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],                                  ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1490                                  ind[57],ind[58],ind[59],ind[60],ind[61],ind[62]);break;                                  ind[57],ind[58],ind[59],ind[60],ind[61],ind[62]);break;
1491          case 64:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],          case 64:  (*FFN(fSaset))(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1492                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],                                  ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1493                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],                                  ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1494                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],                                  ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],

Legend:
Removed from v.1.20.4.1.4.1  
changed lines
  Added in v.1.20.4.1.4.2

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