/[gcl]/gcl/pcl/pcl_gazonk6.c
ViewVC logotype

Diff of /gcl/pcl/pcl_gazonk6.c

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

revision 1.2 by camm, Tue Jul 15 18:03:38 2003 UTC revision 1.3 by camm, Tue Oct 7 21:07:36 2003 UTC
# Line 8  static void L1() Line 8  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_check;          vs_check;
11          check_arg(4);          check_arg(2);
12          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
13          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
         base[2]=MMcons(base[2],base[1]);  
         base[3]=MMcons(base[3],base[2]);  
14          vs_top=sup;          vs_top=sup;
15          base[4]=          base[2]=
16          make_cclosure_new(LC2,Cnil,base[3],Cdata);          make_cclosure_new(LC2,Cnil,base[1],Cdata);
17          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
18          return;          return;
19  }  }
20  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 27  register object *base0; Line 25  register object *base0;
25          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
26          vs_check;          vs_check;
27          {register object V1;          {register object V1;
28          register object V2;          check_arg(1);
         object V3;  
         check_arg(3);  
29          V1=(base[0]);          V1=(base[0]);
         V2=(base[1]);  
         V3=(base[2]);  
30          vs_top=sup;          vs_top=sup;
31          {register object V4;          {register object V2;
32          base[3]= (V1);          V2= (base0[1]->c.c_car);
33          base[4]= VV[0];          base[1]= (V2);
34          vs_top=(vs_base=base+3)+2;          base[2]= VV[0];
35          (void) (*Lnk4)();          vs_top=(vs_base=base+1)+2;
36            (void) (*Lnk7)();
37          vs_top=sup;          vs_top=sup;
38          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
39          goto T3;}          goto T3;}
40          {register object V5;          base[1]= STREF(object,(V2),0);
41          register object V6;          base[2]= STREF(object,(V2),4);
42          V5= (base0[3]->c.c_car);          base[3]= STREF(object,(V2),8);
43          V6= CMPcar((V5));          base[4]= (V1);
44          goto T10;          vs_top=(vs_base=base+2)+3;
45  T10:;          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
         if(!(((V5))==Cnil)){  
         goto T11;}  
         V4= (base0[2]->c.c_car);  
         goto T1;  
         goto T11;  
 T11:;  
         if(!((CMPcar((V6)))==((V2)))){  
         goto T15;}  
         V4= CMPcdr((V6));  
         goto T1;  
         goto T15;  
 T15:;  
         V5= CMPcdr((V5));  
         V6= CMPcar((V5));  
         goto T10;}  
         goto T3;  
 T3:;  
         V4= (base0[1]->c.c_car);  
         goto T1;  
 T1:;  
         base[3]= (V4);  
         base[4]= VV[1];  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk5)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T25;}  
         base[3]= STREF(object,(V4),0);  
         base[4]= STREF(object,(V4),4);  
         base[5]= STREF(object,(V4),8);  
         base[6]= (V1);  
         base[7]= (V2);  
         base[8]= (V3);  
         vs_top=(vs_base=base+4)+5;  
         {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
46                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
47                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
48                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
49          return;          return;
50          goto T25;          goto T3;
51  T25:;  T3:;
52          {register object V7;          if(!(type_of((V2))==t_fixnum)){
53          V7= (V4);          goto T12;}
54          base[3]= (V7);          {object V3;
55          base[4]= VV[2];          object V4;
56            if(type_of(V1)==t_structure){
57            goto T18;}
58            goto T16;
59            goto T18;
60    T18:;
61            if(!(((V1)->str.str_def)==(VV[1]))){
62            goto T16;}
63            V3= STREF(object,(V1),4);
64            goto T14;
65            goto T16;
66    T16:;{object V6;
67            V6= (VV[3]->s.s_dbind);
68            base[3]= small_fixnum(14);
69            base[4]= (V1);
70          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
71          (void) (*Lnk5)();          (void) (*Lnk8)();
72            vs_top=sup;
73            V7= vs_base[0];
74            if(!((V6)==(CMPcar(V7)))){
75            goto T21;}}
76            V3= CMPcar(((V1))->cc.cc_turbo[12]);
77            goto T14;
78            goto T21;
79    T21:;
80            V3= Cnil;
81            goto T14;
82    T14:;
83            if(((V3))==Cnil){
84            goto T28;}
85            V4= ((V3))->v.v_self[fix((V2))];
86            goto T26;
87            goto T28;
88    T28:;
89            V4= Cnil;
90            goto T26;
91    T26:;
92            if(!(((V4))==(VV[4]))){
93            goto T31;}
94            base[3]= (V1);
95            base[4]= (V2);
96            vs_top=(vs_base=base+3)+2;
97            (void) (*Lnk10)();
98            return;
99            goto T31;
100    T31:;
101            base[3]= (V4);
102            vs_top=(vs_base=base+3)+1;
103            return;}
104            goto T12;
105    T12:;
106            {register object V8;
107            V8= (V2);
108            base[1]= (V8);
109            base[2]= VV[5];
110            vs_top=(vs_base=base+1)+2;
111            (void) (*Lnk7)();
112          vs_top=sup;          vs_top=sup;
113          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
114          goto T36;}          goto T36;}
115          {object V8;          {object V9;
         object V9;  
116          object V10;          object V10;
117          V8= STREF(object,(V4),0);          register object V11;
118          V9= list(3,(V1),(V2),(V3));          V9= STREF(object,(V2),0);
119          V10= STREF(object,(V4),4);          V10= make_cons((V1),Cnil);
120          if(((V10))==Cnil){          V11= STREF(object,(V2),4);
121            if(((V11))==Cnil){
122          goto T47;}          goto T47;}
123          if(!((CMPcdr((V10)))==Cnil)){          if(!((CMPcdr((V11)))==Cnil)){
124          goto T44;}          goto T44;}
125          goto T45;          goto T45;
126          goto T47;          goto T47;
# Line 114  T47:; Line 128  T47:;
128          goto T44;          goto T44;
129          goto T45;          goto T45;
130  T45:;  T45:;
131          base[3]= (V9);          base[1]= (V10);
132          base[4]= CMPcar((V10));          base[2]= CMPcar((V11));
133          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+1)+2;
134          {object _funobj = (V8);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V9);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
135                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
136                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
137                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
138          return;          return;
139          goto T44;          goto T44;
140  T44:;  T44:;
141          base[3]= (V8);          base[1]= (V9);
142          base[4]= (V9);          base[2]= (V10);
143          {object V11;          {object V12;
144          V11= (V10);          V12= (V11);
145           vs_top=base+5;           vs_top=base+3;
146           while(V11!=Cnil)           while(V12!=Cnil)
147           {vs_push((V11)->c.c_car);V11=(V11)->c.c_cdr;}           {vs_push((V12)->c.c_car);V12=(V12)->c.c_cdr;}
148          vs_base=base+4;}          vs_base=base+2;}
149          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
150                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
151                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
152                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
153          return;}          return;}
154          goto T36;          goto T36;
155  T36:;  T36:;
156          base[3]= (V7);          base[1]= (V8);
157          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+1)+1;
158          Lfunctionp();          Lfunctionp();
159          vs_top=sup;          vs_top=sup;
160          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
161          goto T55;}          goto T55;}
162          base[3]= (V1);          base[1]= (V1);
163          base[4]= (V2);          vs_top=(vs_base=base+1)+1;
164          base[5]= (V3);          {object _funobj = (V2);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
         vs_top=(vs_base=base+3)+3;  
         {object _funobj = (V4);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
165                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
166                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
167                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
168          return;          return;
169          goto T55;          goto T55;
170  T55:;  T55:;
171          base[4]= VV[3];          base[2]= VV[6];
172          base[5]= (V7);          base[3]= (V8);
173          base[6]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
174          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+2)+3;
175          (void) (*Lnk6)();          (void) (*Lnk11)();
176          vs_top=sup;          vs_top=sup;
177          base[3]= vs_base[0];          base[1]= vs_base[0];
178          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+1)+1;
179          Lerror();          Lerror();
180          return;}}          return;}}
181          }          }
182  }  }
183  static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* TYPECASE-ERROR-STRING */  static void LnkT11(){ call_or_link(VV[11],(void **)(void *)&Lnk11);} /* TYPECASE-ERROR-STRING */
184  static void LnkT5(){ call_or_link(VV[5],(void **)(void *)&Lnk5);} /* STRUCTURE-SUBTYPE-P */  static void LnkT10(){ call_or_link(VV[10],(void **)(void *)&Lnk10);} /* SLOT-UNBOUND-INTERNAL */
185  static void LnkT4(){ call_or_link(VV[4],(void **)(void *)&Lnk4);} /* TYPEP */  static object  LnkTLI9(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[9],(void **)(void *)&LnkLI9,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
186    static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* CCLOSURE-ENV-NTHCDR */
187    static void LnkT7(){ call_or_link(VV[7],(void **)(void *)&Lnk7);} /* STRUCTURE-SUBTYPE-P */
188    
189  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
190  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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