/[gcl]/gcl/lsp/sloop.c
ViewVC logotype

Diff of /gcl/lsp/sloop.c

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

revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:59 2002 UTC
# Line 192  static void L4() Line 192  static void L4()
192          vs_top=sup;          vs_top=sup;
193          {object V35=base[0]->c.c_cdr;          {object V35=base[0]->c.c_cdr;
194          base[2]= V35;}          base[2]= V35;}
195          if(!((length(base[2]))<=(1))){          if(!(((long)length(base[2]))<=(1))){
196          goto T53;}          goto T53;}
197          base[3]= make_cons(VV[20],base[2]);          base[3]= make_cons(VV[20],base[2]);
198          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1081  T355:; Line 1081  T355:;
1081          goto T354;          goto T354;
1082  goto T357;  goto T357;
1083  T357:;  T357:;
1084          if((length((V145)))==(3)){          if(((long)length((V145)))==(3)){
1085          goto T359;}          goto T359;}
1086          V147= Cnil;          V147= Cnil;
1087          goto T354;          goto T354;
# Line 1535  TTL:; Line 1535  TTL:;
1535          V219= get((V218),VV[121],Cnil);          V219= get((V218),VV[121],Cnil);
1536          {object V220;          {object V220;
1537          V220= (          V220= (
1538          (type_of((V219)) == t_sfun ?(*(object (*)())(((V219))->sfn.sfn_self)):          (type_of((V219)) == t_sfun ?(*(((V219))->sfn.sfn_self)):
1539          (fcall.fun=((V219)),fcall.argd=2,fcalln))((V215),(V216)));          (fcall.fun=((V219)),fcall.argd=2,fcalln))((V215),(V216)));
1540          bds_bind(VV[34],(V220));          bds_bind(VV[34],(V220));
1541          bds_bind(VV[35],Cnil);          bds_bind(VV[35],Cnil);
# Line 2765  goto T1039; Line 2765  goto T1039;
2765  T1039:;  T1039:;
2766          {register object V372;          {register object V372;
2767          register object V373;          register object V373;
2768          V372= make_fixnum(length((V364)));          V372= make_fixnum((long)length((V364)));
2769          V373= small_fixnum(0);          V373= small_fixnum(0);
2770  goto T1046;  goto T1046;
2771  T1046:;  T1046:;
# Line 2868  T1073:; Line 2868  T1073:;
2868          V386= Cnil;          V386= Cnil;
2869          {register object V388;          {register object V388;
2870          register object V389;          register object V389;
2871          V390 = make_fixnum(length((V384)));          V390 = make_fixnum((long)length((V384)));
2872          V388= one_minus(V390);          V388= one_minus(V390);
2873          V389= small_fixnum(0);          V389= small_fixnum(0);
2874  goto T1082;  goto T1082;
# Line 3018  T1130:; Line 3018  T1130:;
3018          V411= vs_base[0];          V411= vs_base[0];
3019          if((V409)==Cnil){          if((V409)==Cnil){
3020          goto T1140;}          goto T1140;}
3021          V412 = make_fixnum(length((V405)));          V412 = make_fixnum((long)length((V405)));
3022          if(!(number_compare(V412,(V409))>=0)){          if(!(number_compare(V412,(V409))>=0)){
3023          goto T1141;}          goto T1141;}
3024          goto T1140;          goto T1140;
# Line 3032  goto T1140; Line 3032  goto T1140;
3032  T1140:;  T1140:;
3033          if((V410)==Cnil){          if((V410)==Cnil){
3034          goto T1144;}          goto T1144;}
3035          V413 = make_fixnum(length((V405)));          V413 = make_fixnum((long)length((V405)));
3036          if(!(number_compare(V413,(V410))<=0)){          if(!(number_compare(V413,(V410))<=0)){
3037          goto T1145;}          goto T1145;}
3038          goto T1144;          goto T1144;
# Line 3980  TTL:; Line 3980  TTL:;
3980          return Cnil;          return Cnil;
3981  }  }
3982  static void LnkT277(){ call_or_link(VV[277],(void **)&Lnk277);} /* SUBTYPEP */  static void LnkT277(){ call_or_link(VV[277],(void **)&Lnk277);} /* SUBTYPEP */
3983  static object  LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],(void **)&LnkLI276,2,ap);} /* THE-TYPE */  static object  LnkTLI276(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[276],(void **)&LnkLI276,2,ap);va_end(ap);return V1;} /* THE-TYPE */
3984  static object  LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],(void **)&LnkLI275,2,ap);} /* PARSE-LOOP-MAP */  static object  LnkTLI275(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[275],(void **)&LnkLI275,2,ap);va_end(ap);return V1;} /* PARSE-LOOP-MAP */
3985  static object  LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[274],(void **)&LnkLI274,ap);} /* ADD-FROM-DATA */  static object  LnkTLI274(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[274],(void **)&LnkLI274,ap);va_end(ap);return V1;} /* ADD-FROM-DATA */
3986  static object  LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[273],(void **)&LnkLI273,ap);} /* LOOP-DECLARE-BINDING */  static object  LnkTLI273(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[273],(void **)&LnkLI273,ap);va_end(ap);return V1;} /* LOOP-DECLARE-BINDING */
3987  static object  LnkTLI272(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[272],(void **)&LnkLI272,2,ap);} /* MAKE-VALUE */  static object  LnkTLI272(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[272],(void **)&LnkLI272,2,ap);va_end(ap);return V1;} /* MAKE-VALUE */
3988  static void LnkT129(){ call_or_link(VV[129],(void **)&Lnk129);} /* TYPEP */  static void LnkT129(){ call_or_link(VV[129],(void **)&Lnk129);} /* TYPEP */
3989  static object  LnkTLI271(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[271],(void **)&LnkLI271,3,ap);} /* LOOP-PARSE-ADDITIONAL-COLLECTIONS */  static object  LnkTLI271(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[271],(void **)&LnkLI271,3,ap);va_end(ap);return V1;} /* LOOP-PARSE-ADDITIONAL-COLLECTIONS */
3990  static object  LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],(void **)&LnkLI270,1,ap);} /* POINTER-FOR-COLLECT */  static object  LnkTLI270(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[270],(void **)&LnkLI270,1,ap);va_end(ap);return V1;} /* POINTER-FOR-COLLECT */
3991  static object  LnkTLI269(){return call_proc0(VV[269],(void **)&LnkLI269);} /* PARSE-ONE-WHEN-CLAUSE */  static object  LnkTLI269(){return call_proc0(VV[269],(void **)&LnkLI269);} /* PARSE-ONE-WHEN-CLAUSE */
3992  static object  LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[268],(void **)&LnkLI268,ap);} /* LOOP-ADD-TEMPS */  static object  LnkTLI268(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[268],(void **)&LnkLI268,ap);va_end(ap);return V1;} /* LOOP-ADD-TEMPS */
3993  static object  LnkTLI267(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[267],(void **)&LnkLI267,ap);} /* LOOP-ADD-BINDING */  static object  LnkTLI267(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[267],(void **)&LnkLI267,ap);va_end(ap);return V1;} /* LOOP-ADD-BINDING */
3994  static object  LnkTLI266(){return call_proc0(VV[266],(void **)&LnkLI266);} /* LOOP-UN-POP */  static object  LnkTLI266(){return call_proc0(VV[266],(void **)&LnkLI266);} /* LOOP-UN-POP */
3995  static object  LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[265],(void **)&LnkLI265,ap);} /* PARSE-LOOP-MACRO */  static object  LnkTLI265(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[265],(void **)&LnkLI265,ap);va_end(ap);return V1;} /* PARSE-LOOP-MACRO */
3996  static object  LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[264],(void **)&LnkLI264,ap);} /* PARSE-LOOP-DECLARE */  static object  LnkTLI264(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[264],(void **)&LnkLI264,ap);va_end(ap);return V1;} /* PARSE-LOOP-DECLARE */
3997  static object  LnkTLI263(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[263],(void **)&LnkLI263,ap);} /* PARSE-LOOP-WITH */  static object  LnkTLI263(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[263],(void **)&LnkLI263,ap);va_end(ap);return V1;} /* PARSE-LOOP-WITH */
3998  static object  LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],(void **)&LnkLI262,1,ap);} /* PARSE-LOOP-INITIALLY */  static object  LnkTLI262(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[262],(void **)&LnkLI262,1,ap);va_end(ap);return V1;} /* PARSE-LOOP-INITIALLY */
3999  static object  LnkTLI261(){return call_proc0(VV[261],(void **)&LnkLI261);} /* PARSE-LOOP-COLLECT */  static object  LnkTLI261(){return call_proc0(VV[261],(void **)&LnkLI261);} /* PARSE-LOOP-COLLECT */
4000  static object  LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],(void **)&LnkLI260,1,ap);} /* LOOP-COLLECT-KEYWORD-P */  static object  LnkTLI260(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[260],(void **)&LnkLI260,1,ap);va_end(ap);return V1;} /* LOOP-COLLECT-KEYWORD-P */
4001  static object  LnkTLI259(){return call_proc0(VV[259],(void **)&LnkLI259);} /* PARSE-LOOP-WHEN */  static object  LnkTLI259(){return call_proc0(VV[259],(void **)&LnkLI259);} /* PARSE-LOOP-WHEN */
4002  static object  LnkTLI258(){return call_proc0(VV[258],(void **)&LnkLI258);} /* PARSE-LOOP-DO */  static object  LnkTLI258(){return call_proc0(VV[258],(void **)&LnkLI258);} /* PARSE-LOOP-DO */
4003  static object  LnkTLI257(){return call_proc0(VV[257],(void **)&LnkLI257);} /* PARSE-LOOP-FOR */  static object  LnkTLI257(){return call_proc0(VV[257],(void **)&LnkLI257);} /* PARSE-LOOP-FOR */
4004  static object  LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],(void **)&LnkLI256,1,ap);} /* PARSE-NO-BODY */  static object  LnkTLI256(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[256],(void **)&LnkLI256,1,ap);va_end(ap);return V1;} /* PARSE-NO-BODY */
4005  static object  LnkTLI255(){return call_proc0(VV[255],(void **)&LnkLI255);} /* LOOP-POP */  static object  LnkTLI255(){return call_proc0(VV[255],(void **)&LnkLI255);} /* LOOP-POP */
4006  static object  LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[9],(void **)&LnkLI9,2,ap);} /* L-EQUAL */  static object  LnkTLI9(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[9],(void **)&LnkLI9,2,ap);va_end(ap);return V1;} /* L-EQUAL */
4007  static object  LnkTLI254(){return call_proc0(VV[254],(void **)&LnkLI254);} /* LOOP-PEEK */  static object  LnkTLI254(){return call_proc0(VV[254],(void **)&LnkLI254);} /* LOOP-PEEK */
4008  static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],(void **)&LnkLI13,1,ap);} /* TRANSLATE-NAME */  static object  LnkTLI13(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[13],(void **)&LnkLI13,1,ap);va_end(ap);return V1;} /* TRANSLATE-NAME */
4009  static object  LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[253],(void **)&LnkLI253,1,ap);} /* LOOP-LET-BINDINGS */  static object  LnkTLI253(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[253],(void **)&LnkLI253,1,ap);va_end(ap);return V1;} /* LOOP-LET-BINDINGS */
4010  static object  LnkTLI252(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[252],(void **)&LnkLI252,1,ap);} /* SUBSTITUTE-SLOOP-BODY */  static object  LnkTLI252(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[252],(void **)&LnkLI252,1,ap);va_end(ap);return V1;} /* SUBSTITUTE-SLOOP-BODY */
4011  static object  LnkTLI251(){return call_proc0(VV[251],(void **)&LnkLI251);} /* PARSE-LOOP1 */  static object  LnkTLI251(){return call_proc0(VV[251],(void **)&LnkLI251);} /* PARSE-LOOP1 */
4012  static object  LnkTLI249(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[249],(void **)&LnkLI249,ap);} /* FIND */  static object  LnkTLI249(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[249],(void **)&LnkLI249,ap);va_end(ap);return V1;} /* FIND */
4013  static object  LnkTLI248(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[248],(void **)&LnkLI248,ap);} /* DEF-LOOP-INTERNAL */  static object  LnkTLI248(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[248],(void **)&LnkLI248,ap);va_end(ap);return V1;} /* DEF-LOOP-INTERNAL */
4014  static object  LnkTLI247(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[247],(void **)&LnkLI247,1,ap);} /* PARSE-LOOP */  static object  LnkTLI247(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[247],(void **)&LnkLI247,1,ap);va_end(ap);return V1;} /* PARSE-LOOP */
4015  static object  LnkTLI246(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[246],(void **)&LnkLI246,2,ap);} /* DESETQ1 */  static object  LnkTLI246(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[246],(void **)&LnkLI246,2,ap);va_end(ap);return V1;} /* DESETQ1 */
4016    
4017  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
4018  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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