7 |
static void L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_check; |
|
check_arg(2); |
|
11 |
vs_top=sup; |
vs_top=sup; |
|
{object V1=base[0]->c.c_cdr; |
|
|
if(!endp(V1))invalid_macro_call();} |
|
12 |
base[2]= VV[0]; |
base[2]= VV[0]; |
13 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
14 |
return; |
return; |
18 |
static void L2() |
static void L2() |
19 |
{register object *base=vs_base; |
{register object *base=vs_base; |
20 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
21 |
vs_reserve(VM2); |
vs_check; |
|
check_arg(2); |
|
22 |
vs_top=sup; |
vs_top=sup; |
|
{object V2=base[0]->c.c_cdr; |
|
|
if(!endp(V2))invalid_macro_call();} |
|
23 |
base[2]= VV[1]; |
base[2]= VV[1]; |
24 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
25 |
return; |
return; |
29 |
static void L3() |
static void L3() |
30 |
{register object *base=vs_base; |
{register object *base=vs_base; |
31 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
32 |
vs_reserve(VM3); |
vs_check; |
|
check_arg(2); |
|
33 |
vs_top=sup; |
vs_top=sup; |
34 |
{object V3=base[0]->c.c_cdr; |
{object V3=base[0]->c.c_cdr; |
35 |
if(endp(V3))invalid_macro_call(); |
base[2]= (V3->c.c_car);} |
|
base[2]= (V3->c.c_car); |
|
|
V3=V3->c.c_cdr; |
|
|
if(!endp(V3))invalid_macro_call();} |
|
36 |
V4= list(2,VV[3],base[2]); |
V4= list(2,VV[3],base[2]); |
37 |
V5= list(4,VV[4],VV[5],list(2,VV[6],base[2]),VV[7]); |
V5= list(4,VV[4],VV[5],list(2,VV[6],base[2]),VV[7]); |
38 |
base[3]= list(4,VV[2],/* INLINE-ARGS */V4,/* INLINE-ARGS */V5,list(4,VV[8],VV[9],list(2,VV[6],base[2]),VV[10])); |
base[3]= list(4,VV[2],/* INLINE-ARGS */V4,/* INLINE-ARGS */V5,list(4,VV[8],VV[9],list(2,VV[6],base[2]),VV[10])); |
44 |
static void L4() |
static void L4() |
45 |
{register object *base=vs_base; |
{register object *base=vs_base; |
46 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
47 |
vs_reserve(VM4); |
vs_check; |
|
check_arg(2); |
|
48 |
vs_top=sup; |
vs_top=sup; |
49 |
{object V6=base[0]->c.c_cdr; |
{object V6=base[0]->c.c_cdr; |
50 |
if(endp(V6))invalid_macro_call(); |
base[2]= (V6->c.c_car);} |
|
base[2]= (V6->c.c_car); |
|
|
V6=V6->c.c_cdr; |
|
|
if(!endp(V6))invalid_macro_call();} |
|
51 |
V7= list(3,VV[12],base[2],Ct); |
V7= list(3,VV[12],base[2],Ct); |
52 |
base[3]= list(3,VV[11],/* INLINE-ARGS */V7,list(4,VV[13],VV[14],list(2,VV[6],base[2]),VV[15])); |
base[3]= list(3,VV[11],/* INLINE-ARGS */V7,list(4,VV[13],VV[14],list(2,VV[6],base[2]),VV[15])); |
53 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
61 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
62 |
goto TTL; |
goto TTL; |
63 |
TTL:; |
TTL:; |
64 |
if(!(type_of(symbol_value(VV[16]))==t_cons)){ |
if(!(type_of((VV[16]->s.s_dbind))==t_cons)){ |
65 |
goto T1;} |
goto T1;} |
66 |
princ_str("\n restore_avma; ",VV[17]); |
princ_str("\n restore_avma; ",VV[17]); |
67 |
goto T1; |
goto T1; |
79 |
V13= 0; |
V13= 0; |
80 |
goto T14; |
goto T14; |
81 |
T14:; |
T14:; |
82 |
V14 = make_fixnum(V13); |
V14 = CMPmake_fixnum(V13); |
83 |
if(!(number_compare(V14,(V12))>=0)){ |
if(!(number_compare(V14,(V12))>=0)){ |
84 |
goto T15;} |
goto T15;} |
85 |
{object V15 = Cnil; |
{object V15 = Cnil; |
102 |
object V18; |
object V18; |
103 |
object V19; |
object V19; |
104 |
va_start(ap,first); |
va_start(ap,first); |
|
if(narg <1) too_few_arguments(); |
|
105 |
V17= V16; |
V17= V16; |
106 |
narg = narg - 1; |
narg = narg - 1; |
107 |
if (narg <= 0) goto T24; |
if (narg <= 0) goto T24; |
122 |
{register object V20; |
{register object V20; |
123 |
register long V21; |
register long V21; |
124 |
object V22; |
object V22; |
125 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],(VV[18]->s.s_dbind)); |
126 |
V20= Cnil; |
V20= Cnil; |
127 |
V21= 0; |
V21= 0; |
128 |
V22= Cnil; |
V22= Cnil; |
129 |
if(symbol_value(VV[19])==Cnil){ |
if((VV[19]->s.s_dbind)==Cnil){ |
130 |
goto T32;} |
goto T32;} |
131 |
(void)((*(LnkLI47))((V17),(V19))); |
base[1]= (V17); |
132 |
|
base[2]= (V19); |
133 |
|
vs_top=(vs_base=base+1)+2; |
134 |
|
(void) (*Lnk47)(); |
135 |
|
vs_top=sup; |
136 |
goto T32; |
goto T32; |
137 |
T32:; |
T32:; |
138 |
if(!(((V17))==(VV[20]))){ |
if(!(((V17))==(VV[20]))){ |
139 |
goto T33;} |
goto T35;} |
140 |
if((symbol_value(VV[21]))==(VV[22])){ |
if(((VV[21]->s.s_dbind))==(VV[22])){ |
141 |
goto T33;} |
goto T35;} |
142 |
if((symbol_value(VV[21]))==(VV[23])){ |
if(((VV[21]->s.s_dbind))==(VV[23])){ |
143 |
goto T33;} |
goto T35;} |
144 |
princ_str("\n ",VV[17]); |
princ_str("\n ",VV[17]); |
145 |
(void)((*(LnkLI48))()); |
(void)((*(LnkLI48))()); |
146 |
goto T33; |
goto T35; |
147 |
T33:; |
T35:; |
148 |
if(!(type_of(symbol_value(VV[21]))==t_cons)){ |
if(!(type_of((VV[21]->s.s_dbind))==t_cons)){ |
149 |
goto T43;} |
goto T45;} |
150 |
if(!((car(symbol_value(VV[21])))==(VV[24]))){ |
if(!((CMPcar((VV[21]->s.s_dbind)))==(VV[24]))){ |
151 |
goto T43;} |
goto T45;} |
152 |
(void)((*(LnkLI49))((V17),cadr(symbol_value(VV[21])))); |
(void)((*(LnkLI49))((V17),CMPcadr((VV[21]->s.s_dbind)))); |
153 |
if(!(((V17))==(Ct))){ |
if(!(((V17))==(Ct))){ |
154 |
goto T41;} |
goto T43;} |
155 |
{object V23 = Cnil; |
{object V23 = Cnil; |
156 |
bds_unwind1; |
bds_unwind1; |
157 |
VMR6(V23)} |
VMR6(V23)} |
158 |
goto T43; |
goto T45; |
159 |
T43:; |
T45:; |
160 |
if(!(type_of(symbol_value(VV[21]))==t_cons)){ |
if(!(type_of((VV[21]->s.s_dbind))==t_cons)){ |
161 |
goto T41;} |
goto T43;} |
162 |
if(!((car(symbol_value(VV[21])))==(VV[25]))){ |
if(!((CMPcar((VV[21]->s.s_dbind)))==(VV[25]))){ |
163 |
goto T41;} |
goto T43;} |
164 |
(void)((*(LnkLI50))((V17),cadr(symbol_value(VV[21])))); |
(void)((*(LnkLI50))((V17),CMPcadr((VV[21]->s.s_dbind)))); |
165 |
if(((V17))!=Cnil){ |
if(((V17))!=Cnil){ |
166 |
goto T41;} |
goto T43;} |
167 |
{object V24 = Cnil; |
{object V24 = Cnil; |
168 |
bds_unwind1; |
bds_unwind1; |
169 |
VMR6(V24)} |
VMR6(V24)} |
170 |
goto T41; |
goto T43; |
171 |
T41:; |
T43:; |
172 |
{object V25; |
{object V25; |
173 |
register object V26; |
register object V26; |
174 |
V25= symbol_value(VV[26]); |
V25= (VV[26]->s.s_dbind); |
175 |
V26= car((V25)); |
V26= CMPcar((V25)); |
176 |
goto T60; |
goto T62; |
177 |
T60:; |
T62:; |
178 |
if(!(endp_prop((V25)))){ |
if(!(((V25))==Cnil)){ |
179 |
goto T61;} |
goto T63;} |
180 |
{object V27 = (*(LnkLI51))(); |
{object V27 = (*(LnkLI51))(); |
181 |
bds_unwind1; |
bds_unwind1; |
182 |
VMR6(V27)} |
VMR6(V27)} |
183 |
goto T61; |
goto T63; |
184 |
T61:; |
T63:; |
185 |
if(!(type_of((V26))==t_cons)){ |
if(!(type_of((V26))==t_cons)){ |
186 |
goto T67;} |
goto T69;} |
187 |
if(!(((V26))==(symbol_value(VV[27])))){ |
if(!(((V26))==((VV[27]->s.s_dbind)))){ |
188 |
goto T70;} |
goto T72;} |
189 |
if(!(type_of(symbol_value(VV[21]))==t_cons)){ |
if(!(type_of((VV[21]->s.s_dbind))==t_cons)){ |
190 |
goto T74;} |
goto T76;} |
191 |
if((car(symbol_value(VV[21])))==(VV[24])){ |
if((CMPcar((VV[21]->s.s_dbind)))==(VV[24])){ |
192 |
goto T73;} |
goto T75;} |
193 |
if(!((car(symbol_value(VV[21])))==(VV[25]))){ |
if(!((CMPcar((VV[21]->s.s_dbind)))==(VV[25]))){ |
194 |
goto T74;} |
goto T76;} |
195 |
goto T73; |
goto T75; |
196 |
T73:; |
T75:; |
197 |
V28 = make_fixnum(V21); |
V28 = CMPmake_fixnum(V21); |
198 |
(void)((*(LnkLI52))((V20),V28)); |
(void)((*(LnkLI52))((V20),V28)); |
|
goto T72; |
|
199 |
goto T74; |
goto T74; |
200 |
T74:; |
goto T76; |
201 |
|
T76:; |
202 |
if(((V20))!=Cnil){ |
if(((V20))!=Cnil){ |
203 |
goto T80;} |
goto T82;} |
204 |
if(!((V21)>0)){ |
if(!((V21)>0)){ |
205 |
goto T81;} |
goto T83;} |
206 |
goto T80; |
goto T82; |
207 |
T80:; |
T82:; |
208 |
if(!(type_of((V17))==t_cons)){ |
if(!(type_of((V17))==t_cons)){ |
209 |
goto T86;} |
goto T88;} |
210 |
if(!((car((V17)))==(VV[28]))){ |
if(!((CMPcar((V17)))==(VV[28]))){ |
211 |
goto T89;} |
goto T91;} |
212 |
V30= structure_ref(cadr((V17)),VV[28],1); |
{register object x= STREF(object,CMPcadr((V17)),4),V29= VV[29]; |
213 |
{register object x= /* INLINE-ARGS */V30,V29= VV[29]; |
while(V29!=Cnil) |
|
while(!endp(V29)) |
|
214 |
if(eql(x,V29->c.c_car)){ |
if(eql(x,V29->c.c_car)){ |
215 |
goto T85; |
goto T87; |
216 |
}else V29=V29->c.c_cdr;} |
}else V29=V29->c.c_cdr;} |
217 |
goto T89; |
goto T91; |
218 |
T89:; |
T91:; |
219 |
{register object x= car((V17)),V31= VV[30]; |
{register object x= CMPcar((V17)),V30= VV[30]; |
220 |
while(!endp(V31)) |
while(V30!=Cnil) |
221 |
if(eql(x,V31->c.c_car)){ |
if(eql(x,V30->c.c_car)){ |
222 |
goto T93; |
goto T95; |
223 |
}else V31=V31->c.c_cdr; |
}else V30=V30->c.c_cdr; |
224 |
goto T86;} |
goto T88;} |
225 |
goto T93; |
goto T95; |
226 |
T93:; |
T95:; |
227 |
goto T85; |
goto T87; |
228 |
T85:; |
T87:; |
229 |
if(!(type_of(symbol_value(VV[21]))==t_cons)){ |
if(!(type_of((VV[21]->s.s_dbind))==t_cons)){ |
230 |
goto T95;} |
goto T97;} |
231 |
if(!((car(symbol_value(VV[21])))==(VV[31]))){ |
if(!((CMPcar((VV[21]->s.s_dbind)))==(VV[31]))){ |
232 |
goto T95;} |
goto T97;} |
233 |
base[2]= (V17); |
base[2]= (V17); |
234 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
235 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
236 |
vs_top=sup; |
vs_top=sup; |
237 |
V32 = make_fixnum(V21); |
V31 = CMPmake_fixnum(V21); |
238 |
(void)((*(LnkLI52))((V20),V32)); |
(void)((*(LnkLI52))((V20),V31)); |
239 |
goto T72; |
goto T74; |
240 |
goto T95; |
goto T97; |
241 |
T95:; |
T97:; |
242 |
{object V33; |
{object V32; |
243 |
V33= list(2,VV[32],(VFUN_NARGS=0,(*(LnkLI54))())); |
V32= list(2,VV[32],(VFUN_NARGS=0,(*(LnkLI54))())); |
244 |
bds_bind(VV[21],(V33)); |
bds_bind(VV[21],(V32)); |
245 |
base[3]= (V17); |
base[3]= (V17); |
246 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
247 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
248 |
vs_top=sup; |
vs_top=sup; |
249 |
bds_unwind1; |
bds_unwind1; |
250 |
V34 = make_fixnum(V21); |
V33 = CMPmake_fixnum(V21); |
251 |
(void)((*(LnkLI52))((V20),V34)); |
(void)((*(LnkLI52))((V20),V33)); |
252 |
base[2]= (V33); |
base[2]= (V32); |
253 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
254 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
255 |
vs_top=sup; |
vs_top=sup; |
256 |
goto T72;} |
goto T74;} |
257 |
goto T86; |
goto T88; |
258 |
T86:; |
T88:; |
259 |
V35 = make_fixnum(V21); |
V34 = CMPmake_fixnum(V21); |
260 |
(void)((*(LnkLI52))((V20),V35)); |
(void)((*(LnkLI52))((V20),V34)); |
261 |
base[2]= (V17); |
base[2]= (V17); |
262 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
263 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
264 |
vs_top=sup; |
vs_top=sup; |
265 |
goto T72; |
goto T74; |
266 |
goto T81; |
goto T83; |
267 |
T81:; |
T83:; |
268 |
base[2]= (V17); |
base[2]= (V17); |
269 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
270 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
271 |
vs_top=sup; |
vs_top=sup; |
272 |
goto T72; |
goto T74; |
273 |
T72:; |
T74:; |
274 |
if(((V18))==Cnil){ |
if(((V18))==Cnil){ |
275 |
goto T109;} |
goto T111;} |
276 |
if(!(type_of(symbol_value(VV[16]))==t_cons)){ |
if(!(type_of((VV[16]->s.s_dbind))==t_cons)){ |
277 |
goto T112;} |
goto T114;} |
278 |
princ_str("\n restore_avma; ",VV[17]); |
princ_str("\n restore_avma; ",VV[17]); |
279 |
goto T112; |
goto T114; |
280 |
T112:; |
T114:; |
281 |
princ_str("\n ",VV[17]); |
princ_str("\n ",VV[17]); |
282 |
if(type_of(symbol_value(VV[27]))!=t_cons)FEwrong_type_argument(Scons,symbol_value(VV[27])); |
((VV[27]->s.s_dbind))->c.c_cdr = Ct; |
|
(symbol_value(VV[27]))->c.c_cdr = Ct; |
|
283 |
princ_str("goto T",VV[17]); |
princ_str("goto T",VV[17]); |
284 |
(void)((*(LnkLI46))(car(symbol_value(VV[27])))); |
(void)((*(LnkLI46))(CMPcar((VV[27]->s.s_dbind)))); |
285 |
princ_char(59,VV[17]); |
princ_char(59,VV[17]); |
286 |
goto T109; |
goto T111; |
287 |
T109:; |
T111:; |
288 |
{object V36 = Cnil; |
{object V35 = Cnil; |
289 |
bds_unwind1; |
bds_unwind1; |
290 |
VMR6(V36)} |
VMR6(V35)} |
291 |
goto T70; |
goto T72; |
292 |
T70:; |
T72:; |
293 |
V18= Ct; |
V18= Ct; |
|
goto T65; |
|
294 |
goto T67; |
goto T67; |
295 |
T67:; |
goto T69; |
296 |
|
T69:; |
297 |
if(!(type_of((V26))==t_fixnum|| |
if(!(type_of((V26))==t_fixnum|| |
298 |
type_of((V26))==t_bignum|| |
type_of((V26))==t_bignum|| |
299 |
type_of((V26))==t_ratio|| |
type_of((V26))==t_ratio|| |
300 |
type_of((V26))==t_shortfloat|| |
type_of((V26))==t_shortfloat|| |
301 |
type_of((V26))==t_longfloat|| |
type_of((V26))==t_longfloat|| |
302 |
type_of((V26))==t_complex)){ |
type_of((V26))==t_complex)){ |
303 |
goto T123;} |
goto T125;} |
304 |
V20= (V26); |
V20= (V26); |
305 |
V21= 0; |
V21= 0; |
306 |
goto T65; |
goto T67; |
307 |
goto T123; |
goto T125; |
308 |
T123:; |
T125:; |
309 |
if(!(((V26))==(VV[33]))){ |
if(!(((V26))==(VV[33]))){ |
310 |
goto T129;} |
goto T131;} |
311 |
V21= (long)(V21)+(1); |
V21= (long)(V21)+(1); |
312 |
goto T65; |
goto T67; |
313 |
goto T129; |
goto T131; |
314 |
T129:; |
T131:; |
315 |
if(!(((V26))==(VV[22]))){ |
if(!(((V26))==(VV[22]))){ |
316 |
goto T133;} |
goto T135;} |
317 |
if(!((symbol_value(VV[27]))==(VV[22]))){ |
if(!(((VV[27]->s.s_dbind))==(VV[22]))){ |
318 |
goto T65;} |
goto T67;} |
319 |
base[2]= (V17); |
base[2]= (V17); |
320 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
321 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
322 |
vs_top=sup; |
vs_top=sup; |
323 |
V37 = make_fixnum(V21); |
V36 = CMPmake_fixnum(V21); |
324 |
(void)((*(LnkLI52))((V20),V37)); |
(void)((*(LnkLI52))((V20),V36)); |
325 |
princ_str("\n return;",VV[17]); |
princ_str("\n return;",VV[17]); |
326 |
{object V38 = Cnil; |
{object V37 = Cnil; |
327 |
bds_unwind1; |
bds_unwind1; |
328 |
VMR6(V38)} |
VMR6(V37)} |
329 |
goto T133; |
goto T135; |
330 |
T133:; |
T135:; |
331 |
if(!(((V26))==(VV[34]))){ |
if(!(((V26))==(VV[34]))){ |
|
goto T143;} |
|
|
if(!(type_of((V17))==t_cons)){ |
|
332 |
goto T145;} |
goto T145;} |
333 |
{register object x= car((V17)),V39= VV[35]; |
if(!(type_of((V17))==t_cons)){ |
334 |
while(!endp(V39)) |
goto T147;} |
335 |
if(eql(x,V39->c.c_car)){ |
{register object x= CMPcar((V17)),V38= VV[35]; |
336 |
goto T149; |
while(V38!=Cnil) |
337 |
}else V39=V39->c.c_cdr; |
if(eql(x,V38->c.c_car)){ |
338 |
goto T145;} |
goto T151; |
339 |
goto T149; |
}else V38=V38->c.c_cdr; |
340 |
T149:; |
goto T147;} |
341 |
if(!(type_of(symbol_value(VV[21]))==t_cons)){ |
goto T151; |
342 |
goto T151;} |
T151:; |
343 |
if(!((car(symbol_value(VV[21])))==(VV[31]))){ |
if(!(type_of((VV[21]->s.s_dbind))==t_cons)){ |
344 |
goto T151;} |
goto T153;} |
345 |
|
if(!((CMPcar((VV[21]->s.s_dbind)))==(VV[31]))){ |
346 |
|
goto T153;} |
347 |
base[2]= (V17); |
base[2]= (V17); |
348 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
349 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
350 |
vs_top=sup; |
vs_top=sup; |
351 |
V17= symbol_value(VV[21]); |
V17= (VV[21]->s.s_dbind); |
352 |
goto T145; |
goto T147; |
353 |
goto T151; |
goto T153; |
354 |
T151:; |
T153:; |
355 |
if((symbol_value(VV[36]))==Cnil){ |
if(((VV[36]->s.s_dbind))==Cnil){ |
356 |
goto T160;} |
goto T162;} |
357 |
base[2]= list(2,VV[32],(VFUN_NARGS=0,(*(LnkLI54))())); |
base[2]= list(2,VV[32],(VFUN_NARGS=0,(*(LnkLI54))())); |
|
goto T158; |
|
358 |
goto T160; |
goto T160; |
359 |
T160:; |
goto T162; |
360 |
|
T162:; |
361 |
base[2]= list(2,VV[31],(*(LnkLI55))()); |
base[2]= list(2,VV[31],(*(LnkLI55))()); |
362 |
goto T158; |
goto T160; |
363 |
T158:; |
T160:; |
364 |
bds_bind(VV[21],base[2]); |
bds_bind(VV[21],base[2]); |
365 |
base[3]= (V17); |
base[3]= (V17); |
366 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
368 |
vs_top=sup; |
vs_top=sup; |
369 |
V17= (VV[21]->s.s_dbind); |
V17= (VV[21]->s.s_dbind); |
370 |
bds_unwind1; |
bds_unwind1; |
371 |
|
goto T147; |
372 |
|
T147:; |
373 |
|
princ_str("\n frs_pop();",VV[17]); |
374 |
|
goto T67; |
375 |
goto T145; |
goto T145; |
376 |
T145:; |
T145:; |
377 |
princ_str("\n frs_pop();",VV[17]); |
{object V39; |
378 |
goto T65; |
V39= (((V26))==(VV[37])?Ct:Cnil); |
379 |
goto T143; |
if(((V39))==Cnil){ |
380 |
T143:; |
goto T170;} |
381 |
{object V40; |
goto T67; |
382 |
V40= (((V26))==(VV[37])?Ct:Cnil); |
goto T170; |
383 |
if(((V40))==Cnil){ |
T170:; |
|
goto T168;} |
|
|
goto T65; |
|
|
goto T168; |
|
|
T168:; |
|
384 |
if(!(((V26))==(VV[38]))){ |
if(!(((V26))==(VV[38]))){ |
385 |
goto T171;} |
goto T173;} |
386 |
V18= Ct; |
V18= Ct; |
387 |
goto T65; |
goto T67; |
388 |
goto T171; |
goto T173; |
389 |
T171:; |
T173:; |
390 |
{register object x= (V26),V41= VV[39]; |
{register object x= (V26),V40= VV[39]; |
391 |
while(!endp(V41)) |
while(V40!=Cnil) |
392 |
if(type_of(V41->c.c_car)==t_cons &&eql(x,V41->c.c_car->c.c_car)){ |
if(eql(x,V40->c.c_car->c.c_car) &&V40->c.c_car != Cnil){ |
393 |
V22= (V41->c.c_car); |
V22= (V40->c.c_car); |
394 |
goto T177; |
goto T179; |
395 |
}else V41=V41->c.c_cdr; |
}else V40=V40->c.c_cdr; |
396 |
V22= Cnil;} |
V22= Cnil;} |
397 |
goto T177; |
goto T179; |
398 |
T177:; |
T179:; |
399 |
if(((V22))==Cnil){ |
if(((V22))==Cnil){ |
400 |
goto T175;} |
goto T177;} |
401 |
{object V42; |
{object V41; |
402 |
setq(VV[40],number_plus(symbol_value(VV[40]),small_fixnum(1))); |
(VV[40]->s.s_dbind)= number_plus((VV[40]->s.s_dbind),small_fixnum(1)); |
403 |
V42= symbol_value(VV[40]);{object V43; |
V41= (VV[40]->s.s_dbind);{object V42; |
404 |
V43= symbol_value(VV[27]); |
V42= (VV[27]->s.s_dbind); |
405 |
if(!((V43)==(car((V22))))){ |
if(!((V42)==(CMPcar((V22))))){ |
406 |
goto T181;}} |
goto T183;}} |
407 |
goto T180; |
goto T182; |
408 |
goto T181; |
goto T183; |
409 |
T181:; |
T183:; |
410 |
(void)((*(LnkLI56))()); |
(void)((*(LnkLI56))()); |
411 |
goto T180; |
goto T182; |
412 |
T180:; |
T182:; |
413 |
V22= cdr((V22)); |
V22= CMPcdr((V22)); |
414 |
princ_str("\n {",VV[17]); |
princ_str("\n {",VV[17]); |
415 |
V44= (*(LnkLI57))(car((V22))); |
V43= (*(LnkLI57))(CMPcar((V22))); |
416 |
(void)((*(LnkLI46))(/* INLINE-ARGS */V44)); |
(void)((*(LnkLI46))(/* INLINE-ARGS */V43)); |
417 |
princ_char(86,VV[17]); |
princ_char(86,VV[17]); |
418 |
(void)((*(LnkLI46))((V42))); |
(void)((*(LnkLI46))((V41))); |
419 |
princ_str(" = ",VV[17]); |
princ_str(" = ",VV[17]); |
420 |
(void)(( |
(void)(( |
421 |
V45 = cdr((V22)), |
V44 = CMPcdr((V22)), |
422 |
(type_of(V45) == t_sfun ?(*((V45)->sfn.sfn_self)): |
(type_of(V44) == t_sfun ?(*((V44)->sfn.sfn_self)): |
423 |
(fcall.fun=(V45),fcall.argd=1,fcalln))((V17)))); |
(fcall.argd=1,type_of(V44)==t_vfun) ? |
424 |
|
(*((V44)->sfn.sfn_self)): |
425 |
|
(fcall.fun=(V44),fcalln))((V17)))); |
426 |
princ_char(59,VV[17]); |
princ_char(59,VV[17]); |
427 |
V46 = make_fixnum(V21); |
V45 = CMPmake_fixnum(V21); |
428 |
(void)((*(LnkLI52))((V20),V46)); |
(void)((*(LnkLI52))((V20),V45)); |
429 |
princ_str("\n VMR",VV[17]); |
princ_str("\n VMR",VV[17]); |
430 |
(void)((*(LnkLI46))(symbol_value(VV[41]))); |
(void)((*(LnkLI46))((VV[41]->s.s_dbind))); |
431 |
princ_char(40,VV[17]); |
princ_char(40,VV[17]); |
432 |
V48= (*(LnkLI57))(car((V22))); |
V47= (*(LnkLI57))(CMPcar((V22))); |
433 |
if(!(equal(/* INLINE-ARGS */V48,VV[42]))){ |
if(!(equal(/* INLINE-ARGS */V47,VV[42]))){ |
434 |
goto T202;} |
goto T204;} |
435 |
V47= VV[43]; |
V46= VV[43]; |
436 |
goto T200; |
goto T202; |
437 |
|
goto T204; |
438 |
|
T204:; |
439 |
|
V46= VV[44]; |
440 |
goto T202; |
goto T202; |
441 |
T202:; |
T202:; |
442 |
V47= VV[44]; |
(void)((*(LnkLI46))(V46)); |
|
goto T200; |
|
|
T200:; |
|
|
(void)((*(LnkLI46))(V47)); |
|
443 |
princ_char(86,VV[17]); |
princ_char(86,VV[17]); |
444 |
(void)((*(LnkLI46))((V42))); |
(void)((*(LnkLI46))((V41))); |
445 |
princ_str(")}",VV[17]); |
princ_str(")}",VV[17]); |
446 |
{object V49 = Cnil; |
{object V48 = Cnil; |
447 |
bds_unwind1; |
bds_unwind1; |
448 |
VMR6(V49)}} |
VMR6(V48)}} |
449 |
goto T175; |
goto T177; |
450 |
T175:; |
T177:; |
451 |
(void)((*(LnkLI51))());} |
(void)((*(LnkLI51))());} |
452 |
goto T65; |
goto T67; |
453 |
T65:; |
T67:; |
454 |
V25= cdr((V25)); |
V25= CMPcdr((V25)); |
455 |
V26= car((V25)); |
V26= CMPcar((V25)); |
456 |
goto T60;}} |
goto T62;}} |
457 |
va_end(ap); |
va_end(ap); |
458 |
base[0]=base[0]; |
base[0]=base[0]; |
459 |
return Cnil;} |
return Cnil;} |
460 |
} |
} |
461 |
/* local entry for function UNWIND-NO-EXIT */ |
/* local entry for function UNWIND-NO-EXIT */ |
462 |
|
|
463 |
static object LI7(V51) |
static object LI7(V50) |
464 |
|
|
465 |
register object V51; |
register object V50; |
466 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
467 |
goto TTL; |
goto TTL; |
468 |
TTL:; |
TTL:; |
469 |
{register object V52; |
{register object V51; |
470 |
register long V53; |
register long V52; |
471 |
V52= Cnil; |
V51= Cnil; |
472 |
V53= 0; |
V52= 0; |
473 |
{register object V54; |
{register object V53; |
474 |
register object V55; |
register object V54; |
475 |
V54= symbol_value(VV[26]); |
V53= (VV[26]->s.s_dbind); |
476 |
V55= car((V54)); |
V54= CMPcar((V53)); |
477 |
goto T217; |
goto T219; |
478 |
T217:; |
T219:; |
479 |
if(!(endp_prop((V54)))){ |
if(!(((V53))==Cnil)){ |
480 |
goto T218;} |
goto T220;} |
481 |
{object V56 = (*(LnkLI51))(); |
{object V55 = (*(LnkLI51))(); |
482 |
VMR7(V56)} |
VMR7(V55)} |
483 |
goto T218; |
goto T220; |
484 |
T218:; |
T220:; |
485 |
if(!(type_of((V55))==t_cons)){ |
if(!(type_of((V54))==t_cons)){ |
486 |
|
goto T226;} |
487 |
|
if(!(((V54))==((V50)))){ |
488 |
goto T224;} |
goto T224;} |
489 |
if(!(((V55))==((V51)))){ |
V56 = CMPmake_fixnum(V52); |
490 |
goto T222;} |
(void)((*(LnkLI52))((V51),V56)); |
491 |
V57 = make_fixnum(V53); |
{object V57 = Cnil; |
492 |
(void)((*(LnkLI52))((V52),V57)); |
VMR7(V57)} |
493 |
{object V58 = Cnil; |
goto T226; |
494 |
VMR7(V58)} |
T226:; |
495 |
|
if(!(type_of((V54))==t_fixnum|| |
496 |
|
type_of((V54))==t_bignum|| |
497 |
|
type_of((V54))==t_ratio|| |
498 |
|
type_of((V54))==t_shortfloat|| |
499 |
|
type_of((V54))==t_longfloat|| |
500 |
|
type_of((V54))==t_complex)){ |
501 |
|
goto T232;} |
502 |
|
V51= (V54); |
503 |
|
V52= 0; |
504 |
goto T224; |
goto T224; |
505 |
T224:; |
goto T232; |
506 |
if(!(type_of((V55))==t_fixnum|| |
T232:; |
507 |
type_of((V55))==t_bignum|| |
if(!(((V54))==(VV[33]))){ |
508 |
type_of((V55))==t_ratio|| |
goto T238;} |
509 |
type_of((V55))==t_shortfloat|| |
V52= (long)(V52)+(1); |
510 |
type_of((V55))==t_longfloat|| |
goto T224; |
511 |
type_of((V55))==t_complex)){ |
goto T238; |
512 |
goto T230;} |
T238:; |
513 |
V52= (V55); |
{register object x= (V54),V58= VV[45]; |
514 |
V53= 0; |
while(V58!=Cnil) |
515 |
goto T222; |
if(eql(x,V58->c.c_car)){ |
516 |
goto T230; |
goto T243; |
517 |
T230:; |
}else V58=V58->c.c_cdr; |
518 |
if(!(((V55))==(VV[33]))){ |
goto T242;} |
|
goto T236;} |
|
|
V53= (long)(V53)+(1); |
|
|
goto T222; |
|
|
goto T236; |
|
|
T236:; |
|
|
{register object x= (V55),V59= VV[45]; |
|
|
while(!endp(V59)) |
|
|
if(eql(x,V59->c.c_car)){ |
|
|
goto T241; |
|
|
}else V59=V59->c.c_cdr; |
|
|
goto T240;} |
|
|
goto T241; |
|
|
T241:; |
|
|
if(!(((V51))==((V55)))){ |
|
|
goto T243;} |
|
|
V60 = make_fixnum(V53); |
|
|
(void)((*(LnkLI52))((V52),V60)); |
|
|
{object V61 = Cnil; |
|
|
VMR7(V61)} |
|
519 |
goto T243; |
goto T243; |
520 |
T243:; |
T243:; |
521 |
|
if(!(((V50))==((V54)))){ |
522 |
|
goto T245;} |
523 |
|
V59 = CMPmake_fixnum(V52); |
524 |
|
(void)((*(LnkLI52))((V51),V59)); |
525 |
|
{object V60 = Cnil; |
526 |
|
VMR7(V60)} |
527 |
|
goto T245; |
528 |
|
T245:; |
529 |
(void)((*(LnkLI51))()); |
(void)((*(LnkLI51))()); |
530 |
goto T222; |
goto T224; |
531 |
goto T240; |
goto T242; |
532 |
T240:; |
T242:; |
533 |
if(!(((V55))==(VV[34]))){ |
if(!(((V54))==(VV[34]))){ |
534 |
goto T247;} |
goto T249;} |
535 |
princ_str("\n frs_pop();",VV[17]); |
princ_str("\n frs_pop();",VV[17]); |
536 |
goto T222; |
goto T224; |
537 |
goto T247; |
goto T249; |
538 |
T247:; |
T249:; |
539 |
if(!(((V55))==(VV[37]))){ |
if(!(((V54))==(VV[37]))){ |
540 |
goto T251;} |
goto T253;} |
541 |
if(!(((V51))==(VV[37]))){ |
if(!(((V50))==(VV[37]))){ |
542 |
goto T254;} |
goto T256;} |
543 |
V62 = make_fixnum(V53); |
V61 = CMPmake_fixnum(V52); |
544 |
(void)((*(LnkLI52))((V52),V62)); |
(void)((*(LnkLI52))((V51),V61)); |
545 |
{object V63 = Cnil; |
{object V62 = Cnil; |
546 |
VMR7(V63)} |
VMR7(V62)} |
547 |
goto T254; |
goto T256; |
548 |
T254:; |
T256:; |
549 |
(void)((*(LnkLI51))()); |
(void)((*(LnkLI51))()); |
550 |
goto T222; |
goto T224; |
551 |
goto T251; |
goto T253; |
552 |
T251:; |
T253:; |
553 |
{object V64; |
{object V63; |
554 |
V64= (((V55))==(VV[38])?Ct:Cnil); |
V63= (((V54))==(VV[38])?Ct:Cnil); |
555 |
if(((V64))==Cnil){ |
if(((V63))==Cnil){ |
556 |
goto T259;} |
goto T261;} |
557 |
goto T222; |
goto T224; |
558 |
goto T259; |
goto T261; |
559 |
T259:; |
T261:; |
560 |
(void)((*(LnkLI51))());} |
(void)((*(LnkLI51))());} |
561 |
goto T222; |
goto T224; |
562 |
T222:; |
T224:; |
563 |
V54= cdr((V54)); |
V53= CMPcdr((V53)); |
564 |
V55= car((V54)); |
V54= CMPcar((V53)); |
565 |
goto T217;}} |
goto T219;}} |
566 |
base[0]=base[0]; |
base[0]=base[0]; |
567 |
return Cnil; |
return Cnil; |
568 |
} |
} |
573 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
574 |
goto TTL; |
goto TTL; |
575 |
TTL:; |
TTL:; |
576 |
{register object V65; |
{register object V64; |
577 |
register object V66; |
register object V65; |
578 |
V65= symbol_value(VV[26]); |
V64= (VV[26]->s.s_dbind); |
579 |
V66= car((V65)); |
V65= CMPcar((V64)); |
580 |
goto T269; |
goto T271; |
581 |
T269:; |
T271:; |
582 |
if(!(endp_prop((V65)))){ |
if(!(((V64))==Cnil)){ |
583 |
goto T270;} |
goto T272;} |
584 |
{object V67 = (*(LnkLI51))(); |
{object V66 = (*(LnkLI51))(); |
585 |
VMR8(V67)} |
VMR8(V66)} |
586 |
goto T270; |
goto T272; |
587 |
T270:; |
T272:; |
588 |
if(!(((V66))==(VV[37]))){ |
if(!(((V65))==(VV[37]))){ |
|
goto T276;} |
|
|
{object V68 = Ct; |
|
|
VMR8(V68)} |
|
|
goto T276; |
|
|
T276:; |
|
|
if(type_of((V66))==t_fixnum|| |
|
|
type_of((V66))==t_bignum|| |
|
|
type_of((V66))==t_ratio|| |
|
|
type_of((V66))==t_shortfloat|| |
|
|
type_of((V66))==t_longfloat|| |
|
|
type_of((V66))==t_complex){ |
|
|
goto T278;} |
|
|
if(((V66))==(VV[33])){ |
|
589 |
goto T278;} |
goto T278;} |
590 |
if(!(((V66))==(VV[34]))){ |
{object V67 = Ct; |
591 |
goto T279;} |
VMR8(V67)} |
592 |
goto T278; |
goto T278; |
593 |
T278:; |
T278:; |
594 |
{object V69 = Cnil; |
if(type_of((V65))==t_fixnum|| |
595 |
VMR8(V69)} |
type_of((V65))==t_bignum|| |
596 |
goto T279; |
type_of((V65))==t_ratio|| |
597 |
T279:; |
type_of((V65))==t_shortfloat|| |
598 |
{register object V70; |
type_of((V65))==t_longfloat|| |
599 |
if(!(type_of((V66))==t_cons)){ |
type_of((V65))==t_complex){ |
600 |
goto T286;} |
goto T280;} |
601 |
V70= Ct; |
if(((V65))==(VV[33])){ |
602 |
goto T285; |
goto T280;} |
603 |
goto T286; |
if(!(((V65))==(VV[34]))){ |
604 |
T286:; |
goto T281;} |
605 |
V70= (((V66))==(VV[38])?Ct:Cnil); |
goto T280; |
606 |
goto T285; |
T280:; |
607 |
T285:; |
{object V68 = Cnil; |
608 |
if(((V70))==Cnil){ |
VMR8(V68)} |
609 |
goto T289;} |
goto T281; |
610 |
goto T274; |
T281:; |
611 |
goto T289; |
{register object V69; |
612 |
T289:; |
if(!(type_of((V65))==t_cons)){ |
613 |
|
goto T288;} |
614 |
|
V69= Ct; |
615 |
|
goto T287; |
616 |
|
goto T288; |
617 |
|
T288:; |
618 |
|
V69= (((V65))==(VV[38])?Ct:Cnil); |
619 |
|
goto T287; |
620 |
|
T287:; |
621 |
|
if(((V69))==Cnil){ |
622 |
|
goto T291;} |
623 |
|
goto T276; |
624 |
|
goto T291; |
625 |
|
T291:; |
626 |
(void)((*(LnkLI51))());} |
(void)((*(LnkLI51))());} |
627 |
goto T274; |
goto T276; |
628 |
T274:; |
T276:; |
629 |
V65= cdr((V65)); |
V64= CMPcdr((V64)); |
630 |
V66= car((V65)); |
V65= CMPcar((V64)); |
631 |
goto T269;} |
goto T271;} |
632 |
base[0]=base[0]; |
base[0]=base[0]; |
633 |
return Cnil; |
return Cnil; |
634 |
} |
} |
642 |
static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,2,first,ap);va_end(ap);return V1;} /* SET-JUMP-FALSE */ |
static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,2,first,ap);va_end(ap);return V1;} /* SET-JUMP-FALSE */ |
643 |
static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* SET-JUMP-TRUE */ |
static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* SET-JUMP-TRUE */ |
644 |
static object LnkTLI48(){return call_proc0(VV[48],(void **)(void *)&LnkLI48);} /* RESET-TOP */ |
static object LnkTLI48(){return call_proc0(VV[48],(void **)(void *)&LnkLI48);} /* RESET-TOP */ |
645 |
static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */ |
static void LnkT47(){ call_or_link(VV[47],(void **)(void *)&Lnk47);} /* RECORD-CALL-INFO */ |
646 |
static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
647 |
|
|
648 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |