17 |
{object V2= CMPcaddr(base[0]); |
{object V2= CMPcaddr(base[0]); |
18 |
if(!(type_of(V2)==t_cons||(V2)==Cnil)){ |
if(!(type_of(V2)==t_cons||(V2)==Cnil)){ |
19 |
goto T2;}} |
goto T2;}} |
20 |
base[3]= (*(LnkLI123))(base[0]); |
base[3]= (*(LnkLI139))(base[0]); |
21 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
22 |
return; |
return; |
23 |
goto T2; |
goto T2; |
24 |
T2:; |
T2:; |
25 |
base[3]= (*(LnkLI124))(base[0]); |
base[3]= (*(LnkLI140))(base[0]); |
26 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
27 |
return; |
return; |
28 |
} |
} |
34 |
vs_check; |
vs_check; |
35 |
bds_check; |
bds_check; |
36 |
{object V3; |
{object V3; |
|
register object V4; |
|
|
register object V5; |
|
|
register object V6; |
|
|
object V7; |
|
37 |
check_arg(5); |
check_arg(5); |
38 |
V3=(base[0]); |
V3=(base[0]); |
|
V4=(base[1]); |
|
|
V5=(base[2]); |
|
|
V6=(base[3]); |
|
|
V7=(base[4]); |
|
39 |
vs_top=sup; |
vs_top=sup; |
40 |
goto TTL; |
goto TTL; |
41 |
TTL:; |
TTL:; |
42 |
base[5]=make_cclosure_new(LC3,Cnil,Cnil,Cdata); |
base[5]=make_cclosure_new(LC6,Cnil,Cnil,Cdata); |
43 |
base[5]=MMcons(base[5],Cnil); |
base[5]=MMcons(base[5],Cnil); |
44 |
base[6]=make_cclosure_new(LC4,Cnil,base[5],Cdata); |
base[6]=make_cclosure_new(LC7,Cnil,base[5],Cdata); |
45 |
base[6]=MMcons(base[6],base[5]); |
base[6]=MMcons(base[6],base[5]); |
46 |
base[7]= (base[5]->c.c_car); |
base[7]= (base[5]->c.c_car); |
47 |
base[8]= (base[6]->c.c_car); |
base[8]= (base[6]->c.c_car); |
48 |
bds_bind(VV[0],base[7]); |
bds_bind(VV[0],base[7]); |
49 |
bds_bind(VV[1],base[8]); |
bds_bind(VV[1],base[8]); |
50 |
if(((V4))==Cnil){ |
vs_base=vs_top; |
51 |
goto T13;} |
L5(base); |
|
base[9]= (V4); |
|
|
base[10]= VV[2]; |
|
|
vs_top=(vs_base=base+9)+2; |
|
|
(void) (*Lnk125)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T17;} |
|
|
base[9]= STREF(object,(V4),0); |
|
|
base[10]= STREF(object,(V4),4); |
|
|
base[11]= STREF(object,(V4),8); |
|
|
base[12]= (V5); |
|
|
base[13]= (V6); |
|
|
base[14]= (V7); |
|
|
vs_top=(vs_base=base+10)+5; |
|
|
{object _funobj = base[9];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
|
bds_unwind1; |
|
|
bds_unwind1; |
|
|
return; |
|
|
goto T17; |
|
|
T17:; |
|
|
{register object V9; |
|
|
V9= (V4); |
|
|
base[9]= (V9); |
|
|
base[10]= VV[3]; |
|
|
vs_top=(vs_base=base+9)+2; |
|
|
(void) (*Lnk125)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T28;} |
|
|
{object V10; |
|
|
object V11; |
|
|
register object V12; |
|
|
V10= STREF(object,(V4),0); |
|
|
V11= list(3,(V5),(V6),(V7)); |
|
|
V12= STREF(object,(V4),4); |
|
|
if(((V12))==Cnil){ |
|
|
goto T36;} |
|
|
if((CMPcdr((V12)))!=Cnil){ |
|
|
goto T36;} |
|
|
base[9]= (V11); |
|
|
base[10]= CMPcar((V12)); |
|
|
vs_top=(vs_base=base+9)+2; |
|
|
{object _funobj = (V10);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
|
bds_unwind1; |
|
|
bds_unwind1; |
|
|
return; |
|
|
goto T36; |
|
|
T36:; |
|
|
base[9]= (V10); |
|
|
base[10]= (V11); |
|
|
{object V13; |
|
|
V13= (V12); |
|
|
vs_top=base+11; |
|
|
while(V13!=Cnil) |
|
|
{vs_push((V13)->c.c_car);V13=(V13)->c.c_cdr;} |
|
|
vs_base=base+10;} |
|
|
{object _funobj = base[9];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
|
bds_unwind1; |
|
|
bds_unwind1; |
|
|
return;} |
|
|
goto T28; |
|
|
T28:; |
|
|
base[9]= (V9); |
|
|
vs_top=(vs_base=base+9)+1; |
|
|
Lfunctionp(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T46;} |
|
|
base[9]= (V5); |
|
|
base[10]= (V6); |
|
|
base[11]= (V7); |
|
|
vs_top=(vs_base=base+9)+3; |
|
|
{object _funobj = (V4);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
|
bds_unwind1; |
|
|
bds_unwind1; |
|
|
return; |
|
|
goto T46; |
|
|
T46:; |
|
|
base[10]= VV[4]; |
|
|
base[11]= (V9); |
|
|
base[12]= VV[5]; |
|
|
vs_top=(vs_base=base+10)+3; |
|
|
(void) (*Lnk126)(); |
|
|
vs_top=sup; |
|
|
base[9]= vs_base[0]; |
|
|
vs_top=(vs_base=base+9)+1; |
|
|
Lerror(); |
|
|
bds_unwind1; |
|
|
bds_unwind1; |
|
|
return;} |
|
|
goto T13; |
|
|
T13:; |
|
|
base[9]= VV[6]; |
|
|
vs_top=(vs_base=base+9)+1; |
|
|
Lerror(); |
|
52 |
bds_unwind1; |
bds_unwind1; |
53 |
bds_unwind1; |
bds_unwind1; |
54 |
return; |
return; |
56 |
} |
} |
57 |
/* local entry for function (FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T)) */ |
/* local entry for function (FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T)) */ |
58 |
|
|
59 |
static object LI5(V19,V20,V21,V22,V23) |
static object LI8(V10,V11,V12,V13,V14) |
60 |
|
|
61 |
object V19;object V20;object V21;object V22;object V23; |
object V10;object V11;object V12;object V13;object V14; |
62 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
63 |
goto TTL; |
goto TTL; |
64 |
TTL:; |
TTL:; |
65 |
if(((V23))==Cnil){ |
if(((V14))==Cnil){ |
66 |
goto T61;} |
goto T12;} |
67 |
base[0]= VV[7]; |
base[0]= VV[15]; |
68 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
69 |
(void) (*Lnk127)(); |
(void) (*Lnk141)(); |
70 |
vs_top=sup; |
vs_top=sup; |
71 |
goto T61; |
goto T12; |
72 |
T61:; |
T12:; |
73 |
{object V25 = (VV[8]->s.s_dbind); |
{object V16 = (VV[16]->s.s_dbind); |
74 |
VMR3(V25)} |
VMR3(V16)} |
75 |
base[0]=base[0]; |
base[0]=base[0]; |
76 |
return Cnil; |
return Cnil; |
77 |
} |
} |
78 |
/* function definition for Defclass SHORT-METHOD-COMBINATION8916 */ |
/* function definition for Defclass SHORT-METHOD-COMBINATION9981 */ |
79 |
|
|
80 |
static void L6() |
static void L9() |
81 |
{register object *base=vs_base; |
{register object *base=vs_base; |
82 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
83 |
vs_check; |
vs_check; |
85 |
vs_top=sup; |
vs_top=sup; |
86 |
goto TTL; |
goto TTL; |
87 |
TTL:; |
TTL:; |
88 |
base[0]= VV[9]; |
base[0]= VV[17]; |
89 |
base[1]= VV[10]; |
base[1]= VV[18]; |
90 |
base[2]= VV[11]; |
base[2]= VV[19]; |
91 |
V26= listA(9,VV[12],VV[13],VV[14],VV[15],VV[16],Cnil,VV[17],VV[18],Cnil); |
V17= listA(9,VV[5],VV[20],VV[21],VV[22],VV[23],Cnil,VV[24],VV[25],Cnil); |
92 |
base[3]= list(2,/* INLINE-ARGS */V26,listA(9,VV[12],VV[19],VV[14],VV[20],VV[16],Cnil,VV[17],VV[21],Cnil)); |
base[3]= list(2,/* INLINE-ARGS */V17,listA(9,VV[5],VV[26],VV[21],VV[27],VV[23],Cnil,VV[24],VV[28],Cnil)); |
93 |
base[4]= list(2,VV[22],VV[23]); |
base[4]= list(2,VV[29],VV[30]); |
94 |
base[5]= Cnil; |
base[5]= Cnil; |
95 |
symlispcall(VV[128],base+0,6); |
symlispcall(VV[142],base+0,6); |
96 |
return; |
return; |
97 |
} |
} |
98 |
/* local entry for function EXPAND-SHORT-DEFCOMBIN */ |
/* local entry for function EXPAND-SHORT-DEFCOMBIN */ |
99 |
|
|
100 |
static object LI7(V28) |
static object LI10(V19) |
101 |
|
|
102 |
register object V28; |
register object V19; |
103 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
104 |
goto TTL; |
goto TTL; |
105 |
TTL:; |
TTL:; |
106 |
{object V29; |
{object V20; |
107 |
object V30; |
object V21; |
108 |
object V31; |
object V22; |
109 |
object V32; |
object V23; |
110 |
V29= CMPcadr((V28)); |
V20= CMPcadr((V19)); |
111 |
base[4]= CMPcddr((V28)); |
base[4]= CMPcddr((V19)); |
112 |
base[5]= VV[24]; |
base[5]= VV[31]; |
113 |
base[6]= VV[25]; |
base[6]= VV[32]; |
114 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
115 |
Lgetf(); |
Lgetf(); |
116 |
vs_top=sup; |
vs_top=sup; |
117 |
V30= vs_base[0]; |
V21= vs_base[0]; |
118 |
base[4]= CMPcddr((V28)); |
base[4]= CMPcddr((V19)); |
119 |
base[5]= VV[26]; |
base[5]= VV[33]; |
120 |
base[6]= Cnil; |
base[6]= Cnil; |
121 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
122 |
Lgetf(); |
Lgetf(); |
123 |
vs_top=sup; |
vs_top=sup; |
124 |
V31= vs_base[0]; |
V22= vs_base[0]; |
125 |
base[4]= CMPcddr((V28)); |
base[4]= CMPcddr((V19)); |
126 |
base[5]= VV[27]; |
base[5]= VV[34]; |
127 |
base[6]= (V29); |
base[6]= (V20); |
128 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
129 |
Lgetf(); |
Lgetf(); |
130 |
vs_top=sup; |
vs_top=sup; |
131 |
V32= vs_base[0]; |
V23= vs_base[0]; |
132 |
V33= list(2,VV[28],(V29)); |
V24= list(2,VV[35],(V20)); |
133 |
V34= list(2,VV[31],(V29)); |
V25= list(2,VV[38],(V20)); |
134 |
V35= list(2,VV[31],(V32)); |
V26= list(2,VV[38],(V23)); |
135 |
V36= list(2,VV[31],(V31)); |
V27= list(2,VV[38],(V22)); |
136 |
V37= list(5,VV[30],/* INLINE-ARGS */V34,/* INLINE-ARGS */V35,/* INLINE-ARGS */V36,list(2,VV[31],(V30))); |
V28= list(5,VV[37],/* INLINE-ARGS */V25,/* INLINE-ARGS */V26,/* INLINE-ARGS */V27,list(2,VV[38],(V21))); |
137 |
{object V38 = (*(LnkLI129))(/* INLINE-ARGS */V33,VV[29],/* INLINE-ARGS */V37); |
{object V29 = (*(LnkLI143))(/* INLINE-ARGS */V24,VV[36],/* INLINE-ARGS */V28); |
138 |
VMR5(V38)}} |
VMR5(V29)}} |
139 |
base[0]=base[0]; |
base[0]=base[0]; |
140 |
return Cnil; |
return Cnil; |
141 |
} |
} |
142 |
/* function definition for LOAD-SHORT-DEFCOMBIN */ |
/* function definition for LOAD-SHORT-DEFCOMBIN */ |
143 |
|
|
144 |
static void L8() |
static void L11() |
145 |
{register object *base=vs_base; |
{register object *base=vs_base; |
146 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
147 |
vs_check; |
vs_check; |
148 |
{object V39; |
{object V30; |
149 |
check_arg(4); |
check_arg(4); |
150 |
V39=(base[0]); |
V30=(base[0]); |
151 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
152 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
153 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
154 |
vs_top=sup; |
vs_top=sup; |
155 |
{object V40; |
{object V31; |
156 |
object V41; |
object V32; |
157 |
object V42; |
object V33; |
158 |
vs_base=vs_top; |
vs_base=vs_top; |
159 |
(void) (*Lnk130)(); |
(void) (*Lnk144)(); |
160 |
vs_top=sup; |
vs_top=sup; |
161 |
V40= vs_base[0]; |
V31= vs_base[0]; |
162 |
V43= (VFUN_NARGS=1,(*(LnkLI131))(VV[32])); |
V34= (VFUN_NARGS=1,(*(LnkLI145))(VV[39])); |
163 |
V44= (*(LnkLI132))((V39)); |
V35= (*(LnkLI146))((V30)); |
164 |
V45 = (VV[33]->s.s_dbind); |
V32= list(3,/* INLINE-ARGS */V34,/* INLINE-ARGS */V35,(VV[40]->s.s_dbind)); |
165 |
V41= list(3,/* INLINE-ARGS */V43,/* INLINE-ARGS */V44,V45); |
V36= (VV[148]->s.s_gfdef); |
166 |
V46= (VV[134]->s.s_gfdef); |
V33= (VFUN_NARGS=4,(*(LnkLI147))(V36,Cnil,(V32),Cnil)); |
|
V47 = (V41); |
|
|
V42= (VFUN_NARGS=4,(*(LnkLI133))(V46,Cnil,V47,Cnil)); |
|
167 |
base[7]=MMcons(Cnil,base[3]); |
base[7]=MMcons(Cnil,base[3]); |
168 |
base[8]= VV[34]; |
base[8]= VV[41]; |
169 |
base[9]= VV[35]; |
base[9]= VV[42]; |
170 |
base[10]= Cnil; |
base[10]= Cnil; |
171 |
base[11]= VV[36]; |
base[11]= VV[43]; |
172 |
base[12]= (V41); |
base[12]= (V32); |
173 |
base[13]= VV[37]; |
base[13]= VV[44]; |
174 |
base[14]= VV[38]; |
base[14]= VV[45]; |
175 |
base[15]= VV[39]; |
base[15]= VV[46]; |
176 |
base[16]= |
base[16]= |
177 |
make_cclosure_new(LC23,Cnil,base[7],Cdata); |
make_cclosure_new(LC28,Cnil,base[7],Cdata); |
178 |
base[17]= VV[40]; |
base[17]= VV[47]; |
179 |
base[18]= list(2,list(2,VV[28],(V39)),(V40)); |
base[18]= list(2,list(2,VV[35],(V30)),(V31)); |
180 |
vs_top=(vs_base=base+8)+11; |
vs_top=(vs_base=base+8)+11; |
181 |
(void) (*Lnk135)(Lclptr135); |
(void) (*Lnk149)(Lclptr149); |
182 |
vs_top=sup; |
vs_top=sup; |
183 |
(base[7]->c.c_car)= vs_base[0]; |
(base[7]->c.c_car)= vs_base[0]; |
184 |
if(((V42))==Cnil){ |
if(((V33))==Cnil){ |
185 |
goto T101;} |
goto T52;} |
186 |
base[8]=(VV[136]->s.s_gfdef); |
base[8]=(VV[150]->s.s_gfdef); |
187 |
base[9]= (VV[134]->s.s_gfdef); |
base[9]= (VV[148]->s.s_gfdef); |
188 |
base[10]= (V42); |
base[10]= (V33); |
189 |
(void)simple_lispcall(base+8,2); |
(void)simple_lispcall(base+8,2); |
190 |
goto T101; |
goto T52; |
191 |
T101:; |
T52:; |
192 |
base[8]=(VV[137]->s.s_gfdef); |
base[8]=(VV[151]->s.s_gfdef); |
193 |
base[9]= (VV[134]->s.s_gfdef); |
base[9]= (VV[148]->s.s_gfdef); |
194 |
base[10]= (base[7]->c.c_car); |
base[10]= (base[7]->c.c_car); |
195 |
lispcall(base+8,2); |
(void)simple_lispcall(base+8,2); |
196 |
|
base[8]= (V30); |
197 |
|
vs_top=(vs_base=base+8)+1; |
198 |
return;} |
return;} |
199 |
} |
} |
200 |
} |
} |
201 |
/* function definition for DO-SHORT-METHOD-COMBINATION */ |
/* function definition for MAKE-SHORT-METHOD-COMBINATION */ |
202 |
|
|
203 |
static void L9() |
static void L12() |
204 |
{register object *base=vs_base; |
{register object *base=vs_base; |
205 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
206 |
vs_check; |
vs_check; |
207 |
{object V48; |
{object V37; |
208 |
register object V49; |
register object V38; |
209 |
object V50; |
object V39; |
210 |
object V51; |
object V40; |
211 |
object V52; |
object V41; |
212 |
object V53; |
object V42; |
213 |
check_arg(6); |
check_arg(6); |
214 |
V48=(base[0]); |
V37=(base[0]); |
215 |
V49=(base[1]); |
V38=(base[1]); |
216 |
V50=(base[2]); |
V39=(base[2]); |
217 |
V51=(base[3]); |
V40=(base[3]); |
218 |
V52=(base[4]); |
V41=(base[4]); |
219 |
V53=(base[5]); |
V42=(base[5]); |
220 |
vs_top=sup; |
vs_top=sup; |
221 |
goto TTL; |
goto TTL; |
222 |
TTL:; |
TTL:; |
223 |
if(((V49))!=Cnil){ |
if(((V38))!=Cnil){ |
224 |
goto T110;} |
goto T62;} |
225 |
V49= VV[41]; |
V38= VV[48]; |
226 |
goto T108; |
goto T60; |
227 |
goto T110; |
goto T62; |
228 |
T110:; |
T62:; |
229 |
{object V54; |
{object V43; |
230 |
V54= (equal((V49),VV[42])?Ct:Cnil); |
V43= (equal((V38),VV[49])?Ct:Cnil); |
231 |
if(((V54))==Cnil){ |
if(((V43))==Cnil){ |
232 |
goto T115;} |
goto T67;} |
233 |
goto T108; |
goto T60; |
234 |
goto T115; |
goto T67; |
235 |
T115:; |
T67:; |
236 |
{object V55; |
{object V44; |
237 |
V55= (equal((V49),VV[43])?Ct:Cnil); |
V44= (equal((V38),VV[50])?Ct:Cnil); |
238 |
if(((V55))==Cnil){ |
if(((V44))==Cnil){ |
239 |
goto T119;} |
goto T71;} |
240 |
goto T108; |
goto T60; |
241 |
goto T119; |
goto T71; |
242 |
T119:; |
T71:; |
243 |
base[6]= VV[44]; |
base[6]= VV[51]; |
244 |
base[7]= (V48); |
base[7]= (V37); |
245 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
246 |
(void) (*Lnk127)(); |
(void) (*Lnk141)(); |
247 |
vs_top=sup;}} |
vs_top=sup;}} |
248 |
goto T108; |
goto T60; |
249 |
T108:; |
T60:; |
250 |
base[6]= VV[9]; |
base[6]= VV[17]; |
251 |
base[7]= VV[45]; |
base[7]= VV[52]; |
252 |
base[8]= (V48); |
base[8]= (V37); |
253 |
base[9]= VV[46]; |
base[9]= VV[53]; |
254 |
base[10]= (V49); |
base[10]= (V38); |
255 |
base[11]= VV[27]; |
base[11]= VV[34]; |
256 |
base[12]= (V50); |
base[12]= (V39); |
257 |
base[13]= VV[26]; |
base[13]= VV[33]; |
258 |
base[14]= (V51); |
base[14]= (V40); |
259 |
base[15]= VV[40]; |
base[15]= VV[47]; |
260 |
base[16]= (V52); |
base[16]= (V41); |
261 |
base[17]= VV[24]; |
base[17]= VV[31]; |
262 |
base[18]= (V53); |
base[18]= (V42); |
263 |
vs_top=(vs_base=base+6)+13; |
vs_top=(vs_base=base+6)+13; |
264 |
(void) (*Lnk135)(Lclptr135); |
(void) (*Lnk149)(Lclptr149); |
265 |
return; |
return; |
266 |
} |
} |
267 |
} |
} |
268 |
/* local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T)) */ |
/* local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T)) */ |
269 |
|
|
270 |
static object LI10(V61,V62,V63,V64,V65) |
static object LI13(V50,V51,V52,V53,V54) |
271 |
|
|
272 |
object V61;object V62;object V63;object V64;object V65; |
object V50;object V51;object V52;object V53;object V54; |
273 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
274 |
goto TTL; |
goto TTL; |
275 |
TTL:; |
TTL:; |
276 |
{object V67; |
{object V56; |
277 |
object V68; |
object V57; |
278 |
object V69; |
object V58; |
279 |
object V70; |
object V59; |
280 |
register object V71; |
register object V60; |
281 |
base[1]= (V64); |
base[1]= (V53); |
282 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
283 |
(void) (*Lnk138)(Lclptr138); |
(void) (*Lnk152)(Lclptr152); |
284 |
vs_top=sup; |
vs_top=sup; |
285 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
286 |
base[1]= (V64); |
base[1]= (V53); |
287 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
288 |
(void) (*Lnk139)(Lclptr139); |
(void) (*Lnk153)(Lclptr153); |
289 |
vs_top=sup; |
vs_top=sup; |
290 |
V67= vs_base[0]; |
V56= vs_base[0]; |
291 |
base[1]= (V64); |
base[1]= (V53); |
292 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
293 |
(void) (*Lnk140)(Lclptr140); |
(void) (*Lnk154)(Lclptr154); |
294 |
vs_top=sup; |
vs_top=sup; |
295 |
V68= vs_base[0]; |
V57= vs_base[0]; |
296 |
base[1]= (V64); |
base[1]= (V53); |
297 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
298 |
(void) (*Lnk141)(Lclptr141); |
(void) (*Lnk155)(Lclptr155); |
299 |
vs_top=sup; |
vs_top=sup; |
300 |
V72= vs_base[0]; |
V61= vs_base[0]; |
301 |
V69= CMPcar(V72); |
V58= CMPcar(V61); |
302 |
V70= Cnil; |
V59= Cnil; |
303 |
V71= Cnil; |
V60= Cnil; |
304 |
{register object V73; |
{register object V62; |
305 |
register object V74; |
register object V63; |
306 |
V73= (V65); |
V62= (V54); |
307 |
V74= CMPcar((V73)); |
V63= CMPcar((V62)); |
308 |
goto T153; |
goto T103; |
309 |
T153:; |
T103:; |
310 |
if(!(((V73))==Cnil)){ |
if(!(((V62))==Cnil)){ |
311 |
goto T154;} |
goto T104;} |
312 |
goto T149; |
goto T99; |
313 |
goto T154; |
goto T104; |
314 |
T154:; |
T104:; |
315 |
{register object V75; |
{register object V64; |
316 |
base[2]= (V74); |
base[2]= (V63); |
317 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
318 |
(void) (*Lnk142)(Lclptr142); |
(void) (*Lnk156)(Lclptr156); |
319 |
vs_top=sup; |
vs_top=sup; |
320 |
V75= vs_base[0]; |
V64= vs_base[0]; |
321 |
if(((V75))!=Cnil){ |
if(((V64))!=Cnil){ |
322 |
goto T162;} |
goto T112;} |
323 |
base[2]= (V74); |
base[2]= (V63); |
324 |
base[3]= VV[47]; |
base[3]= VV[54]; |
325 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
326 |
L11(base); |
L15(base); |
327 |
vs_top=sup; |
vs_top=sup; |
328 |
goto T158; |
goto T108; |
329 |
goto T162; |
goto T112; |
330 |
T162:; |
T112:; |
331 |
if((CMPcdr((V75)))==Cnil){ |
if((CMPcdr((V64)))==Cnil){ |
332 |
goto T167;} |
goto T117;} |
333 |
base[2]= (V74); |
base[2]= (V63); |
334 |
base[3]= VV[48]; |
base[3]= VV[55]; |
335 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
336 |
L11(base); |
L15(base); |
337 |
vs_top=sup; |
vs_top=sup; |
338 |
goto T158; |
goto T108; |
339 |
goto T167; |
goto T117; |
340 |
T167:; |
T117:; |
341 |
if(!((CMPcar((V75)))==(VV[49]))){ |
if(!((CMPcar((V64)))==(VV[56]))){ |
342 |
goto T172;} |
goto T122;} |
343 |
V70= make_cons(V74,(V70)); |
V59= make_cons(V63,(V59)); |
344 |
goto T158; |
goto T108; |
345 |
goto T172; |
goto T122; |
346 |
T172:; |
T122:; |
347 |
if(!((CMPcar((V75)))==(base[0]))){ |
if(!((CMPcar((V64)))==(base[0]))){ |
348 |
goto T176;} |
goto T126;} |
349 |
V71= make_cons(V74,(V71)); |
V60= make_cons(V63,(V60)); |
350 |
goto T158; |
goto T108; |
351 |
goto T176; |
goto T126; |
352 |
T176:; |
T126:; |
353 |
base[2]= (V74); |
base[2]= (V63); |
354 |
base[3]= VV[50]; |
base[3]= VV[57]; |
355 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
356 |
L11(base); |
L15(base); |
357 |
vs_top=sup;} |
vs_top=sup;} |
358 |
goto T158; |
goto T108; |
359 |
T158:; |
T108:; |
360 |
V73= CMPcdr((V73)); |
V62= CMPcdr((V62)); |
361 |
V74= CMPcar((V73)); |
V63= CMPcar((V62)); |
362 |
goto T153;} |
goto T103;} |
363 |
|
goto T99; |
364 |
|
T99:; |
365 |
|
V59= nreverse((V59)); |
366 |
|
if(((V58))==(VV[59])){ |
367 |
|
goto T138;} |
368 |
|
V60= nreverse((V60)); |
369 |
|
goto T138; |
370 |
|
T138:; |
371 |
|
{object V67; |
372 |
|
if((CMPcdr((V60)))!=Cnil){ |
373 |
|
goto T144;} |
374 |
|
if(((V57))==Cnil){ |
375 |
|
goto T144;} |
376 |
|
V67= list(3,VV[60],CMPcar((V60)),Cnil); |
377 |
|
goto T142; |
378 |
|
goto T144; |
379 |
|
T144:; |
380 |
|
{object V69; |
381 |
|
object V70= (V60); |
382 |
|
if(V70==Cnil){ |
383 |
|
V68= Cnil; |
384 |
|
goto T148;} |
385 |
|
base[1]=V69=MMcons(Cnil,Cnil); |
386 |
goto T149; |
goto T149; |
387 |
T149:; |
T149:; |
388 |
V70= nreverse((V70)); |
(V69->c.c_car)= list(3,VV[60],(V70->c.c_car),Cnil); |
389 |
if(((V69))==(VV[52])){ |
if((V70=MMcdr(V70))==Cnil){ |
390 |
goto T188;} |
V68= base[1]; |
391 |
V71= nreverse((V71)); |
goto T148;} |
392 |
goto T188; |
V69=MMcdr(V69)=MMcons(Cnil,Cnil); |
393 |
T188:; |
goto T149;} |
394 |
{object V78; |
goto T148; |
395 |
if((CMPcdr((V71)))!=Cnil){ |
T148:; |
396 |
goto T194;} |
V67= make_cons((V56),V68); |
397 |
if(((V68))==Cnil){ |
goto T142; |
398 |
goto T194;} |
T142:; |
399 |
V78= list(3,VV[53],CMPcar((V71)),Cnil); |
if(((V60))!=Cnil){ |
400 |
goto T192; |
goto T152;} |
401 |
goto T194; |
V72= list(2,VV[38],base[0]); |
402 |
T194:; |
{object V73 = list(4,VV[61],VV[62],/* INLINE-ARGS */V72,list(2,VV[38],(V52))); |
403 |
V79 = (V67); |
VMR8(V73)} |
404 |
{object V81; |
goto T152; |
405 |
object V82= (V71); |
T152:; |
406 |
if(V82==Cnil){ |
if(((V59))!=Cnil){ |
407 |
V80= Cnil; |
goto T155;} |
408 |
goto T198;} |
{object V74 = (V67); |
409 |
base[1]=V81=MMcons(Cnil,Cnil); |
VMR8(V74)} |
410 |
goto T199; |
goto T155; |
411 |
T199:; |
T155:; |
412 |
(V81->c.c_car)= list(3,VV[53],(V82->c.c_car),Cnil); |
V75= CMPcar((V59)); |
413 |
if((V82=MMcdr(V82))==Cnil){ |
V76= CMPcdr((V59)); |
414 |
V80= base[1]; |
V77= list(2,VV[63],(V67)); |
415 |
goto T198;} |
V78= make_cons(/* INLINE-ARGS */V77,Cnil); |
416 |
V81=MMcdr(V81)=MMcons(Cnil,Cnil); |
{object V79 = list(3,VV[60],/* INLINE-ARGS */V75,append(/* INLINE-ARGS */V76,/* INLINE-ARGS */V78)); |
417 |
goto T199;} |
VMR8(V79)}}} |
|
goto T198; |
|
|
T198:; |
|
|
V78= make_cons(V79,V80); |
|
|
goto T192; |
|
|
T192:; |
|
|
if(((V71))!=Cnil){ |
|
|
goto T202;} |
|
|
V84= list(2,VV[31],base[0]); |
|
|
{object V85 = list(4,VV[54],VV[55],/* INLINE-ARGS */V84,list(2,VV[31],(V63))); |
|
|
VMR8(V85)} |
|
|
goto T202; |
|
|
T202:; |
|
|
if(((V70))!=Cnil){ |
|
|
goto T205;} |
|
|
{object V86 = (V78); |
|
|
VMR8(V86)} |
|
|
goto T205; |
|
|
T205:; |
|
|
V87= CMPcar((V70)); |
|
|
V88= CMPcdr((V70)); |
|
|
V89= list(2,VV[56],(V78)); |
|
|
V90= make_cons(/* INLINE-ARGS */V89,Cnil); |
|
|
{object V91 = list(3,VV[53],/* INLINE-ARGS */V87,append(/* INLINE-ARGS */V88,/* INLINE-ARGS */V90)); |
|
|
VMR8(V91)}}} |
|
418 |
base[0]=base[0]; |
base[0]=base[0]; |
419 |
return Cnil; |
return Cnil; |
420 |
} |
} |
|
/* function definition for Defclass LONG-METHOD-COMBINATION8939 */ |
|
|
|
|
|
static void L12() |
|
|
{register object *base=vs_base; |
|
|
register object *sup=base+VM9; VC9 |
|
|
vs_check; |
|
|
check_arg(0); |
|
|
vs_top=sup; |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]= VV[57]; |
|
|
base[1]= VV[10]; |
|
|
base[2]= VV[58]; |
|
|
V92= listA(9,VV[12],VV[59],VV[14],VV[60],VV[16],Cnil,VV[17],VV[61],Cnil); |
|
|
base[3]= make_cons(/* INLINE-ARGS */V92,Cnil); |
|
|
base[4]= Cnil; |
|
|
base[5]= Cnil; |
|
|
symlispcall(VV[128],base+0,6); |
|
|
return; |
|
|
} |
|
421 |
/* local entry for function EXPAND-LONG-DEFCOMBIN */ |
/* local entry for function EXPAND-LONG-DEFCOMBIN */ |
422 |
|
|
423 |
static object LI13(V94) |
static object LI16(V81) |
424 |
|
|
425 |
register object V94; |
register object V81; |
426 |
{ VMB10 VMS10 VMV10 |
{ VMB9 VMS9 VMV9 |
427 |
goto TTL; |
goto TTL; |
428 |
TTL:; |
TTL:; |
429 |
{object V95; |
{object V82; |
430 |
object V96; |
object V83; |
431 |
object V97; |
object V84; |
432 |
register object V98; |
register object V85; |
433 |
object V99; |
object V86; |
434 |
object V100; |
object V87; |
435 |
V95= CMPcadr((V94)); |
V82= CMPcadr((V81)); |
436 |
V96= CMPcaddr((V94)); |
V83= CMPcaddr((V81)); |
437 |
V97= CMPcadddr((V94)); |
V84= CMPcadddr((V81)); |
438 |
V98= CMPcddddr((V94)); |
V85= CMPcddddr((V81)); |
439 |
V99= Cnil; |
V86= Cnil; |
440 |
V100= Cnil; |
V87= Cnil; |
441 |
if(!(type_of(CMPcar((V98)))==t_cons)){ |
if(!(type_of(CMPcar((V85)))==t_cons)){ |
442 |
goto T217;} |
goto T161;} |
443 |
if(!((CMPcaar((V98)))==(VV[62]))){ |
if(!((CMPcaar((V85)))==(VV[64]))){ |
444 |
goto T217;} |
goto T161;} |
445 |
{object V102; |
{object V89; |
446 |
V102= CMPcar((V98)); |
V89= CMPcar((V85)); |
447 |
V98= CMPcdr((V98)); |
V85= CMPcdr((V85)); |
448 |
V101= (V102);} |
V88= (V89);} |
449 |
V99= CMPcdr(V101); |
V86= CMPcdr(V88); |
450 |
goto T217; |
goto T161; |
451 |
T217:; |
T161:; |
452 |
if(!(type_of(CMPcar((V98)))==t_cons)){ |
if(!(type_of(CMPcar((V85)))==t_cons)){ |
453 |
goto T227;} |
goto T171;} |
454 |
if(!((CMPcaar((V98)))==(VV[63]))){ |
if(!((CMPcaar((V85)))==(VV[65]))){ |
455 |
goto T227;} |
goto T171;} |
456 |
{object V104; |
{object V91; |
457 |
V104= CMPcar((V98)); |
V91= CMPcar((V85)); |
458 |
V98= CMPcdr((V98)); |
V85= CMPcdr((V85)); |
459 |
V103= (V104);} |
V90= (V91);} |
460 |
V100= CMPcadr(V103); |
V87= CMPcadr(V90); |
461 |
goto T227; |
goto T171; |
462 |
T227:; |
T171:; |
463 |
{object V105; |
{object V92; |
464 |
object V106; |
object V93; |
465 |
base[0]= (V95); |
base[0]= (V82); |
466 |
base[1]= (V96); |
base[1]= (V83); |
467 |
base[2]= (V97); |
base[2]= (V84); |
468 |
base[3]= (V99); |
base[3]= (V86); |
469 |
base[4]= (V100); |
base[4]= (V87); |
470 |
base[5]= (V98); |
base[5]= (V85); |
471 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
472 |
(void) (*Lnk143)(); |
(void) (*Lnk157)(); |
473 |
if(vs_base>=vs_top){vs_top=sup;goto T244;} |
if(vs_base>=vs_top){vs_top=sup;goto T188;} |
474 |
V105= vs_base[0]; |
V92= vs_base[0]; |
475 |
vs_base++; |
vs_base++; |
476 |
if(vs_base>=vs_top){vs_top=sup;goto T245;} |
if(vs_base>=vs_top){vs_top=sup;goto T189;} |
477 |
V106= vs_base[0]; |
V93= vs_base[0]; |
478 |
vs_top=sup; |
vs_top=sup; |
479 |
goto T246; |
goto T190; |
480 |
goto T244; |
goto T188; |
481 |
T244:; |
T188:; |
482 |
V105= Cnil; |
V92= Cnil; |
483 |
goto T245; |
goto T189; |
484 |
T245:; |
T189:; |
485 |
V106= Cnil; |
V93= Cnil; |
486 |
goto T246; |
goto T190; |
487 |
T246:; |
T190:; |
488 |
V107= list(2,VV[28],(V95)); |
V94= list(2,VV[35],(V82)); |
489 |
V108= list(2,VV[31],(V95)); |
V95= list(2,VV[38],(V82)); |
490 |
V109= list(2,VV[31],(V105)); |
V96= list(2,VV[38],(V92)); |
491 |
V110= list(4,VV[65],/* INLINE-ARGS */V108,/* INLINE-ARGS */V109,list(2,VV[59],(V106))); |
V97= list(2,VV[68],(V93)); |
492 |
{object V111 = (*(LnkLI129))(/* INLINE-ARGS */V107,VV[64],/* INLINE-ARGS */V110); |
V98= list(5,VV[67],/* INLINE-ARGS */V95,/* INLINE-ARGS */V96,/* INLINE-ARGS */V97,list(2,VV[38],(V86))); |
493 |
VMR10(V111)}}} |
{object V99 = (*(LnkLI143))(/* INLINE-ARGS */V94,VV[66],/* INLINE-ARGS */V98); |
494 |
|
VMR9(V99)}}} |
495 |
base[0]=base[0]; |
base[0]=base[0]; |
496 |
return Cnil; |
return Cnil; |
497 |
} |
} |
498 |
/* function definition for LOAD-LONG-DEFCOMBIN */ |
/* function definition for LOAD-LONG-DEFCOMBIN */ |
499 |
|
|
500 |
static void L14() |
static void L17() |
501 |
{register object *base=vs_base; |
{register object *base=vs_base; |
502 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM10; VC10 |
503 |
vs_check; |
vs_check; |
504 |
{object V112; |
{register object V100; |
505 |
object V113; |
check_arg(4); |
506 |
check_arg(3); |
V100=(base[0]); |
|
V112=(base[0]); |
|
507 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
508 |
V113=(base[2]); |
base[2]=MMcons(base[2],base[1]); |
509 |
|
base[3]=MMcons(base[3],base[2]); |
510 |
vs_top=sup; |
vs_top=sup; |
511 |
{object V114; |
{object V101; |
512 |
object V115; |
object V102; |
513 |
object V116; |
object V103; |
514 |
V117= (VFUN_NARGS=1,(*(LnkLI131))(VV[32])); |
V104= (VFUN_NARGS=1,(*(LnkLI145))(VV[39])); |
515 |
V118= (*(LnkLI132))((V112)); |
V105= (*(LnkLI146))((V100)); |
516 |
V119 = (VV[33]->s.s_dbind); |
V101= list(3,/* INLINE-ARGS */V104,/* INLINE-ARGS */V105,(VV[40]->s.s_dbind)); |
517 |
V114= list(3,/* INLINE-ARGS */V117,/* INLINE-ARGS */V118,V119); |
V106= (VV[148]->s.s_gfdef); |
518 |
V120= (VV[134]->s.s_gfdef); |
V102= (VFUN_NARGS=4,(*(LnkLI147))(V106,Cnil,(V101),Cnil)); |
519 |
V121 = (V114); |
base[7]= VV[41]; |
520 |
V115= (VFUN_NARGS=4,(*(LnkLI133))(V120,Cnil,V121,Cnil)); |
base[8]= VV[42]; |
521 |
base[6]= VV[34]; |
base[9]= Cnil; |
522 |
base[7]= VV[35]; |
base[10]= VV[43]; |
523 |
base[8]= Cnil; |
base[11]= (V101); |
524 |
base[9]= VV[36]; |
base[12]= VV[44]; |
525 |
base[10]= (V114); |
base[13]= VV[69]; |
526 |
base[11]= VV[37]; |
base[14]= VV[46]; |
527 |
base[12]= VV[66]; |
base[15]= |
528 |
base[13]= VV[39]; |
make_cclosure_new(LC29,Cnil,base[3],Cdata); |
529 |
base[14]= |
base[16]= VV[47]; |
530 |
make_cclosure_new(LC24,Cnil,base[1],Cdata); |
V107= list(2,VV[35],(V100)); |
|
base[15]= VV[40]; |
|
|
V122= list(2,VV[28],(V112)); |
|
531 |
vs_base=vs_top; |
vs_base=vs_top; |
532 |
(void) (*Lnk130)(); |
(void) (*Lnk144)(); |
|
vs_top=sup; |
|
|
V123= vs_base[0]; |
|
|
base[16]= list(2,/* INLINE-ARGS */V122,V123); |
|
|
vs_top=(vs_base=base+6)+11; |
|
|
(void) (*Lnk135)(Lclptr135); |
|
533 |
vs_top=sup; |
vs_top=sup; |
534 |
V116= vs_base[0]; |
V108= vs_base[0]; |
535 |
{object V125; |
base[17]= list(2,/* INLINE-ARGS */V107,V108); |
536 |
V125= (VV[67]->s.s_dbind); |
vs_top=(vs_base=base+7)+11; |
537 |
base[6]= V112; |
(void) (*Lnk149)(Lclptr149); |
538 |
base[7]= (V125); |
vs_top=sup; |
539 |
base[8]= V113; |
V103= vs_base[0]; |
540 |
vs_top=(vs_base=base+6)+3; |
{object V110; |
541 |
|
object V111; |
542 |
|
V110= (VV[72]->s.s_dbind); |
543 |
|
V111= (base[2]->c.c_car); |
544 |
|
base[7]= V100; |
545 |
|
base[8]= (V110); |
546 |
|
base[9]= (V111); |
547 |
|
vs_top=(vs_base=base+7)+3; |
548 |
siLhash_set(); |
siLhash_set(); |
549 |
vs_top=sup;} |
vs_top=sup;} |
550 |
if(((V115))==Cnil){ |
if(((V102))==Cnil){ |
551 |
goto T268;} |
goto T213;} |
552 |
base[6]=(VV[136]->s.s_gfdef); |
base[7]=(VV[150]->s.s_gfdef); |
553 |
base[7]= (VV[134]->s.s_gfdef); |
base[8]= (VV[148]->s.s_gfdef); |
554 |
base[8]= (V115); |
base[9]= (V102); |
555 |
(void)simple_lispcall(base+6,2); |
(void)simple_lispcall(base+7,2); |
556 |
goto T268; |
goto T213; |
557 |
T268:; |
T213:; |
558 |
base[6]=(VV[137]->s.s_gfdef); |
base[7]=(VV[151]->s.s_gfdef); |
559 |
base[7]= (VV[134]->s.s_gfdef); |
base[8]= (VV[148]->s.s_gfdef); |
560 |
base[8]= (V116); |
base[9]= (V103); |
561 |
lispcall(base+6,2); |
(void)simple_lispcall(base+7,2); |
562 |
|
base[7]= (V100); |
563 |
|
vs_top=(vs_base=base+7)+1; |
564 |
return;} |
return;} |
565 |
} |
} |
566 |
} |
} |
567 |
/* function definition for (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T)) */ |
/* function definition for (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T)) */ |
568 |
|
|
569 |
static void L15() |
static void L18() |
570 |
{register object *base=vs_base; |
{register object *base=vs_base; |
571 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM11; VC11 |
572 |
vs_check; |
vs_check; |
573 |
{object V127; |
{object V112; |
574 |
object V128; |
object V113; |
575 |
object V129; |
object V114; |
576 |
object V130; |
register object V115; |
577 |
object V131; |
object V116; |
578 |
check_arg(5); |
check_arg(5); |
579 |
V127=(base[0]); |
V112=(base[0]); |
580 |
V128=(base[1]); |
V113=(base[1]); |
581 |
V129=(base[2]); |
V114=(base[2]); |
582 |
V130=(base[3]); |
V115=(base[3]); |
583 |
V131=(base[4]); |
V116=(base[4]); |
584 |
vs_top=sup; |
vs_top=sup; |
585 |
goto TTL; |
goto TTL; |
586 |
TTL:; |
TTL:; |
587 |
base[7]= (V130); |
base[7]= (V115); |
588 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
589 |
(void) (*Lnk138)(Lclptr138); |
(void) (*Lnk152)(Lclptr152); |
590 |
vs_top=sup; |
vs_top=sup; |
591 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
592 |
base[7]= (VV[67]->s.s_dbind); |
base[7]= (VV[72]->s.s_dbind); |
593 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
594 |
Lgethash(); |
Lgethash(); |
595 |
vs_top=sup; |
vs_top=sup; |
596 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
597 |
base[6]= (V129); |
base[6]= (V114); |
598 |
base[7]= (V130); |
base[7]= (V115); |
599 |
base[8]= (V131); |
base[8]= (V116); |
600 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
601 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
602 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
607 |
} |
} |
608 |
/* function definition for MAKE-LONG-METHOD-COMBINATION-FUNCTION */ |
/* function definition for MAKE-LONG-METHOD-COMBINATION-FUNCTION */ |
609 |
|
|
610 |
static void L16() |
static void L19() |
611 |
{register object *base=vs_base; |
{register object *base=vs_base; |
612 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM12; VC12 |
613 |
vs_check; |
vs_check; |
614 |
{object V133; |
{object V118; |
615 |
object V134; |
object V119; |
616 |
object V135; |
object V120; |
617 |
object V136; |
object V121; |
618 |
object V137; |
object V122; |
619 |
object V138; |
object V123; |
620 |
check_arg(6); |
check_arg(6); |
621 |
V133=(base[0]); |
V118=(base[0]); |
622 |
V134=(base[1]); |
V119=(base[1]); |
623 |
V135=(base[2]); |
V120=(base[2]); |
624 |
V136=(base[3]); |
V121=(base[3]); |
625 |
V137=(base[4]); |
V122=(base[4]); |
626 |
V138=(base[5]); |
V123=(base[5]); |
627 |
vs_top=sup; |
vs_top=sup; |
628 |
goto TTL; |
goto TTL; |
629 |
TTL:; |
TTL:; |
630 |
{object V139; |
{object V124; |
631 |
object V140; |
object V125; |
632 |
object V141; |
object V126; |
633 |
base[6]= (V138); |
base[6]= (V123); |
634 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
635 |
(void) (*Lnk144)(); |
(void) (*Lnk158)(); |
636 |
if(vs_base>=vs_top){vs_top=sup;goto T288;} |
if(vs_base>=vs_top){vs_top=sup;goto T232;} |
637 |
V139= vs_base[0]; |
V124= vs_base[0]; |
638 |
vs_base++; |
vs_base++; |
639 |
if(vs_base>=vs_top){vs_top=sup;goto T289;} |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
640 |
V140= vs_base[0]; |
V125= vs_base[0]; |
641 |
vs_base++; |
vs_base++; |
642 |
if(vs_base>=vs_top){vs_top=sup;goto T290;} |
if(vs_base>=vs_top){vs_top=sup;goto T234;} |
643 |
V141= vs_base[0]; |
V126= vs_base[0]; |
644 |
vs_top=sup; |
vs_top=sup; |
645 |
goto T291; |
goto T235; |
646 |
goto T288; |
goto T232; |
647 |
T288:; |
T232:; |
648 |
V139= Cnil; |
V124= Cnil; |
649 |
goto T289; |
goto T233; |
650 |
T289:; |
T233:; |
651 |
V140= Cnil; |
V125= Cnil; |
652 |
goto T290; |
goto T234; |
653 |
T290:; |
T234:; |
654 |
V141= Cnil; |
V126= Cnil; |
655 |
goto T291; |
goto T235; |
656 |
T291:; |
T235:; |
657 |
{register object V142; |
{register object V127; |
658 |
V142= (*(LnkLI145))((V135),(V140),(V141)); |
V127= (*(LnkLI159))((V120),(V125),(V126)); |
659 |
if(((V137))==Cnil){ |
if(((V122))==Cnil){ |
660 |
goto T293;} |
goto T237;} |
661 |
{object V143; |
{object V128; |
662 |
object V145; |
object V130; |
663 |
V143= list(2,(V137),VV[68]); |
V128= list(2,(V122),VV[73]); |
664 |
V145= make_cons((V143),CMPcadr(V142)); |
V130= make_cons((V128),CMPcadr(V127)); |
665 |
(CMPcdr(V142))->c.c_car = (V145); |
(CMPcdr(V127))->c.c_car = (V130); |
666 |
(void)(CMPcdr(V142));} |
(void)(CMPcdr(V127));} |
667 |
goto T293; |
goto T237; |
668 |
T293:; |
T237:; |
669 |
if(((V136))==Cnil){ |
if(((V121))==Cnil){ |
670 |
goto T299;} |
goto T243;} |
671 |
V142= (*(LnkLI146))((V142),(V136)); |
V127= (*(LnkLI160))((V127),(V121)); |
672 |
goto T299; |
goto T243; |
673 |
T299:; |
T243:; |
674 |
if(((V134))==Cnil){ |
if(((V119))==Cnil){ |
675 |
goto T303;} |
goto T247;} |
676 |
V142= list(3,VV[69],list(2,VV[59],list(3,VV[70],(V134),(V142))),VV[71]); |
V127= list(3,VV[74],list(3,VV[75],(V119),(V127)),VV[76]); |
677 |
goto T303; |
goto T247; |
678 |
T303:; |
T247:; |
679 |
base[6]= (V139); |
base[6]= (V124); |
680 |
base[7]= list(4,VV[70],VV[72],VV[73],list(3,VV[74],VV[75],(V142))); |
base[7]= list(4,VV[75],VV[77],VV[78],list(3,VV[79],VV[80],(V127))); |
681 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
682 |
return;}} |
return;}} |
683 |
} |
} |
684 |
} |
} |
685 |
/* local entry for function WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */ |
/* local entry for function WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */ |
686 |
|
|
687 |
static object LI17(V149,V150,V151) |
static object LI20(V134,V135,V136) |
688 |
|
|
689 |
object V149;object V150;object V151; |
object V134;object V135;object V136; |
690 |
{ VMB14 VMS14 VMV14 |
{ VMB13 VMS13 VMV13 |
691 |
goto TTL; |
goto TTL; |
692 |
TTL:; |
TTL:; |
693 |
{object V152; |
{register object V137; |
694 |
object V153; |
register object V138; |
695 |
object V154; |
register object V139; |
696 |
object V155; |
register object V140; |
697 |
object V156; |
register object V141; |
698 |
{object V157; |
V137= Cnil; |
699 |
register object V158; |
V138= Cnil; |
700 |
object V159; |
V139= Cnil; |
701 |
register object V160; |
V140= Cnil; |
702 |
object V161; |
V141= Cnil; |
703 |
register object V162; |
{register object V142; |
704 |
object V163; |
object V143; |
705 |
register object V164; |
V142= (V134); |
706 |
object V165; |
V143= CMPcar((V142)); |
707 |
register object V166; |
goto T257; |
708 |
V157= Cnil; |
T257:; |
709 |
V158= Cnil; |
if(!(((V142))==Cnil)){ |
710 |
V159= Cnil; |
goto T258;} |
711 |
V160= Cnil; |
goto T253; |
712 |
V161= Cnil; |
goto T258; |
713 |
V162= Cnil; |
T258:; |
714 |
V163= Cnil; |
{register object V144; |
715 |
V164= Cnil; |
object V145; |
716 |
V165= Cnil; |
register object V146; |
717 |
V166= Cnil; |
register object V147; |
718 |
{register object V167; |
object V148; |
719 |
object V168; |
base[1]= (V143); |
|
V167= (V149); |
|
|
V168= CMPcar((V167)); |
|
|
goto T324; |
|
|
T324:; |
|
|
if(!(((V167))==Cnil)){ |
|
|
goto T325;} |
|
|
goto T320; |
|
|
goto T325; |
|
|
T325:; |
|
|
{register object V169; |
|
|
object V170; |
|
|
register object V171; |
|
|
register object V172; |
|
|
object V173; |
|
|
base[1]= (V168); |
|
720 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
721 |
(void) (*Lnk147)(); |
(void) (*Lnk161)(); |
722 |
if(vs_base>=vs_top){vs_top=sup;goto T332;} |
if(vs_base>=vs_top){vs_top=sup;goto T265;} |
723 |
V169= vs_base[0]; |
V144= vs_base[0]; |
724 |
vs_base++; |
vs_base++; |
725 |
if(vs_base>=vs_top){vs_top=sup;goto T333;} |
if(vs_base>=vs_top){vs_top=sup;goto T266;} |
726 |
V170= vs_base[0]; |
V145= vs_base[0]; |
727 |
vs_base++; |
vs_base++; |
728 |
if(vs_base>=vs_top){vs_top=sup;goto T334;} |
if(vs_base>=vs_top){vs_top=sup;goto T267;} |
729 |
V171= vs_base[0]; |
V146= vs_base[0]; |
730 |
vs_base++; |
vs_base++; |
731 |
if(vs_base>=vs_top){vs_top=sup;goto T335;} |
if(vs_base>=vs_top){vs_top=sup;goto T268;} |
732 |
V172= vs_base[0]; |
V147= vs_base[0]; |
733 |
vs_base++; |
vs_base++; |
734 |
if(vs_base>=vs_top){vs_top=sup;goto T336;} |
if(vs_base>=vs_top){vs_top=sup;goto T269;} |
735 |
V173= vs_base[0]; |
V148= vs_base[0]; |
736 |
vs_top=sup; |
vs_top=sup; |
737 |
goto T337; |
goto T270; |
738 |
goto T332; |
goto T265; |
739 |
T332:; |
T265:; |
740 |
V169= Cnil; |
V144= Cnil; |
741 |
goto T333; |
goto T266; |
742 |
T333:; |
T266:; |
743 |
V170= Cnil; |
V145= Cnil; |
744 |
goto T334; |
goto T267; |
745 |
T334:; |
T267:; |
746 |
V171= Cnil; |
V146= Cnil; |
747 |
goto T335; |
goto T268; |
748 |
T335:; |
T268:; |
749 |
V172= Cnil; |
V147= Cnil; |
750 |
goto T336; |
goto T269; |
751 |
T336:; |
T269:; |
752 |
V173= Cnil; |
V148= Cnil; |
753 |
goto T337; |
goto T270; |
754 |
T337:; |
T270:; |
755 |
{register object V174; |
{register object V149; |
756 |
vs_base=vs_top; |
vs_base=vs_top; |
757 |
Lgensym(); |
Lgensym(); |
758 |
vs_top=sup; |
vs_top=sup; |
759 |
V174= vs_base[0]; |
V149= vs_base[0]; |
760 |
if(((V157))!=Cnil){ |
V137= make_cons(V144,(V137)); |
761 |
goto T341;} |
V138= make_cons(V149,(V138)); |
762 |
V158= make_cons(V169,Cnil); |
{object V152; |
763 |
V157= (V158); |
V153= make_cons(VV[81],(V145)); |
764 |
goto T339; |
V154= list(3,VV[83],list(3,VV[84],(V149),VV[85]),VV[86]); |
765 |
goto T341; |
V155= list(3,VV[87],VV[80],list(2,VV[38],list(3,VV[61],VV[88],list(2,VV[38],(V144))))); |
766 |
T341:; |
V156= list(4,VV[82],/* INLINE-ARGS */V154,/* INLINE-ARGS */V155,list(3,VV[89],(V149),VV[85])); |
767 |
V177= make_cons(V169,Cnil); |
V152= list(3,/* INLINE-ARGS */V153,/* INLINE-ARGS */V156,list(3,VV[90],VV[91],(V144))); |
768 |
((V158))->c.c_cdr = /* INLINE-ARGS */V177; |
V139= make_cons((V152),(V139));} |
769 |
V176= (V158); |
if(((V148))==Cnil){ |
770 |
V158= CMPcdr(V176); |
goto T279;} |
771 |
goto T339; |
{object V157; |
772 |
T339:; |
V158= list(2,VV[93],(V144)); |
773 |
if(((V159))!=Cnil){ |
V157= list(3,VV[92],/* INLINE-ARGS */V158,list(3,VV[87],VV[80],list(2,VV[38],list(3,VV[61],VV[94],list(2,VV[38],(V144)))))); |
774 |
goto T349;} |
V140= make_cons((V157),(V140));} |
775 |
V160= make_cons(V174,Cnil); |
goto T279; |
776 |
V159= (V160); |
T279:; |
777 |
goto T347; |
goto T286; |
778 |
goto T349; |
T286:; |
779 |
T349:; |
base[1]= (V147); |
|
V180= make_cons(V174,Cnil); |
|
|
((V160))->c.c_cdr = /* INLINE-ARGS */V180; |
|
|
V179= (V160); |
|
|
V160= CMPcdr(V179); |
|
|
goto T347; |
|
|
T347:; |
|
|
{object V181; |
|
|
V182= make_cons(VV[76],(V170)); |
|
|
V183= list(3,VV[78],(V174),VV[79]); |
|
|
V184= list(3,VV[80],VV[75],list(2,VV[31],list(3,VV[54],VV[81],list(2,VV[31],(V169))))); |
|
|
V185= list(4,VV[77],/* INLINE-ARGS */V183,/* INLINE-ARGS */V184,list(3,VV[82],(V174),VV[79])); |
|
|
V181= list(3,/* INLINE-ARGS */V182,/* INLINE-ARGS */V185,list(3,VV[83],VV[84],(V169))); |
|
|
if(((V161))!=Cnil){ |
|
|
goto T358;} |
|
|
V162= make_cons((V181),Cnil); |
|
|
V161= (V162); |
|
|
goto T355; |
|
|
goto T358; |
|
|
T358:; |
|
|
V187= make_cons((V181),Cnil); |
|
|
((V162))->c.c_cdr = /* INLINE-ARGS */V187; |
|
|
V186= (V162); |
|
|
V162= CMPcdr(V186);} |
|
|
goto T355; |
|
|
T355:; |
|
|
if(((V173))==Cnil){ |
|
|
goto T364;} |
|
|
{object V188; |
|
|
V189= list(2,VV[86],(V169)); |
|
|
V188= list(3,VV[85],/* INLINE-ARGS */V189,list(3,VV[80],VV[75],list(2,VV[31],list(3,VV[54],VV[87],list(2,VV[31],(V169)))))); |
|
|
if(((V163))!=Cnil){ |
|
|
goto T369;} |
|
|
V164= make_cons((V188),Cnil); |
|
|
V163= (V164); |
|
|
goto T364; |
|
|
goto T369; |
|
|
T369:; |
|
|
V191= make_cons((V188),Cnil); |
|
|
((V164))->c.c_cdr = /* INLINE-ARGS */V191; |
|
|
V190= (V164); |
|
|
V164= CMPcdr(V190);} |
|
|
goto T364; |
|
|
T364:; |
|
|
goto T377; |
|
|
T377:; |
|
|
base[1]= (V172); |
|
780 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
781 |
Lconstantp(); |
Lconstantp(); |
782 |
vs_top=sup; |
vs_top=sup; |
783 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
784 |
goto T379;}{object V192; |
goto T288;}{object V159; |
785 |
V192= (V172); |
V159= (V147); |
786 |
base[1]= (V172); |
base[1]= (V147); |
787 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
788 |
Leval(); |
Leval(); |
789 |
vs_top=sup; |
vs_top=sup; |
790 |
V172= vs_base[0]; |
V147= vs_base[0]; |
791 |
V193 = (V172); |
if((((V159)==((V147))?Ct:Cnil))==Cnil){ |
792 |
if((((V192)==(V193)?Ct:Cnil))==Cnil){ |
goto T287;}} |
793 |
goto T378;}} |
goto T288; |
794 |
goto T379; |
T288:; |
795 |
T379:; |
goto T284; |
796 |
goto T375; |
goto T287; |
797 |
goto T378; |
T287:; |
798 |
T378:; |
goto T286; |
799 |
goto T377; |
goto T284; |
800 |
goto T375; |
T284:; |
801 |
T375:; |
{object V160; |
802 |
{object V194; |
if(!(((V147))==(VV[95]))){ |
803 |
if(!(((V172))==(VV[88]))){ |
goto T298;} |
804 |
goto T389;} |
V160= list(3,VV[89],(V144),list(2,VV[96],(V144))); |
805 |
V194= list(3,VV[82],(V169),list(2,VV[89],(V169))); |
goto T296; |
806 |
goto T387; |
goto T298; |
807 |
goto T389; |
T298:; |
808 |
T389:; |
if(!(((V147))==(VV[59]))){ |
809 |
if(!(((V172))==(VV[52]))){ |
goto T301;} |
810 |
goto T392;} |
V160= Cnil; |
811 |
V194= Cnil; |
goto T296; |
812 |
goto T387; |
goto T301; |
813 |
goto T392; |
T301:; |
814 |
T392:; |
V160= list(4,VV[97],(V147),list(2,VV[95],list(3,VV[89],(V144),list(2,VV[96],(V144)))),VV[98]); |
815 |
V194= list(4,VV[90],(V172),list(2,VV[88],list(3,VV[82],(V169),list(2,VV[89],(V169)))),VV[91]); |
goto T296; |
816 |
goto T387; |
T296:; |
817 |
T387:; |
V141= make_cons((V160),(V141));}}} |
818 |
if(((V165))!=Cnil){ |
V142= CMPcdr((V142)); |
819 |
goto T395;} |
V143= CMPcar((V142)); |
820 |
V166= make_cons((V194),Cnil); |
goto T257;} |
821 |
V165= (V166); |
goto T253; |
822 |
goto T329; |
T253:; |
823 |
goto T395; |
V161= nreverse((V137)); |
824 |
T395:; |
V162= nreverse((V138)); |
825 |
V196= make_cons((V194),Cnil); |
V163= append(/* INLINE-ARGS */V161,/* INLINE-ARGS */V162); |
826 |
((V166))->c.c_cdr = /* INLINE-ARGS */V196; |
V164= nreverse((V139)); |
827 |
V195= (V166); |
V165= list(3,VV[100],VV[101],list(4,VV[99],VV[102],VV[103],make_cons(VV[104],/* INLINE-ARGS */V164))); |
828 |
V166= CMPcdr(V195);}}} |
base[0]= nreverse((V140)); |
829 |
goto T329; |
base[1]= nreverse((V141)); |
830 |
T329:; |
base[2]= (V136); |
|
V167= CMPcdr((V167)); |
|
|
V168= CMPcar((V167)); |
|
|
goto T324;} |
|
|
goto T320; |
|
|
T320:; |
|
|
base[0]= (V157); |
|
|
base[1]= (V159); |
|
|
base[2]= (V161); |
|
|
base[3]= (V163); |
|
|
base[4]= (V165); |
|
|
vs_top=(vs_base=base+0)+5;} |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T411;} |
|
|
V152= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T412;} |
|
|
V153= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T413;} |
|
|
V154= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T414;} |
|
|
V155= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T415;} |
|
|
V156= vs_base[0]; |
|
|
vs_top=sup; |
|
|
goto T416; |
|
|
goto T411; |
|
|
T411:; |
|
|
V152= Cnil; |
|
|
goto T412; |
|
|
T412:; |
|
|
V153= Cnil; |
|
|
goto T413; |
|
|
T413:; |
|
|
V154= Cnil; |
|
|
goto T414; |
|
|
T414:; |
|
|
V155= Cnil; |
|
|
goto T415; |
|
|
T415:; |
|
|
V156= Cnil; |
|
|
goto T416; |
|
|
T416:; |
|
|
V197= append((V152),(V153)); |
|
|
V198= list(3,VV[93],VV[94],list(4,VV[92],VV[95],VV[96],make_cons(VV[97],(V154)))); |
|
|
base[0]= (V155); |
|
|
base[1]= (V156); |
|
|
base[2]= (V151); |
|
831 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
832 |
Lappend(); |
Lappend(); |
833 |
vs_top=sup; |
vs_top=sup; |
834 |
V199= vs_base[0]; |
V166= vs_base[0]; |
835 |
V200= make_cons(/* INLINE-ARGS */V198,V199); |
V167= make_cons(/* INLINE-ARGS */V165,V166); |
836 |
{object V201 = listA(3,VV[92],/* INLINE-ARGS */V197,append((V150),/* INLINE-ARGS */V200)); |
{object V168 = listA(3,VV[99],/* INLINE-ARGS */V163,append((V135),/* INLINE-ARGS */V167)); |
837 |
VMR14(V201)}} |
VMR13(V168)}} |
838 |
base[0]=base[0]; |
base[0]=base[0]; |
839 |
return Cnil; |
return Cnil; |
840 |
} |
} |
841 |
/* function definition for PARSE-METHOD-GROUP-SPECIFIER */ |
/* function definition for PARSE-METHOD-GROUP-SPECIFIER */ |
842 |
|
|
843 |
static void L18() |
static void L21() |
844 |
{register object *base=vs_base; |
{register object *base=vs_base; |
845 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM14; VC14 |
846 |
vs_check; |
vs_check; |
847 |
{register object V202; |
{object V169; |
848 |
check_arg(1); |
check_arg(1); |
849 |
V202=(base[0]); |
V169=(base[0]); |
850 |
vs_top=sup; |
vs_top=sup; |
851 |
goto TTL; |
goto TTL; |
852 |
TTL:; |
TTL:; |
853 |
{object V203; |
{register object V170; |
854 |
register object V204; |
{object V171; |
855 |
object V205; |
V171= CMPcar((V169)); |
856 |
{object V206; |
V169= CMPcdr((V169)); |
857 |
V206= CMPcar((V202)); |
V170= (V171);} |
858 |
V202= CMPcdr((V202)); |
{register object V172; |
859 |
V203= (V206);} |
V172= (V169); |
860 |
V204= Cnil; |
{register object V173; |
861 |
{register object V207; |
V173= Cnil; |
862 |
register object V208; |
{register object V174; |
863 |
V207= Cnil; |
register object V175; |
864 |
V208= Cnil; |
register object V176; |
865 |
goto T431; |
V174= make_cons(Cnil,Cnil); |
866 |
T431:; |
V175= (V174); |
867 |
if(((V202))==Cnil){ |
V176= Cnil; |
868 |
goto T433;} |
{register object V177; |
869 |
{register object x= CMPcar((V202)),V209= VV[98]; |
register object V178; |
870 |
while(V209!=Cnil) |
register object V179; |
871 |
if(x==(V209->c.c_car)){ |
V177= make_cons(Cnil,Cnil); |
872 |
goto T437; |
V178= (V177); |
873 |
}else V209=V209->c.c_cdr; |
V179= Cnil; |
874 |
goto T434;} |
goto T324; |
875 |
goto T437; |
T324:; |
876 |
T437:; |
if(!(type_of((V172))!=t_cons)){ |
877 |
goto T433; |
goto T326;} |
878 |
T433:; |
goto T325; |
879 |
goto T429; |
goto T326; |
880 |
goto T434; |
T326:; |
881 |
T434:; |
V173= CMPcar((V172)); |
882 |
{register object V210; |
{register object x= (V173),V180= VV[105]; |
883 |
{object V211; |
while(V180!=Cnil) |
884 |
V211= CMPcar((V202)); |
if(x==(V180->c.c_car)){ |
885 |
V202= CMPcdr((V202)); |
goto T333; |
886 |
V210= (V211);} |
}else V180=V180->c.c_cdr; |
887 |
V204= make_cons(V210,(V204)); |
goto T331;} |
888 |
{register object V213; |
goto T333; |
889 |
V213= (*(LnkLI148))((V203),(V210)); |
T333:; |
890 |
if(((V207))!=Cnil){ |
goto T325; |
891 |
goto T446;} |
goto T331; |
892 |
V208= make_cons((V213),Cnil); |
T331:;{object V181; |
893 |
V207= (V208); |
V181= (V175); |
894 |
goto T432; |
V175= make_cons((V173),Cnil); |
895 |
goto T446; |
(V181)->c.c_cdr = (V175);} |
896 |
T446:; |
V176= CMPcdr((V174));{object V182; |
897 |
V215= make_cons((V213),Cnil); |
V182= (V178); |
898 |
((V208))->c.c_cdr = /* INLINE-ARGS */V215; |
V183= (*(LnkLI162))((V170),(V173)); |
899 |
V214= (V208); |
V178= make_cons(/* INLINE-ARGS */V183,Cnil); |
900 |
V208= CMPcdr(V214);}} |
(V182)->c.c_cdr = (V178);} |
901 |
goto T432; |
V179= CMPcdr((V177)); |
902 |
T432:; |
V172= CMPcdr((V172)); |
903 |
goto T431; |
goto T324; |
904 |
goto T429; |
goto T325; |
905 |
T429:; |
T325:; |
906 |
V205= (V207);} |
base[3]= (V170); |
907 |
base[3]= (V203); |
base[4]= (V179); |
908 |
base[4]= (V205); |
base[6]= (V172); |
909 |
base[6]= (V202); |
base[7]= VV[106]; |
910 |
base[7]= VV[99]; |
V184= nreverse((V176)); |
911 |
base[8]= (*(LnkLI149))((V204)); |
base[8]= (*(LnkLI163))(/* INLINE-ARGS */V184); |
912 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
913 |
Lgetf(); |
Lgetf(); |
914 |
vs_top=sup; |
vs_top=sup; |
915 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
916 |
base[7]= (V202); |
base[7]= (V172); |
917 |
base[8]= VV[100]; |
base[8]= VV[107]; |
918 |
base[9]= VV[88]; |
base[9]= VV[95]; |
919 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
920 |
Lgetf(); |
Lgetf(); |
921 |
vs_top=sup; |
vs_top=sup; |
922 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
923 |
base[8]= (V202); |
base[8]= (V172); |
924 |
base[9]= VV[101]; |
base[9]= VV[108]; |
925 |
base[10]= Cnil; |
base[10]= Cnil; |
926 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
927 |
Lgetf(); |
Lgetf(); |
928 |
vs_top=sup; |
vs_top=sup; |
929 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
930 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
931 |
return;} |
return; |
932 |
|
base[3]= Cnil; |
933 |
|
vs_top=(vs_base=base+3)+1; |
934 |
|
return;}}}}} |
935 |
} |
} |
936 |
} |
} |
937 |
/* local entry for function PARSE-QUALIFIER-PATTERN */ |
/* local entry for function PARSE-QUALIFIER-PATTERN */ |
938 |
|
|
939 |
static object LI19(V218,V219) |
static object LI22(V187,V188) |
940 |
|
|
941 |
object V218;register object V219; |
object V187;register object V188; |
942 |
{ VMB16 VMS16 VMV16 |
{ VMB15 VMS15 VMV15 |
943 |
goto TTL; |
goto TTL; |
944 |
TTL:; |
TTL:; |
945 |
if(!(((V219))==(Cnil))){ |
if(!(((V188))==(Cnil))){ |
946 |
goto T468;} |
goto T360;} |
947 |
{object V220 = VV[102]; |
{object V189 = VV[109]; |
948 |
VMR16(V220)} |
VMR15(V189)} |
949 |
goto T468; |
goto T360; |
950 |
T468:; |
T360:; |
951 |
if(!(((V219))==(VV[103]))){ |
if(!(((V188))==(VV[110]))){ |
952 |
goto T471;} |
goto T363;} |
953 |
{object V221 = Ct; |
{object V190 = Ct; |
954 |
VMR16(V221)} |
VMR15(V190)} |
955 |
goto T471; |
goto T363; |
956 |
T471:; |
T363:; |
957 |
if(!(type_of((V219))==t_symbol)){ |
if(!(type_of((V188))==t_symbol)){ |
958 |
goto T474;} |
goto T366;} |
959 |
{object V222 = list(2,(V219),VV[104]); |
{object V191 = list(2,(V188),VV[111]); |
960 |
VMR16(V222)} |
VMR15(V191)} |
961 |
goto T474; |
goto T366; |
962 |
T474:; |
T366:; |
963 |
if(!(type_of((V219))==t_cons||((V219))==Cnil)){ |
if(!(type_of((V188))==t_cons||((V188))==Cnil)){ |
964 |
goto T477;} |
goto T369;} |
965 |
{object V223 = list(3,VV[105],list(2,VV[31],(V219)),VV[104]); |
{object V192 = list(3,VV[112],list(2,VV[38],(V188)),VV[111]); |
966 |
VMR16(V223)} |
VMR15(V192)} |
967 |
goto T477; |
goto T369; |
968 |
T477:; |
T369:; |
969 |
base[0]= VV[106]; |
base[0]= VV[113]; |
970 |
base[1]= (V218); |
base[1]= (V187); |
971 |
base[2]= (V219); |
base[2]= (V188); |
972 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
973 |
Lerror(); |
Lerror(); |
974 |
vs_top=sup; |
vs_top=sup; |
975 |
{object V224 = vs_base[0]; |
{object V193 = vs_base[0]; |
976 |
VMR16(V224)} |
VMR15(V193)} |
977 |
base[0]=base[0]; |
base[0]=base[0]; |
978 |
return Cnil; |
return Cnil; |
979 |
} |
} |
980 |
/* local entry for function QUALIFIER-CHECK-RUNTIME */ |
/* local entry for function QUALIFIER-CHECK-RUNTIME */ |
981 |
|
|
982 |
static object LI20(V227,V228) |
static object LI23(V196,V197) |
983 |
|
|
984 |
register object V227;register object V228; |
register object V196;register object V197; |
985 |
{ VMB17 VMS17 VMV17 |
{ VMB16 VMS16 VMV16 |
986 |
goto TTL; |
goto TTL; |
987 |
TTL:; |
TTL:; |
988 |
goto T483; |
goto T375; |
989 |
T483:; |
T375:; |
990 |
if(((V227))!=Cnil){ |
if(((V196))!=Cnil){ |
991 |
goto T486;} |
goto T378;} |
992 |
if(((V228))!=Cnil){ |
if(((V197))!=Cnil){ |
993 |
goto T486;} |
goto T378;} |
994 |
{object V229 = Ct; |
{object V198 = Ct; |
995 |
VMR17(V229)} |
VMR16(V198)} |
996 |
goto T486; |
goto T378; |
997 |
T486:; |
T378:; |
998 |
if(!(((V227))==(VV[103]))){ |
if(!(((V196))==(VV[110]))){ |
999 |
goto T491;} |
goto T383;} |
1000 |
{object V230 = Ct; |
{object V199 = Ct; |
1001 |
VMR17(V230)} |
VMR16(V199)} |
1002 |
goto T491; |
goto T383; |
1003 |
T491:; |
T383:; |
1004 |
if(((V227))==Cnil){ |
if(((V196))==Cnil){ |
1005 |
goto T494;} |
goto T386;} |
1006 |
if(((V228))==Cnil){ |
if(((V197))==Cnil){ |
1007 |
goto T494;} |
goto T386;} |
1008 |
if(!((CMPcar((V227)))==(CMPcar((V228))))){ |
{register object V200; |
1009 |
goto T494;} |
V200= CMPcar((V196)); |
1010 |
{register object V231; |
if(!(((V200))==(CMPcar((V197))))){ |
1011 |
V231= CMPcar((V227)); |
goto T393;} |
1012 |
V227= CMPcdr((V227));} |
goto T391; |
1013 |
{register object V232; |
goto T393; |
1014 |
V232= CMPcar((V228)); |
T393:; |
1015 |
V228= CMPcdr((V228)); |
if(!(((V200))==(VV[110]))){ |
1016 |
goto T484;} |
goto T386;}} |
1017 |
goto T494; |
goto T391; |
1018 |
T494:; |
T391:; |
1019 |
{object V233 = Cnil; |
{register object V201; |
1020 |
VMR17(V233)} |
V201= CMPcar((V196)); |
1021 |
goto T484; |
V196= CMPcdr((V196));} |
1022 |
T484:; |
{register object V202; |
1023 |
goto T483; |
V202= CMPcar((V197)); |
1024 |
|
V197= CMPcdr((V197)); |
1025 |
|
goto T376;} |
1026 |
|
goto T386; |
1027 |
|
T386:; |
1028 |
|
{object V203 = Cnil; |
1029 |
|
VMR16(V203)} |
1030 |
|
goto T376; |
1031 |
|
T376:; |
1032 |
|
goto T375; |
1033 |
return Cnil; |
return Cnil; |
1034 |
} |
} |
1035 |
/* local entry for function MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */ |
/* local entry for function MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */ |
1036 |
|
|
1037 |
static object LI21(V235) |
static object LI24(V205) |
1038 |
|
|
1039 |
register object V235; |
register object V205; |
1040 |
{ VMB18 VMS18 VMV18 |
{ VMB17 VMS17 VMV17 |
1041 |
goto TTL; |
goto TTL; |
1042 |
TTL:; |
TTL:; |
1043 |
if((CMPcdr((V235)))==Cnil){ |
if((CMPcdr((V205)))==Cnil){ |
1044 |
goto T509;} |
goto T404;} |
1045 |
base[0]= Cnil; |
base[0]= Cnil; |
1046 |
base[1]= VV[107]; |
base[1]= VV[114]; |
1047 |
base[3]= (V235); |
base[3]= (V205); |
1048 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1049 |
Lbutlast(); |
Lbutlast(); |
1050 |
vs_top=sup; |
vs_top=sup; |
1051 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
1052 |
base[4]= (V235); |
base[4]= (V205); |
1053 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1054 |
Llast(); |
Llast(); |
1055 |
vs_top=sup; |
vs_top=sup; |
1056 |
V236= vs_base[0]; |
V206= vs_base[0]; |
1057 |
base[3]= CMPcar(V236); |
base[3]= CMPcar(V206); |
1058 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1059 |
Lformat(); |
Lformat(); |
1060 |
vs_top=sup; |
vs_top=sup; |
1061 |
{object V237 = vs_base[0]; |
{object V207 = vs_base[0]; |
1062 |
VMR18(V237)} |
VMR17(V207)} |
1063 |
goto T509; |
goto T404; |
1064 |
T509:; |
T404:; |
1065 |
base[0]= Cnil; |
base[0]= Cnil; |
1066 |
base[1]= VV[108]; |
base[1]= VV[115]; |
1067 |
base[2]= CMPcar((V235)); |
base[2]= CMPcar((V205)); |
1068 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1069 |
Lformat(); |
Lformat(); |
1070 |
vs_top=sup; |
vs_top=sup; |
1071 |
{object V238 = vs_base[0]; |
{object V208 = vs_base[0]; |
1072 |
VMR18(V238)} |
VMR17(V208)} |
1073 |
base[0]=base[0]; |
base[0]=base[0]; |
1074 |
return Cnil; |
return Cnil; |
1075 |
} |
} |
1076 |
/* local entry for function DEAL-WITH-ARGUMENTS-OPTION */ |
/* local entry for function DEAL-WITH-ARGUMENTS-OPTION */ |
1077 |
|
|
1078 |
static object LI22(V241,V242) |
static object LI25(V211,V212) |
1079 |
|
|
1080 |
object V241;object V242; |
object V211;object V212; |
1081 |
|
{ VMB18 VMS18 VMV18 |
1082 |
|
goto TTL; |
1083 |
|
TTL:; |
1084 |
|
{object V213; |
1085 |
|
register object V214; |
1086 |
|
register object V215; |
1087 |
|
object V216; |
1088 |
|
{register object V217; |
1089 |
|
register object V218; |
1090 |
|
V217= Cnil; |
1091 |
|
V218= (V212); |
1092 |
|
{object V219; |
1093 |
|
object V220; |
1094 |
|
V219= make_cons(Cnil,Cnil); |
1095 |
|
V220= (V219); |
1096 |
|
goto T420; |
1097 |
|
T420:; |
1098 |
|
if(!(((V218))==Cnil)){ |
1099 |
|
goto T422;} |
1100 |
|
goto T421; |
1101 |
|
goto T422; |
1102 |
|
T422:; |
1103 |
|
V217= CMPcar((V218)); |
1104 |
|
V218= CMPcdr((V218)); |
1105 |
|
{register object x= (V217),V221= VV[116]; |
1106 |
|
while(V221!=Cnil) |
1107 |
|
if(x==(V221->c.c_car)){ |
1108 |
|
goto T429; |
1109 |
|
}else V221=V221->c.c_cdr;}{object V222; |
1110 |
|
V222= (V220); |
1111 |
|
V223= list(2,(V217),list(2,VV[38],(V217))); |
1112 |
|
V220= make_cons(/* INLINE-ARGS */V223,Cnil); |
1113 |
|
(V222)->c.c_cdr = (V220);} |
1114 |
|
goto T429; |
1115 |
|
T429:; |
1116 |
|
goto T420; |
1117 |
|
goto T421; |
1118 |
|
T421:; |
1119 |
|
V213= CMPcdr((V219)); |
1120 |
|
goto T416; |
1121 |
|
V213= Cnil; |
1122 |
|
goto T416;}} |
1123 |
|
goto T416; |
1124 |
|
T416:; |
1125 |
|
V214= small_fixnum(0); |
1126 |
|
V215= small_fixnum(0); |
1127 |
|
V216= Cnil; |
1128 |
|
{register object V224; |
1129 |
|
V224= VV[117]; |
1130 |
|
{register object V225; |
1131 |
|
register object V226; |
1132 |
|
V225= Cnil; |
1133 |
|
V226= (V212); |
1134 |
|
goto T436; |
1135 |
|
T436:; |
1136 |
|
if(!(((V226))==Cnil)){ |
1137 |
|
goto T438;} |
1138 |
|
goto T437; |
1139 |
|
goto T438; |
1140 |
|
T438:; |
1141 |
|
V225= CMPcar((V226)); |
1142 |
|
V226= CMPcdr((V226)); |
1143 |
|
{register object x= (V225),V227= VV[116]; |
1144 |
|
while(V227!=Cnil) |
1145 |
|
if(x==(V227->c.c_car)){ |
1146 |
|
goto T448; |
1147 |
|
}else V227=V227->c.c_cdr; |
1148 |
|
goto T447;} |
1149 |
|
goto T448; |
1150 |
|
T448:; |
1151 |
|
V224= (V225); |
1152 |
|
goto T445; |
1153 |
|
goto T447; |
1154 |
|
T447:; |
1155 |
|
{object V228= (V224); |
1156 |
|
if((V228!= VV[117]))goto T450; |
1157 |
|
V214= number_plus((V214),small_fixnum(1)); |
1158 |
|
goto T445; |
1159 |
|
goto T450; |
1160 |
|
T450:; |
1161 |
|
if((V228!= VV[138]))goto T452; |
1162 |
|
V215= number_plus((V215),small_fixnum(1)); |
1163 |
|
goto T445; |
1164 |
|
goto T452; |
1165 |
|
T452:; |
1166 |
|
if((V228!= VV[164]))goto T454; |
1167 |
|
V216= (V225); |
1168 |
|
V224= VV[117]; |
1169 |
|
goto T445; |
1170 |
|
goto T454; |
1171 |
|
T454:;} |
1172 |
|
goto T445; |
1173 |
|
T445:; |
1174 |
|
goto T436; |
1175 |
|
goto T437; |
1176 |
|
T437:; |
1177 |
|
goto T434;}} |
1178 |
|
goto T434; |
1179 |
|
T434:; |
1180 |
|
goto T460; |
1181 |
|
T460:; |
1182 |
|
{register object x= CMPcar((V211)),V229= VV[118]; |
1183 |
|
while(V229!=Cnil) |
1184 |
|
if(x==(V229->c.c_car)){ |
1185 |
|
goto T461; |
1186 |
|
}else V229=V229->c.c_cdr;} |
1187 |
|
base[1]= VV[119]; |
1188 |
|
vs_top=(vs_base=base+1)+1; |
1189 |
|
(void) (*Lnk165)(); |
1190 |
|
vs_top=sup; |
1191 |
|
base[0]= vs_base[0]; |
1192 |
|
base[2]= Cnil; |
1193 |
|
base[3]= VV[120]; |
1194 |
|
base[4]= VV[166]; |
1195 |
|
goto T460; |
1196 |
|
vs_top=(vs_base=base+2)+4; |
1197 |
|
(void) (*Lnk167)(); |
1198 |
|
vs_top=sup; |
1199 |
|
base[1]= vs_base[0]; |
1200 |
|
vs_top=(vs_base=base+0)+2; |
1201 |
|
(void) (*Lnk168)(); |
1202 |
|
vs_top=sup; |
1203 |
|
goto T461; |
1204 |
|
T461:; |
1205 |
|
goto T458; |
1206 |
|
goto T458; |
1207 |
|
T458:; |
1208 |
|
{object V231; |
1209 |
|
V231= append((V213),CMPcadr((V211))); |
1210 |
|
(CMPcdr(V211))->c.c_car = (V231); |
1211 |
|
(void)(CMPcdr(V211));} |
1212 |
|
{register object x= VV[121],V232= (V212); |
1213 |
|
while(V232!=Cnil) |
1214 |
|
if(x==(V232->c.c_car)){ |
1215 |
|
goto T474; |
1216 |
|
}else V232=V232->c.c_cdr;} |
1217 |
|
{register object x= VV[122],V233= (V212); |
1218 |
|
while(V233!=Cnil) |
1219 |
|
if(x==(V233->c.c_car)){ |
1220 |
|
goto T474; |
1221 |
|
}else V233=V233->c.c_cdr;} |
1222 |
|
{object V234; |
1223 |
|
{register object x= VV[123],V235= (V212); |
1224 |
|
while(V235!=Cnil) |
1225 |
|
if(x==(V235->c.c_car)){ |
1226 |
|
V234= V235; |
1227 |
|
goto T479; |
1228 |
|
}else V235=V235->c.c_cdr; |
1229 |
|
V234= Cnil;} |
1230 |
|
goto T479; |
1231 |
|
T479:; |
1232 |
|
base[1]= (V212); |
1233 |
|
base[2]= (V234); |
1234 |
|
vs_top=(vs_base=base+1)+2; |
1235 |
|
Lldiff(); |
1236 |
|
vs_top=sup; |
1237 |
|
base[0]= vs_base[0]; |
1238 |
|
{register object x= VV[124],V236= (V212); |
1239 |
|
while(V236!=Cnil) |
1240 |
|
if(x==(V236->c.c_car)){ |
1241 |
|
goto T487; |
1242 |
|
}else V236=V236->c.c_cdr; |
1243 |
|
goto T486;} |
1244 |
|
goto T487; |
1245 |
|
T487:; |
1246 |
|
base[1]= VV[125]; |
1247 |
|
goto T484; |
1248 |
|
goto T486; |
1249 |
|
T486:; |
1250 |
|
base[1]= VV[126]; |
1251 |
|
goto T484; |
1252 |
|
T484:; |
1253 |
|
base[2]= (V234); |
1254 |
|
vs_top=(vs_base=base+0)+3; |
1255 |
|
Lappend(); |
1256 |
|
vs_top=sup; |
1257 |
|
V212= vs_base[0];} |
1258 |
|
goto T474; |
1259 |
|
T474:; |
1260 |
|
V237= list(2,list(2,VV[127],(V211)),VV[128]); |
1261 |
|
V238= list(2,VV[38],(V212)); |
1262 |
|
V239= list(2,VV[38],(V214)); |
1263 |
|
V240= list(6,VV[129],VV[131],VV[132],VV[133],/* INLINE-ARGS */V239,list(2,VV[38],(V215))); |
1264 |
|
{register object x= VV[134],V242= (V212); |
1265 |
|
while(V242!=Cnil) |
1266 |
|
if(x==(V242->c.c_car)){ |
1267 |
|
goto T492; |
1268 |
|
}else V242=V242->c.c_cdr; |
1269 |
|
goto T491;} |
1270 |
|
goto T492; |
1271 |
|
T492:; |
1272 |
|
V241= VV[135]; |
1273 |
|
goto T489; |
1274 |
|
goto T491; |
1275 |
|
T491:; |
1276 |
|
V241= Cnil; |
1277 |
|
goto T489; |
1278 |
|
T489:; |
1279 |
|
if(((V216))==Cnil){ |
1280 |
|
goto T495;} |
1281 |
|
V243= list(4,VV[129],VV[136],list(2,VV[38],(V216)),VV[137]); |
1282 |
|
goto T493; |
1283 |
|
goto T495; |
1284 |
|
T495:; |
1285 |
|
V243= Cnil; |
1286 |
|
goto T493; |
1287 |
|
T493:; |
1288 |
|
{object V244 = list(3,VV[99],/* INLINE-ARGS */V237,list(7,VV[129],VV[130],/* INLINE-ARGS */V238,/* INLINE-ARGS */V240,V241,V243,VV[127])); |
1289 |
|
VMR18(V244)}} |
1290 |
|
base[0]=base[0]; |
1291 |
|
return Cnil; |
1292 |
|
} |
1293 |
|
/* local entry for function FROB-COMBINED-METHOD-ARGS */ |
1294 |
|
|
1295 |
|
static object LI26(V249,V250,V251,V252) |
1296 |
|
|
1297 |
|
register object V249;object V250;object V251;object V252; |
1298 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1299 |
goto TTL; |
goto TTL; |
1300 |
TTL:; |
TTL:; |
1301 |
{object V243; |
{register object V253; |
1302 |
object V244; |
V253= VV[117]; |
1303 |
{register object V245; |
{register object V254; |
1304 |
register object V246; |
register object V255; |
1305 |
V245= Cnil; |
V254= Cnil; |
1306 |
V246= Cnil; |
V255= (V250); |
1307 |
{register object V247; |
{register long V256; |
1308 |
register object V248; |
register long V257; |
1309 |
V247= (V242); |
V256= 0; |
1310 |
V248= CMPcar((V247)); |
V257= 0; |
1311 |
goto T528; |
{object V258; |
1312 |
T528:; |
object V259; |
1313 |
if(!(((V247))==Cnil)){ |
object V260; |
1314 |
goto T529;} |
V258= make_cons(Cnil,Cnil); |
1315 |
goto T524; |
V259= (V258); |
1316 |
goto T529; |
V260= Cnil; |
1317 |
T529:; |
{object V261; |
1318 |
{register object x= (V248),V249= VV[109]; |
object V262; |
1319 |
while(V249!=Cnil) |
object V263; |
1320 |
if(x==(V249->c.c_car)){ |
V261= make_cons(Cnil,Cnil); |
1321 |
goto T536; |
V262= (V261); |
1322 |
}else V249=V249->c.c_cdr; |
V263= Cnil; |
1323 |
goto T535;} |
goto T506; |
1324 |
goto T536; |
T506:; |
1325 |
T536:; |
if(!(((V255))==Cnil)){ |
1326 |
if(((V245))!=Cnil){ |
goto T508;} |
1327 |
goto T538;} |
goto T507; |
1328 |
V246= make_cons(V248,Cnil); |
goto T508; |
1329 |
V245= (V246); |
T508:; |
1330 |
goto T533; |
V254= CMPcar((V255)); |
1331 |
goto T538; |
V255= CMPcdr((V255)); |
1332 |
T538:; |
{register object x= (V254),V264= VV[116]; |
1333 |
V252= make_cons(V248,Cnil); |
while(V264!=Cnil) |
1334 |
((V246))->c.c_cdr = /* INLINE-ARGS */V252; |
if(x==(V264->c.c_car)){ |
1335 |
V251= (V246); |
goto T518; |
1336 |
V246= CMPcdr(V251); |
}else V264=V264->c.c_cdr; |
1337 |
goto T533; |
goto T517;} |
1338 |
goto T535; |
goto T518; |
1339 |
T535:; |
T518:; |
1340 |
{object V253; |
V253= (V254); |
1341 |
|
if(((V253))==(VV[138])){ |
1342 |
|
goto T515;} |
1343 |
vs_base=vs_top; |
vs_base=vs_top; |
1344 |
Lgensym(); |
(void) (*Lnk169)(); |
1345 |
vs_top=sup; |
vs_top=sup; |
1346 |
V253= vs_base[0]; |
goto T515; |
1347 |
if(((V245))!=Cnil){ |
goto T517; |
1348 |
goto T546;} |
T517:; |
1349 |
V246= make_cons((V253),Cnil); |
if(!(((V253))==(VV[117]))){ |
1350 |
V245= (V246); |
goto T524;} |
1351 |
goto T533; |
V256= (long)(V256)+1;{object V265; |
1352 |
goto T546; |
V265= (V259); |
1353 |
T546:; |
{object V267; |
1354 |
V255= make_cons((V253),Cnil); |
V267= CMPcar((V249)); |
1355 |
((V246))->c.c_cdr = /* INLINE-ARGS */V255; |
V249= CMPcdr((V249)); |
1356 |
V254= (V246); |
V266= (V267);} |
1357 |
V246= CMPcdr(V254);} |
V259= make_cons(V266,Cnil); |
1358 |
goto T533; |
(V265)->c.c_cdr = (V259);} |
1359 |
T533:; |
V260= CMPcdr((V258)); |
1360 |
V247= CMPcdr((V247)); |
goto T515; |
|
V248= CMPcar((V247)); |
|
|
goto T528;} |
|
1361 |
goto T524; |
goto T524; |
1362 |
T524:; |
T524:; |
1363 |
V243= (V245);} |
if(!(((V253))==(VV[138]))){ |
1364 |
{object V256; |
goto T515;} |
1365 |
register object V257; |
V257= (long)(V257)+1;{object V268; |
1366 |
V256= Cnil; |
V268= (V262); |
|
V257= Cnil; |
|
|
{register object V258; |
|
|
register object V259; |
|
|
register object V260; |
|
|
object V261; |
|
|
V258= (V242); |
|
|
V259= Cnil; |
|
|
V260= (V243); |
|
|
V261= Cnil; |
|
|
goto T566; |
|
|
T566:; |
|
|
{object V262; |
|
|
if(!(((V258))==Cnil)){ |
|
|
goto T572;} |
|
|
goto T560; |
|
|
goto T572; |
|
|
T572:; |
|
|
V262= CMPcar((V258)); |
|
|
V258= CMPcdr((V258)); |
|
|
V259= (V262);} |
|
|
{object V263; |
|
|
if(!(((V260))==Cnil)){ |
|
|
goto T580;} |
|
|
goto T560; |
|
|
goto T580; |
|
|
T580:; |
|
|
V263= CMPcar((V260)); |
|
|
V260= CMPcdr((V260)); |
|
|
V261= (V263);} |
|
|
{register object x= (V259),V264= VV[109]; |
|
|
while(V264!=Cnil) |
|
|
if(x==(V264->c.c_car)){ |
|
|
goto T567; |
|
|
}else V264=V264->c.c_cdr;} |
|
|
{object V265; |
|
|
V265= list(2,(V259),list(2,VV[31],(V261))); |
|
|
if(((V256))!=Cnil){ |
|
|
goto T588;} |
|
|
V257= make_cons((V265),Cnil); |
|
|
V256= (V257); |
|
|
goto T567; |
|
|
goto T588; |
|
|
T588:; |
|
|
V267= make_cons((V265),Cnil); |
|
|
((V257))->c.c_cdr = /* INLINE-ARGS */V267; |
|
|
V266= (V257); |
|
|
V257= CMPcdr(V266);} |
|
|
goto T567; |
|
|
T567:; |
|
|
goto T566;} |
|
|
goto T560; |
|
|
T560:; |
|
|
V244= (V256);} |
|
|
{object V269; |
|
|
V269= append((V244),CMPcadr((V241))); |
|
|
(CMPcdr(V241))->c.c_car = (V269); |
|
|
(void)(CMPcdr(V241));} |
|
1367 |
{object V270; |
{object V270; |
1368 |
{register object x= VV[110],V271= (V243); |
V270= CMPcar((V249)); |
1369 |
while(V271!=Cnil) |
V249= CMPcdr((V249)); |
1370 |
if(x==(V271->c.c_car)){ |
V269= (V270);} |
1371 |
V270= V271; |
V262= make_cons(V269,Cnil); |
1372 |
goto T599; |
(V268)->c.c_cdr = (V262);} |
1373 |
}else V271=V271->c.c_cdr; |
V263= CMPcdr((V261)); |
1374 |
V270= Cnil;} |
goto T515; |
1375 |
goto T599; |
T515:; |
1376 |
T599:; |
goto T506; |
1377 |
if(((V270))==Cnil){ |
goto T507; |
1378 |
goto T601;} |
T507:; |
1379 |
goto T598; |
base[3]= (V260); |
1380 |
goto T601; |
base[4]= CMPmake_fixnum(V256); |
1381 |
T601:; |
base[5]= (V251); |
1382 |
{object V272; |
vs_top=(vs_base=base+3)+3; |
1383 |
{register object x= VV[111],V273= (V243); |
L27(base); |
1384 |
while(V273!=Cnil) |
vs_top=sup; |
1385 |
if(x==(V273->c.c_car)){ |
base[2]= vs_base[0]; |
1386 |
V272= V273; |
base[4]= (V263); |
1387 |
goto T603; |
base[5]= CMPmake_fixnum(V257); |
1388 |
}else V273=V273->c.c_cdr; |
base[6]= (V252); |
1389 |
V272= Cnil;} |
vs_top=(vs_base=base+4)+3; |
1390 |
goto T603; |
L27(base); |
1391 |
T603:; |
vs_top=sup; |
1392 |
if(((V272))==Cnil){ |
base[3]= vs_base[0]; |
1393 |
goto T605;} |
base[4]= (V249); |
1394 |
goto T598; |
vs_top=(vs_base=base+2)+3; |
1395 |
goto T605; |
Lnconc(); |
1396 |
T605:; |
vs_top=sup; |
1397 |
{register object x= VV[112],V274= (V243); |
{object V271 = vs_base[0]; |
1398 |
while(V274!=Cnil) |
VMR19(V271)} |
1399 |
if(x==(V274->c.c_car)){ |
{object V272 = Cnil; |
1400 |
goto T609; |
VMR19(V272)}}}}}} |
|
}else V274=V274->c.c_cdr; |
|
|
goto T608;} |
|
|
goto T609; |
|
|
T609:; |
|
|
V243= append((V243),VV[113]); |
|
|
goto T598; |
|
|
goto T608; |
|
|
T608:; |
|
|
V243= append((V243),VV[114]);}} |
|
|
goto T598; |
|
|
T598:; |
|
|
V275= list(2,VV[115],(V241)); |
|
|
V276= make_cons(/* INLINE-ARGS */V275,Cnil); |
|
|
V277= list(2,VV[31],(V243)); |
|
|
{register object x= VV[120],V279= (V243); |
|
|
while(V279!=Cnil) |
|
|
if(x==(V279->c.c_car)){ |
|
|
goto T615; |
|
|
}else V279=V279->c.c_cdr; |
|
|
goto T614;} |
|
|
goto T615; |
|
|
T615:; |
|
|
V278= VV[121]; |
|
|
goto T612; |
|
|
goto T614; |
|
|
T614:; |
|
|
V278= Cnil; |
|
|
goto T612; |
|
|
T612:; |
|
|
{object V280 = list(3,VV[92],/* INLINE-ARGS */V276,list(4,VV[116],VV[117],list(3,VV[116],VV[118],list(5,VV[116],VV[119],/* INLINE-ARGS */V277,V278,VV[115])),VV[122])); |
|
|
VMR19(V280)}} |
|
1401 |
base[0]=base[0]; |
base[0]=base[0]; |
1402 |
return Cnil; |
return Cnil; |
1403 |
} |
} |
1404 |
/* local function CLOSURE */ |
/* local function FROB */ |
1405 |
|
|
1406 |
static void LC24(base0) |
static void L27(base0) |
1407 |
register object *base0; |
register object *base0; |
1408 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1409 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1410 |
vs_check; |
vs_check; |
1411 |
{object V281; |
{object V273; |
1412 |
object V282; |
object V274; |
1413 |
object V283; |
object V275; |
1414 |
check_arg(3); |
check_arg(3); |
1415 |
V281=(base[0]); |
V273=(base[0]); |
1416 |
V282=(base[1]); |
V274=(base[1]); |
1417 |
V283=(base[2]); |
V275=(base[2]); |
1418 |
vs_top=sup; |
vs_top=sup; |
1419 |
base[3]= VV[57]; |
goto TTL; |
1420 |
base[4]= VV[45]; |
TTL:; |
1421 |
base[5]= (V282); |
if(!(number_compare((V274),(V275))>0)){ |
1422 |
base[6]= VV[24]; |
goto T557;} |
1423 |
base[7]= (base0[0]->c.c_car); |
base[3]= (V273); |
1424 |
base[8]= VV[46]; |
base[4]= number_minus((V274),(V275)); |
1425 |
base[9]= (V283); |
vs_top=(vs_base=base+3)+2; |
1426 |
vs_top=(vs_base=base+3)+7; |
Lbutlast(); |
1427 |
(void) (*Lnk135)(Lclptr135); |
return; |
1428 |
|
goto T557; |
1429 |
|
T557:; |
1430 |
|
if(!(number_compare((V274),(V275))<0)){ |
1431 |
|
goto T562;} |
1432 |
|
base[3]= number_minus((V275),(V274)); |
1433 |
|
vs_top=(vs_base=base+3)+1; |
1434 |
|
Lmake_list(); |
1435 |
|
vs_top=sup; |
1436 |
|
V276= vs_base[0]; |
1437 |
|
base[3]= nconc((V273),V276); |
1438 |
|
vs_top=(vs_base=base+3)+1; |
1439 |
|
return; |
1440 |
|
goto T562; |
1441 |
|
T562:; |
1442 |
|
base[3]= (V273); |
1443 |
|
vs_top=(vs_base=base+3)+1; |
1444 |
return; |
return; |
1445 |
} |
} |
1446 |
} |
} |
1447 |
/* local function LOSE */ |
/* local function CLOSURE */ |
1448 |
|
|
1449 |
static void L11(base0) |
static void LC30(base0) |
1450 |
register object *base0; |
register object *base0; |
1451 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1452 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1453 |
vs_check; |
vs_check; |
1454 |
{register object V284; |
{object V277; |
1455 |
object V285; |
check_arg(1); |
1456 |
|
V277=(base[0]); |
1457 |
|
vs_top=sup; |
1458 |
|
base[1]= Cnil; |
1459 |
|
base[2]= (V277); |
1460 |
|
vs_top=(vs_base=base+1)+2; |
1461 |
|
(void) (*Lnk170)(); |
1462 |
|
return; |
1463 |
|
} |
1464 |
|
} |
1465 |
|
/* local function CLOSURE */ |
1466 |
|
|
1467 |
|
static void LC29(base0) |
1468 |
|
register object *base0; |
1469 |
|
{ register object *base=vs_base; |
1470 |
|
register object *sup=base+VM22; VC22 |
1471 |
|
vs_check; |
1472 |
|
{object V278; |
1473 |
|
object V279; |
1474 |
|
object V280; |
1475 |
|
if(vs_top-vs_base<2) too_few_arguments(); |
1476 |
|
V278=(base[0]); |
1477 |
|
V279=(base[1]); |
1478 |
|
vs_base=vs_base+2; |
1479 |
|
vs_top[0]=Cnil; |
1480 |
|
{object *p=vs_top; |
1481 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1482 |
|
V280=(base[2]); |
1483 |
|
vs_top=sup; |
1484 |
|
ck_larg_exactly(3,V278); |
1485 |
|
base[3]=(V278)->c.c_car; |
1486 |
|
base[4]=((V278 |
1487 |
|
)->c.c_cdr)->c.c_car; |
1488 |
|
base[5]=(((V278 |
1489 |
|
)->c.c_cdr |
1490 |
|
)->c.c_cdr)->c.c_car; |
1491 |
|
base[6]= VV[70]; |
1492 |
|
base[7]= VV[52]; |
1493 |
|
base[8]= base[4]; |
1494 |
|
base[9]= VV[53]; |
1495 |
|
base[10]= base[5]; |
1496 |
|
base[11]= VV[46]; |
1497 |
|
base[12]= (base0[1]->c.c_car); |
1498 |
|
base[13]= VV[71]; |
1499 |
|
base[14]= (base0[0]->c.c_car); |
1500 |
|
base[15]= VV[31]; |
1501 |
|
base[16]= (base0[2]->c.c_car); |
1502 |
|
vs_top=(vs_base=base+6)+11; |
1503 |
|
(void) (*Lnk149)(Lclptr149); |
1504 |
|
return; |
1505 |
|
} |
1506 |
|
} |
1507 |
|
/* local function LOSE */ |
1508 |
|
|
1509 |
|
static void L15(base0) |
1510 |
|
register object *base0; |
1511 |
|
{ register object *base=vs_base; |
1512 |
|
register object *sup=base+VM23; VC23 |
1513 |
|
vs_check; |
1514 |
|
{register object V282; |
1515 |
|
object V283; |
1516 |
check_arg(2); |
check_arg(2); |
1517 |
V284=(base[0]); |
V282=(base[0]); |
1518 |
V285=(base[1]); |
V283=(base[1]); |
1519 |
vs_top=sup; |
vs_top=sup; |
1520 |
goto TTL; |
goto TTL; |
1521 |
TTL:; |
TTL:; |
1522 |
base[2]= (V284); |
base[2]= (V282); |
1523 |
base[3]= VV[51]; |
base[3]= VV[58]; |
1524 |
base[4]= (V284); |
base[4]= (V282); |
1525 |
base[5]= (V285); |
base[5]= (V283); |
1526 |
base[6]= base0[0]; |
base[6]= base0[0]; |
1527 |
base[7]= base0[0]; |
base[7]= base0[0]; |
1528 |
vs_top=(vs_base=base+2)+6; |
vs_top=(vs_base=base+2)+6; |
1529 |
(void) (*Lnk150)(); |
(void) (*Lnk171)(); |
1530 |
return; |
return; |
1531 |
} |
} |
1532 |
} |
} |
1533 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1534 |
|
|
1535 |
static void LC23(base0) |
static void LC28(base0) |
1536 |
register object *base0; |
register object *base0; |
1537 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1538 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM24; VC24 |
1539 |
vs_check; |
vs_check; |
1540 |
{object V286; |
{object V284; |
1541 |
object V287; |
object V285; |
1542 |
object V288; |
object V286; |
1543 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1544 |
V286=(base[0]); |
V284=(base[0]); |
1545 |
V287=(base[1]); |
V285=(base[1]); |
1546 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1547 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1548 |
{object *p=vs_top; |
{object *p=vs_top; |
1549 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1550 |
V288=(base[2]); |
V286=(base[2]); |
1551 |
vs_top=sup; |
vs_top=sup; |
1552 |
ck_larg_exactly(3,V286); |
ck_larg_exactly(3,V284); |
1553 |
base[3]=(V286)->c.c_car; |
base[3]=(V284)->c.c_car; |
1554 |
base[4]=((V286 |
base[4]=((V284 |
1555 |
)->c.c_cdr)->c.c_car; |
)->c.c_cdr)->c.c_car; |
1556 |
base[5]=(((V286 |
base[5]=(((V284 |
1557 |
)->c.c_cdr |
)->c.c_cdr |
1558 |
)->c.c_cdr)->c.c_car; |
)->c.c_cdr)->c.c_car; |
1559 |
base[6]= base[4]; |
base[6]= base[4]; |
1563 |
base[10]= (base0[0]->c.c_car); |
base[10]= (base0[0]->c.c_car); |
1564 |
base[11]= (base0[1]->c.c_car); |
base[11]= (base0[1]->c.c_car); |
1565 |
vs_top=(vs_base=base+6)+6; |
vs_top=(vs_base=base+6)+6; |
1566 |
(void) (*Lnk151)(); |
(void) (*Lnk172)(); |
1567 |
return; |
return; |
1568 |
} |
} |
1569 |
} |
} |
1570 |
/* local function REAL-METHOD-COMBINATION-ERROR */ |
/* local function REAL-METHOD-COMBINATION-ERROR */ |
1571 |
|
|
1572 |
static void LC4(base0) |
static void LC7(base0) |
1573 |
register object *base0; |
register object *base0; |
1574 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1575 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM25; VC25 |
1576 |
vs_check; |
vs_check; |
1577 |
{object V290; |
{object V288; |
1578 |
object V291; |
object V289; |
1579 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
1580 |
V290=(base[0]); |
V288=(base[0]); |
1581 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1582 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1583 |
{object *p=vs_top; |
{object *p=vs_top; |
1584 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1585 |
V291=(base[1]); |
V289=(base[1]); |
1586 |
vs_top=sup; |
vs_top=sup; |
1587 |
base[2]= (V290); |
base[2]= (V288); |
1588 |
{object V292; |
{object V290; |
1589 |
V292= (V291); |
V290= (V289); |
1590 |
vs_top=base+3; |
vs_top=base+3; |
1591 |
while(V292!=Cnil) |
while(V290!=Cnil) |
1592 |
{vs_push((V292)->c.c_car);V292=(V292)->c.c_cdr;} |
{vs_push((V290)->c.c_car);V290=(V290)->c.c_cdr;} |
1593 |
vs_base=base+2;} |
vs_base=base+2;} |
1594 |
Lerror(); |
Lerror(); |
1595 |
return; |
return; |
1597 |
} |
} |
1598 |
/* local function REAL-INVALID-METHOD-ERROR */ |
/* local function REAL-INVALID-METHOD-ERROR */ |
1599 |
|
|
1600 |
static void LC3(base0) |
static void LC6(base0) |
1601 |
register object *base0; |
register object *base0; |
1602 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1603 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM26; VC26 |
1604 |
vs_check; |
vs_check; |
1605 |
{object V293; |
{object V291; |
1606 |
object V294; |
object V292; |
1607 |
object V295; |
object V293; |
1608 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1609 |
V293=(base[0]); |
V291=(base[0]); |
1610 |
V294=(base[1]); |
V292=(base[1]); |
1611 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1612 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1613 |
{object *p=vs_top; |
{object *p=vs_top; |
1614 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1615 |
V295=(base[2]); |
V293=(base[2]); |
1616 |
vs_top=sup; |
vs_top=sup; |
1617 |
base[3]= (V294); |
base[3]= (V292); |
1618 |
{object V296; |
{object V294; |
1619 |
V296= (V295); |
V294= (V293); |
1620 |
vs_top=base+4; |
vs_top=base+4; |
1621 |
while(V296!=Cnil) |
while(V294!=Cnil) |
1622 |
{vs_push((V296)->c.c_car);V296=(V296)->c.c_cdr;} |
{vs_push((V294)->c.c_car);V294=(V294)->c.c_cdr;} |
1623 |
vs_base=base+3;} |
vs_base=base+3;} |
1624 |
Lerror(); |
Lerror(); |
1625 |
return; |
return; |
1626 |
} |
} |
1627 |
} |
} |
1628 |
static void LnkT151(){ call_or_link(VV[151],(void **)(void *)&Lnk151);} /* DO-SHORT-METHOD-COMBINATION */ |
/* local function CALL-NEXT-METHOD */ |
1629 |
static void LnkT150(){ call_or_link(VV[150],(void **)(void *)&Lnk150);} /* INVALID-METHOD-ERROR */ |
|
1630 |
static object LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,1,first,ap);va_end(ap);return V1;} /* MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */ |
static void L5(base0) |
1631 |
static object LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)(void *)&LnkLI148,2,first,ap);va_end(ap);return V1;} /* PARSE-QUALIFIER-PATTERN */ |
register object *base0; |
1632 |
static void LnkT147(){ call_or_link(VV[147],(void **)(void *)&Lnk147);} /* PARSE-METHOD-GROUP-SPECIFIER */ |
{ register object *base=vs_base; |
1633 |
static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,2,first,ap);va_end(ap);return V1;} /* DEAL-WITH-ARGUMENTS-OPTION */ |
register object *sup=base+VM27; VC27 |
1634 |
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,3,first,ap);va_end(ap);return V1;} /* WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */ |
vs_check; |
1635 |
static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* EXTRACT-DECLARATIONS */ |
{object V295; |
1636 |
static void LnkT143(){ call_or_link(VV[143],(void **)(void *)&Lnk143);} /* MAKE-LONG-METHOD-COMBINATION-FUNCTION */ |
vs_top[0]=Cnil; |
1637 |
static void LnkT142(ptr) object *ptr;{ call_or_link_closure(VV[142],(void **)(void *)&Lnk142,(void **)(void *)&Lclptr142);} /* METHOD-QUALIFIERS */ |
{object *p=vs_top; |
1638 |
static void LnkT141(ptr) object *ptr;{ call_or_link_closure(VV[141],(void **)(void *)&Lnk141,(void **)(void *)&Lclptr141);} /* METHOD-COMBINATION-OPTIONS */ |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1639 |
static void LnkT140(ptr) object *ptr;{ call_or_link_closure(VV[140],(void **)(void *)&Lnk140,(void **)(void *)&Lclptr140);} /* SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT */ |
V295=(base[0]); |
1640 |
static void LnkT139(ptr) object *ptr;{ call_or_link_closure(VV[139],(void **)(void *)&Lnk139,(void **)(void *)&Lclptr139);} /* SHORT-COMBINATION-OPERATOR */ |
vs_top=sup; |
1641 |
static void LnkT138(ptr) object *ptr;{ call_or_link_closure(VV[138],(void **)(void *)&Lnk138,(void **)(void *)&Lclptr138);} /* METHOD-COMBINATION-TYPE */ |
if((base0[1])==Cnil){ |
1642 |
static void LnkT135(ptr) object *ptr;{ call_or_link_closure(VV[135],(void **)(void *)&Lnk135,(void **)(void *)&Lclptr135);} /* MAKE-INSTANCE */ |
goto T596;} |
1643 |
static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[133],(void **)(void *)&LnkLI133,first,ap);va_end(ap);return V1;} /* GET-METHOD */ |
if(((V295))==Cnil){ |
1644 |
static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */ |
goto T599;} |
1645 |
static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)(void *)&LnkLI131,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
{register object V296; |
1646 |
static void LnkT130(){ call_or_link(VV[130],(void **)(void *)&Lnk130);} /* LOAD-TRUENAME */ |
object V297; |
1647 |
static object LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)(void *)&LnkLI129,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
object V298; |
1648 |
static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* METHOD-COMBINATION-ERROR */ |
object V299; |
1649 |
static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* TYPECASE-ERROR-STRING */ |
V296= (V295); |
1650 |
static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* STRUCTURE-SUBTYPE-P */ |
{object V300; |
1651 |
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,1,first,ap);va_end(ap);return V1;} /* EXPAND-SHORT-DEFCOMBIN */ |
V300= CMPcar((V296)); |
1652 |
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,1,first,ap);va_end(ap);return V1;} /* EXPAND-LONG-DEFCOMBIN */ |
V296= CMPcdr((V296)); |
1653 |
|
V297= (V300);} |
1654 |
|
{object V301; |
1655 |
|
V301= CMPcar((V296)); |
1656 |
|
V296= CMPcdr((V296)); |
1657 |
|
V298= (V301);} |
1658 |
|
{object V302; |
1659 |
|
V302= CMPcar((V296)); |
1660 |
|
V296= CMPcdr((V296)); |
1661 |
|
V299= (V302);} |
1662 |
|
base[4]= base0[1]; |
1663 |
|
base[5]= VV[2]; |
1664 |
|
vs_top=(vs_base=base+4)+2; |
1665 |
|
(void) (*Lnk173)(); |
1666 |
|
vs_top=sup; |
1667 |
|
if((vs_base[0])==Cnil){ |
1668 |
|
goto T616;} |
1669 |
|
base[4]= STREF(object,base0[1],0); |
1670 |
|
base[5]= STREF(object,base0[1],4); |
1671 |
|
base[6]= STREF(object,base0[1],8); |
1672 |
|
base[7]= (V297); |
1673 |
|
base[8]= (V298); |
1674 |
|
base[9]= (V299); |
1675 |
|
vs_top=(vs_base=base+5)+5; |
1676 |
|
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1677 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1678 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1679 |
|
else super_funcall_no_event(_funobj);} |
1680 |
|
return; |
1681 |
|
goto T616; |
1682 |
|
T616:; |
1683 |
|
{register object V304; |
1684 |
|
V304= base0[1]; |
1685 |
|
base[4]= (V304); |
1686 |
|
base[5]= VV[3]; |
1687 |
|
vs_top=(vs_base=base+4)+2; |
1688 |
|
(void) (*Lnk173)(); |
1689 |
|
vs_top=sup; |
1690 |
|
if((vs_base[0])==Cnil){ |
1691 |
|
goto T627;} |
1692 |
|
{object V305; |
1693 |
|
object V306; |
1694 |
|
register object V307; |
1695 |
|
V305= STREF(object,base0[1],0); |
1696 |
|
V306= list(3,(V297),(V298),(V299)); |
1697 |
|
V307= STREF(object,base0[1],4); |
1698 |
|
if(((V307))==Cnil){ |
1699 |
|
goto T635;} |
1700 |
|
if((CMPcdr((V307)))!=Cnil){ |
1701 |
|
goto T635;} |
1702 |
|
base[4]= (V306); |
1703 |
|
base[5]= CMPcar((V307)); |
1704 |
|
vs_top=(vs_base=base+4)+2; |
1705 |
|
{object _funobj = (V305);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1706 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1707 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1708 |
|
else super_funcall_no_event(_funobj);} |
1709 |
|
return; |
1710 |
|
goto T635; |
1711 |
|
T635:; |
1712 |
|
base[4]= (V305); |
1713 |
|
base[5]= (V306); |
1714 |
|
{object V308; |
1715 |
|
V308= (V307); |
1716 |
|
vs_top=base+6; |
1717 |
|
while(V308!=Cnil) |
1718 |
|
{vs_push((V308)->c.c_car);V308=(V308)->c.c_cdr;} |
1719 |
|
vs_base=base+5;} |
1720 |
|
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1721 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1722 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1723 |
|
else super_funcall_no_event(_funobj);} |
1724 |
|
return;} |
1725 |
|
goto T627; |
1726 |
|
T627:; |
1727 |
|
base[4]= (V304); |
1728 |
|
vs_top=(vs_base=base+4)+1; |
1729 |
|
Lfunctionp(); |
1730 |
|
vs_top=sup; |
1731 |
|
if((vs_base[0])==Cnil){ |
1732 |
|
goto T645;} |
1733 |
|
base[4]= (V297); |
1734 |
|
base[5]= (V298); |
1735 |
|
base[6]= (V299); |
1736 |
|
vs_top=(vs_base=base+4)+3; |
1737 |
|
{object _funobj = base0[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1738 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1739 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1740 |
|
else super_funcall_no_event(_funobj);} |
1741 |
|
return; |
1742 |
|
goto T645; |
1743 |
|
T645:; |
1744 |
|
base[4]= VV[4]; |
1745 |
|
base[5]= VV[5]; |
1746 |
|
base[6]= VV[6]; |
1747 |
|
base[7]= VV[7]; |
1748 |
|
base[8]= base0[1]; |
1749 |
|
base[9]= VV[8]; |
1750 |
|
base[10]= VV[9]; |
1751 |
|
base[11]= VV[10]; |
1752 |
|
base[12]= VV[11]; |
1753 |
|
vs_top=(vs_base=base+4)+9; |
1754 |
|
(void) (*Lnk174)(); |
1755 |
|
return;}} |
1756 |
|
goto T599; |
1757 |
|
T599:; |
1758 |
|
base[1]= base0[1]; |
1759 |
|
base[2]= VV[2]; |
1760 |
|
vs_top=(vs_base=base+1)+2; |
1761 |
|
(void) (*Lnk173)(); |
1762 |
|
vs_top=sup; |
1763 |
|
if((vs_base[0])==Cnil){ |
1764 |
|
goto T662;} |
1765 |
|
base[1]= STREF(object,base0[1],0); |
1766 |
|
base[2]= STREF(object,base0[1],4); |
1767 |
|
base[3]= STREF(object,base0[1],8); |
1768 |
|
base[4]= base0[2]; |
1769 |
|
base[5]= base0[3]; |
1770 |
|
base[6]= base0[4]; |
1771 |
|
vs_top=(vs_base=base+2)+5; |
1772 |
|
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1773 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1774 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1775 |
|
else super_funcall_no_event(_funobj);} |
1776 |
|
return; |
1777 |
|
goto T662; |
1778 |
|
T662:; |
1779 |
|
{register object V310; |
1780 |
|
V310= base0[1]; |
1781 |
|
base[1]= (V310); |
1782 |
|
base[2]= VV[3]; |
1783 |
|
vs_top=(vs_base=base+1)+2; |
1784 |
|
(void) (*Lnk173)(); |
1785 |
|
vs_top=sup; |
1786 |
|
if((vs_base[0])==Cnil){ |
1787 |
|
goto T673;} |
1788 |
|
{object V311; |
1789 |
|
object V312; |
1790 |
|
register object V313; |
1791 |
|
V311= STREF(object,base0[1],0); |
1792 |
|
V312= list(3,base0[2],base0[3],base0[4]); |
1793 |
|
V313= STREF(object,base0[1],4); |
1794 |
|
if(((V313))==Cnil){ |
1795 |
|
goto T681;} |
1796 |
|
if((CMPcdr((V313)))!=Cnil){ |
1797 |
|
goto T681;} |
1798 |
|
base[1]= (V312); |
1799 |
|
base[2]= CMPcar((V313)); |
1800 |
|
vs_top=(vs_base=base+1)+2; |
1801 |
|
{object _funobj = (V311);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1802 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1803 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1804 |
|
else super_funcall_no_event(_funobj);} |
1805 |
|
return; |
1806 |
|
goto T681; |
1807 |
|
T681:; |
1808 |
|
base[1]= (V311); |
1809 |
|
base[2]= (V312); |
1810 |
|
{object V314; |
1811 |
|
V314= (V313); |
1812 |
|
vs_top=base+3; |
1813 |
|
while(V314!=Cnil) |
1814 |
|
{vs_push((V314)->c.c_car);V314=(V314)->c.c_cdr;} |
1815 |
|
vs_base=base+2;} |
1816 |
|
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1817 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1818 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1819 |
|
else super_funcall_no_event(_funobj);} |
1820 |
|
return;} |
1821 |
|
goto T673; |
1822 |
|
T673:; |
1823 |
|
base[1]= (V310); |
1824 |
|
vs_top=(vs_base=base+1)+1; |
1825 |
|
Lfunctionp(); |
1826 |
|
vs_top=sup; |
1827 |
|
if((vs_base[0])==Cnil){ |
1828 |
|
goto T691;} |
1829 |
|
base[1]= base0[2]; |
1830 |
|
base[2]= base0[3]; |
1831 |
|
base[3]= base0[4]; |
1832 |
|
vs_top=(vs_base=base+1)+3; |
1833 |
|
{object _funobj = base0[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1834 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1835 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1836 |
|
else super_funcall_no_event(_funobj);} |
1837 |
|
return; |
1838 |
|
goto T691; |
1839 |
|
T691:; |
1840 |
|
base[1]= VV[4]; |
1841 |
|
base[2]= VV[5]; |
1842 |
|
base[3]= VV[6]; |
1843 |
|
base[4]= VV[7]; |
1844 |
|
base[5]= base0[1]; |
1845 |
|
base[6]= VV[8]; |
1846 |
|
base[7]= VV[12]; |
1847 |
|
base[8]= VV[10]; |
1848 |
|
base[9]= VV[13]; |
1849 |
|
vs_top=(vs_base=base+1)+9; |
1850 |
|
(void) (*Lnk174)(); |
1851 |
|
return;} |
1852 |
|
goto T596; |
1853 |
|
T596:; |
1854 |
|
base[1]= VV[14]; |
1855 |
|
base[2]= base0[2]; |
1856 |
|
base[3]= base0[3]; |
1857 |
|
base[4]= base0[4]; |
1858 |
|
vs_top=(vs_base=base+1)+4; |
1859 |
|
(void) (*Lnk175)(); |
1860 |
|
return; |
1861 |
|
} |
1862 |
|
} |
1863 |
|
static void LnkT175(){ call_or_link(VV[175],(void **)(void *)&Lnk175);} /* CALL-NO-NEXT-METHOD */ |
1864 |
|
static void LnkT174(){ call_or_link(VV[174],(void **)(void *)&Lnk174);} /* ERROR */ |
1865 |
|
static void LnkT173(){ call_or_link(VV[173],(void **)(void *)&Lnk173);} /* STRUCTURE-SUBTYPE-P */ |
1866 |
|
static void LnkT172(){ call_or_link(VV[172],(void **)(void *)&Lnk172);} /* MAKE-SHORT-METHOD-COMBINATION */ |
1867 |
|
static void LnkT171(){ call_or_link(VV[171],(void **)(void *)&Lnk171);} /* INVALID-METHOD-ERROR */ |
1868 |
|
static void LnkT170(){ call_or_link(VV[170],(void **)(void *)&Lnk170);} /* ASSERT-REPORT */ |
1869 |
|
static void LnkT169(){ call_or_link(VV[169],(void **)(void *)&Lnk169);} /* LOOP-FINISH */ |
1870 |
|
static void LnkT168(){ call_or_link(VV[168],(void **)(void *)&Lnk168);} /* RESTART-CASE */ |
1871 |
|
static void LnkT167(){ call_or_link(VV[167],(void **)(void *)&Lnk167);} /* CONTINUE */ |
1872 |
|
static void LnkT165(){ call_or_link(VV[165],(void **)(void *)&Lnk165);} /* SIMPLE-ASSERTION-FAILURE */ |
1873 |
|
static object LnkTLI163(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[163],(void **)(void *)&LnkLI163,1,first,ap);va_end(ap);return V1;} /* MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */ |
1874 |
|
static object LnkTLI162(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[162],(void **)(void *)&LnkLI162,2,first,ap);va_end(ap);return V1;} /* PARSE-QUALIFIER-PATTERN */ |
1875 |
|
static void LnkT161(){ call_or_link(VV[161],(void **)(void *)&Lnk161);} /* PARSE-METHOD-GROUP-SPECIFIER */ |
1876 |
|
static object LnkTLI160(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[160],(void **)(void *)&LnkLI160,2,first,ap);va_end(ap);return V1;} /* DEAL-WITH-ARGUMENTS-OPTION */ |
1877 |
|
static object LnkTLI159(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[159],(void **)(void *)&LnkLI159,3,first,ap);va_end(ap);return V1;} /* WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */ |
1878 |
|
static void LnkT158(){ call_or_link(VV[158],(void **)(void *)&Lnk158);} /* EXTRACT-DECLARATIONS */ |
1879 |
|
static void LnkT157(){ call_or_link(VV[157],(void **)(void *)&Lnk157);} /* MAKE-LONG-METHOD-COMBINATION-FUNCTION */ |
1880 |
|
static void LnkT156(ptr) object *ptr;{ call_or_link_closure(VV[156],(void **)(void *)&Lnk156,(void **)(void *)&Lclptr156);} /* METHOD-QUALIFIERS */ |
1881 |
|
static void LnkT155(ptr) object *ptr;{ call_or_link_closure(VV[155],(void **)(void *)&Lnk155,(void **)(void *)&Lclptr155);} /* METHOD-COMBINATION-OPTIONS */ |
1882 |
|
static void LnkT154(ptr) object *ptr;{ call_or_link_closure(VV[154],(void **)(void *)&Lnk154,(void **)(void *)&Lclptr154);} /* SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT */ |
1883 |
|
static void LnkT153(ptr) object *ptr;{ call_or_link_closure(VV[153],(void **)(void *)&Lnk153,(void **)(void *)&Lclptr153);} /* SHORT-COMBINATION-OPERATOR */ |
1884 |
|
static void LnkT152(ptr) object *ptr;{ call_or_link_closure(VV[152],(void **)(void *)&Lnk152,(void **)(void *)&Lclptr152);} /* METHOD-COMBINATION-TYPE */ |
1885 |
|
static void LnkT149(ptr) object *ptr;{ call_or_link_closure(VV[149],(void **)(void *)&Lnk149,(void **)(void *)&Lclptr149);} /* MAKE-INSTANCE */ |
1886 |
|
static object LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)(void *)&LnkLI147,first,ap);va_end(ap);return V1;} /* GET-METHOD */ |
1887 |
|
static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */ |
1888 |
|
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[145],(void **)(void *)&LnkLI145,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
1889 |
|
static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* LOAD-TRUENAME */ |
1890 |
|
static object LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
1891 |
|
static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* METHOD-COMBINATION-ERROR */ |
1892 |
|
static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* EXPAND-SHORT-DEFCOMBIN */ |
1893 |
|
static object LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)(void *)&LnkLI139,1,first,ap);va_end(ap);return V1;} /* EXPAND-LONG-DEFCOMBIN */ |
1894 |
|
|
1895 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1896 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |