7 |
static L1() |
static 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; |
12 |
{object V1=base[0]->c.c_cdr; |
{object V1=base[0]->c.c_cdr; |
13 |
if(endp(V1))invalid_macro_call(); |
base[2]= (V1->c.c_car);} |
|
base[2]= (V1->c.c_car); |
|
|
V1=V1->c.c_cdr; |
|
|
if(!endp(V1))invalid_macro_call();} |
|
14 |
base[3]= list(2,VV[0],base[2]); |
base[3]= list(2,VV[0],base[2]); |
15 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
16 |
return; |
return; |
17 |
} |
} |
18 |
/* macro definition for LOOP-SIMPLE-ERROR */ |
/* function definition for LOOP-GENTEMP */ |
19 |
|
|
20 |
static L2() |
static L2() |
21 |
{register object *base=vs_base; |
{register object *base=vs_base; |
22 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
23 |
vs_reserve(VM2); |
vs_check; |
24 |
check_arg(2); |
{object V2; |
25 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1;} |
26 |
|
V2=(base[0]); |
27 |
vs_top=sup; |
vs_top=sup; |
|
{object V2=base[0]->c.c_cdr; |
|
|
if(endp(V2))invalid_macro_call(); |
|
|
base[2]= (V2->c.c_car); |
|
|
V2=V2->c.c_cdr; |
|
|
if(endp(V2)){ |
|
|
base[3]= Cnil; |
|
|
base[4]= Cnil; |
|
|
} else { |
|
|
base[3]= (V2->c.c_car); |
|
|
base[4]= Ct; |
|
|
V2=V2->c.c_cdr;} |
|
|
if(!endp(V2))invalid_macro_call();} |
|
|
if((base[4])==Cnil){ |
|
|
goto T4;} |
|
|
V3= VV[2]; |
|
28 |
goto T2; |
goto T2; |
29 |
T4:; |
T1:; |
30 |
V3= VV[3]; |
V2= VV[1]; |
31 |
T2:; |
T2:; |
32 |
V4= list(2,VV[4],base[2]); |
if(((VV[2]->s.s_dbind))==Cnil){ |
33 |
if(base[4]==Cnil){ |
goto T5;} |
34 |
V5= Cnil; |
base[1]= coerce_to_string((V2)); |
35 |
goto T6;} |
vs_top=(vs_base=base+1)+1; |
36 |
V5= make_cons(base[3],Cnil); |
Lgentemp(); |
|
T6:; |
|
|
base[5]= listA(4,VV[1],V3,/* INLINE-ARGS */V4,V5); |
|
|
vs_top=(vs_base=base+5)+1; |
|
37 |
return; |
return; |
38 |
|
T5:; |
39 |
|
vs_base=vs_top; |
40 |
|
Lgensym(); |
41 |
|
return; |
42 |
|
} |
43 |
} |
} |
44 |
/* macro definition for LOOP-WARN */ |
/* function definition for LOOP-OPTIMIZATION-QUANTITIES */ |
45 |
|
|
46 |
static L3() |
static L3() |
47 |
{register object *base=vs_base; |
{register object *base=vs_base; |
48 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
49 |
vs_reserve(VM3); |
vs_check; |
50 |
check_arg(2); |
{object V3; |
51 |
|
V3=(base[0]); |
52 |
vs_top=sup; |
vs_top=sup; |
53 |
{object V6=base[0]->c.c_cdr; |
TTL:; |
54 |
if(endp(V6))invalid_macro_call(); |
base[1]= small_fixnum(1); |
55 |
base[2]= (V6->c.c_car); |
base[2]= small_fixnum(1); |
56 |
V6=V6->c.c_cdr; |
base[3]= small_fixnum(1); |
57 |
if(endp(V6)){ |
base[4]= small_fixnum(1); |
58 |
base[3]= Cnil; |
base[5]= small_fixnum(1); |
59 |
base[4]= Cnil; |
vs_top=(vs_base=base+1)+5; |
|
} else { |
|
|
base[3]= (V6->c.c_car); |
|
|
base[4]= Ct; |
|
|
V6=V6->c.c_cdr;} |
|
|
if(!endp(V6))invalid_macro_call();} |
|
|
if((base[4])==Cnil){ |
|
|
goto T9;} |
|
|
V7= (VFUN_NARGS=4,(*(LnkLI225))(VV[6],VV[7],base[2],VV[8])); |
|
|
base[5]= list(3,VV[5],/* INLINE-ARGS */V7,base[3]); |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
return; |
|
|
T9:; |
|
|
base[5]= list(2,VV[5],list(2,VV[4],(VFUN_NARGS=3,(*(LnkLI225))(VV[6],VV[9],base[2])))); |
|
|
vs_top=(vs_base=base+5)+1; |
|
60 |
return; |
return; |
61 |
|
} |
62 |
} |
} |
63 |
/* macro definition for LOOP-POP-SOURCE */ |
/* function definition for HIDE-VARIABLE-REFERENCES */ |
64 |
|
|
65 |
static L4() |
static L4() |
66 |
{register object *base=vs_base; |
{register object *base=vs_base; |
67 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
68 |
vs_reserve(VM4); |
vs_check; |
69 |
check_arg(2); |
{object V4; |
70 |
|
object V5; |
71 |
|
V4=(base[0]); |
72 |
|
V5=(base[1]); |
73 |
vs_top=sup; |
vs_top=sup; |
74 |
{object V8=base[0]->c.c_cdr; |
TTL:; |
75 |
if(!endp(V8))invalid_macro_call();} |
base[2]= (V5); |
|
base[2]= VV[10]; |
|
76 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
77 |
return; |
return; |
78 |
|
} |
79 |
} |
} |
80 |
/* macro definition for LOOP-GENTEMP */ |
/* function definition for HIDE-VARIABLE-REFERENCE */ |
81 |
|
|
82 |
static L5() |
static L5() |
83 |
{register object *base=vs_base; |
{register object *base=vs_base; |
84 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
85 |
vs_reserve(VM5); |
vs_check; |
86 |
check_arg(2); |
{object V6; |
87 |
|
object V7; |
88 |
|
object V8; |
89 |
|
V6=(base[0]); |
90 |
|
V7=(base[1]); |
91 |
|
V8=(base[2]); |
92 |
vs_top=sup; |
vs_top=sup; |
93 |
{object V9=base[0]->c.c_cdr; |
TTL:; |
94 |
if(endp(V9)){ |
base[3]= (V8); |
|
base[2]= VV[11]; |
|
|
} else { |
|
|
base[2]= (V9->c.c_car); |
|
|
V9=V9->c.c_cdr;} |
|
|
if(!endp(V9))invalid_macro_call();} |
|
|
base[3]= list(2,VV[12],list(2,VV[4],symbol_name(cadr(base[2])))); |
|
95 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
96 |
return; |
return; |
97 |
|
} |
98 |
} |
} |
99 |
/* function definition for LOOP-MAKE-PSETQ */ |
/* macro definition for WITH-LOOP-LIST-COLLECTION-HEAD */ |
100 |
|
|
101 |
static L6() |
static L6() |
102 |
{register object *base=vs_base; |
{register object *base=vs_base; |
103 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
104 |
vs_reserve(VM6); |
vs_check; |
|
{register object V10; |
|
|
check_arg(1); |
|
|
V10=(base[0]); |
|
105 |
vs_top=sup; |
vs_top=sup; |
106 |
TTL:; |
{object V9=base[0]->c.c_cdr; |
107 |
if((V10)==Cnil){ |
{object V10= (V9->c.c_car); |
108 |
base[1]= Cnil; |
base[2]= (V10->c.c_car); |
109 |
vs_top=(vs_base=base+1)+1; |
V10=V10->c.c_cdr; |
110 |
|
base[3]= (V10->c.c_car); |
111 |
|
V10=V10->c.c_cdr; |
112 |
|
if(endp(V10)){ |
113 |
|
base[4]= Cnil; |
114 |
|
} else { |
115 |
|
base[4]= (V10->c.c_car);}} |
116 |
|
V9=V9->c.c_cdr; |
117 |
|
base[5]= V9;} |
118 |
|
{object V11; |
119 |
|
if(base[4]==Cnil){ |
120 |
|
V11= Cnil; |
121 |
|
goto T14;} |
122 |
|
V12= list(2,base[4],Cnil); |
123 |
|
V11= make_cons(/* INLINE-ARGS */V12,Cnil); |
124 |
|
T14:; |
125 |
|
V13= list(2,base[2],VV[4]); |
126 |
|
base[6]= listA(3,VV[3],listA(3,/* INLINE-ARGS */V13,list(2,base[3],base[2]),(V11)),base[5]); |
127 |
|
vs_top=(vs_base=base+6)+1; |
128 |
return;} |
return;} |
|
V11= car((V10)); |
|
|
if((cddr((V10)))!=Cnil){ |
|
|
goto T15;} |
|
|
V12= cadr((V10)); |
|
|
goto T13; |
|
|
T15:; |
|
|
V13= cadr((V10)); |
|
|
base[2]= cddr((V10)); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk226)(); |
|
|
vs_top=sup; |
|
|
V14= vs_base[0]; |
|
|
V12= list(3,VV[13],/* INLINE-ARGS */V13,V14); |
|
|
T13:; |
|
|
base[1]= list(2,/* INLINE-ARGS */V11,V12); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk227)(); |
|
|
return; |
|
|
} |
|
129 |
} |
} |
130 |
/* function definition for LOOP-MAKE-DESETQ */ |
/* macro definition for LOOP-COLLECT-RPLACD */ |
131 |
|
|
132 |
static L7() |
static L7() |
133 |
{register object *base=vs_base; |
{register object *base=vs_base; |
134 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
135 |
vs_reserve(VM7); |
vs_check; |
|
{object V15; |
|
|
check_arg(1); |
|
|
V15=(base[0]); |
|
136 |
vs_top=sup; |
vs_top=sup; |
137 |
TTL:; |
{object V14=base[0]->c.c_cdr; |
138 |
if((symbol_value(VV[14]))==Cnil){ |
{object V15= (V14->c.c_car); |
139 |
goto T20;} |
base[2]= (V15->c.c_car); |
140 |
|
V15=V15->c.c_cdr; |
141 |
|
base[3]= (V15->c.c_car); |
142 |
|
V15=V15->c.c_cdr; |
143 |
|
if(endp(V15)){ |
144 |
|
base[4]= Cnil; |
145 |
|
} else { |
146 |
|
base[4]= (V15->c.c_car);}} |
147 |
|
V14=V14->c.c_cdr; |
148 |
|
base[5]= (V14->c.c_car);} |
149 |
|
base[6]= base[5]; |
150 |
|
base[7]= base[1]; |
151 |
|
vs_top=(vs_base=base+6)+2; |
152 |
|
Lmacroexpand(); |
153 |
|
vs_top=sup; |
154 |
|
base[5]= vs_base[0]; |
155 |
{register object V17; |
{register object V17; |
156 |
V17= (V15); |
V17= Cnil; |
157 |
|
if(!(type_of(base[5])==t_cons)){ |
158 |
|
goto T20;} |
159 |
|
if(!((CMPcar(base[5]))==(VV[5]))){ |
160 |
|
goto T24;} |
161 |
|
V18 = CMPmake_fixnum(length(CMPcdr(base[5]))); |
162 |
|
V17= one_minus(V18); |
163 |
|
goto T20; |
164 |
T24:; |
T24:; |
165 |
if(((V17))!=Cnil){ |
{register object x= CMPcar(base[5]),V19= VV[6]; |
166 |
goto T25;} |
while(V19!=Cnil) |
167 |
V16= VV[15]; |
if(eql(x,V19->c.c_car)){ |
168 |
goto T22; |
goto T28; |
169 |
T25:;{object V18; |
}else V19=V19->c.c_cdr; |
170 |
if((((car((V17)))==Cnil?Ct:Cnil))==Cnil){ |
goto T20;} |
171 |
goto T32;} |
T28:; |
172 |
V18= Cnil; |
if((CMPcddr(base[5]))==Cnil){ |
173 |
goto T31; |
goto T20;} |
174 |
|
base[6]= base[5]; |
175 |
|
vs_top=(vs_base=base+6)+1; |
176 |
|
Llast(); |
177 |
|
vs_top=sup; |
178 |
|
V21= vs_base[0]; |
179 |
|
{register object x= CMPcar(V21),V20= VV[7]; |
180 |
|
while(V20!=Cnil) |
181 |
|
if(eql(x,V20->c.c_car)){ |
182 |
|
goto T32; |
183 |
|
}else V20=V20->c.c_cdr; |
184 |
|
goto T20;} |
185 |
T32:; |
T32:; |
186 |
V18= (type_of(car((V17)))==t_symbol?Ct:Cnil); |
V22 = CMPmake_fixnum(length(CMPcdr(base[5]))); |
187 |
T31:; |
V17= number_minus(V22,small_fixnum(2)); |
|
if(V18==Cnil)goto T30; |
|
|
goto T29; |
|
|
T30:;} |
|
|
V16= VV[16]; |
|
|
goto T22; |
|
|
T29:; |
|
|
V17= cddr((V17)); |
|
|
goto T24;} |
|
|
T22:; |
|
|
base[1]= make_cons(V16,(V15)); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
return; |
|
188 |
T20:; |
T20:; |
189 |
{register object V19; |
{object V23; |
190 |
register object V20; |
if(((V17))!=Cnil){ |
191 |
register object V21; |
goto T38;} |
192 |
register object V22; |
V24= list(3,VV[9],list(2,VV[10],base[3]),base[5]); |
193 |
V19= (V15); |
V23= list(3,VV[8],/* INLINE-ARGS */V24,list(3,VV[11],base[3],list(2,VV[12],list(2,VV[10],base[3])))); |
194 |
V20= Cnil; |
goto T36; |
|
V21= Cnil; |
|
|
V22= Cnil; |
|
195 |
T38:; |
T38:; |
196 |
if(((V19))!=Cnil){ |
if(!(number_compare((V17),small_fixnum(0))<0)){ |
197 |
goto T39;} |
goto T41;} |
198 |
if((V20)==Cnil){ |
base[6]= Cnil; |
199 |
base[1]= Cnil; |
vs_top=(vs_base=base+6)+1; |
|
vs_top=(vs_base=base+1)+1; |
|
|
return;} |
|
|
base[1]= make_cons(VV[15],(V20)); |
|
|
vs_top=(vs_base=base+1)+1; |
|
200 |
return; |
return; |
201 |
T39:; |
T41:; |
202 |
V21= car((V19)); |
if(!(number_compare((V17),small_fixnum(0))==0)){ |
203 |
V22= cadr((V19)); |
goto T44;} |
204 |
if(type_of((V21))!=t_cons){ |
V23= list(3,VV[13],base[3],list(3,VV[11],base[3],base[5])); |
205 |
goto T47;} |
goto T36; |
206 |
if(type_of((V22))!=t_cons){ |
T44:; |
207 |
goto T47;} |
base[6]= list(3,VV[9],list(2,VV[10],base[3]),base[5]); |
208 |
{register object x= car((V22)),V23= VV[17]; |
base[7]= (V17); |
209 |
while(!endp(V23)) |
vs_top=(vs_base=base+6)+2; |
210 |
if(eql(x,V23->c.c_car)){ |
L8(base); |
211 |
goto T54; |
vs_top=sup; |
212 |
}else V23=V23->c.c_cdr; |
V25= vs_base[0]; |
213 |
goto T48;} |
V23= list(3,VV[11],base[3],V25); |
214 |
T54:; |
T36:; |
215 |
if(type_of(cadr((V22)))!=t_cons){ |
if((base[4])==Cnil){ |
216 |
goto T47;} |
goto T49;} |
217 |
T48:; |
V23= list(3,VV[14],(V23),list(3,VV[11],base[4],list(2,VV[10],base[2]))); |
218 |
if(symbol_value(VV[18])!=Cnil){ |
T49:; |
219 |
V24= symbol_value(VV[18]); |
base[6]= (V23); |
220 |
goto T57;} |
vs_top=(vs_base=base+6)+1; |
221 |
base[1]= VV[19]; |
return;}} |
|
vs_top=(vs_base=base+1)+1; |
|
|
Lgentemp(); |
|
|
vs_top=sup; |
|
|
setq(VV[18],vs_base[0]); |
|
|
V24= symbol_value(VV[18]); |
|
|
T57:;{object V25; |
|
|
V25= symbol_value(VV[18]); |
|
|
V19= listA(5,V24,(V22),(V21),V25,cddr((V19)));} |
|
|
T47:; |
|
|
base[1]= car((V19)); |
|
|
base[2]= cadr((V19)); |
|
|
vs_top=(vs_base=base+1)+2; |
|
|
(void) (*Lnk228)(); |
|
|
vs_top=sup; |
|
|
V26= vs_base[0]; |
|
|
V20= nconc((V20),V26); |
|
|
V19= cddr((V19)); |
|
|
goto T38;} |
|
|
} |
|
222 |
} |
} |
223 |
/* function definition for LOOP-DESETQ-INTERNAL */ |
/* macro definition for LOOP-COLLECT-ANSWER */ |
224 |
|
|
225 |
static L8() |
static L9() |
226 |
{register object *base=vs_base; |
{register object *base=vs_base; |
227 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
228 |
vs_reserve(VM8); |
vs_check; |
229 |
{register object V27; |
vs_top=sup; |
230 |
|
{object V26=base[0]->c.c_cdr; |
231 |
|
base[2]= (V26->c.c_car); |
232 |
|
V26=V26->c.c_cdr; |
233 |
|
if(endp(V26)){ |
234 |
|
base[3]= Cnil; |
235 |
|
} else { |
236 |
|
base[3]= (V26->c.c_car);}} |
237 |
|
if(base[3]!=Cnil){ |
238 |
|
vs_top=(vs_base=base+3)+1; |
239 |
|
return;} |
240 |
|
base[4]= list(2,VV[10],base[2]); |
241 |
|
vs_top=(vs_base=base+4)+1; |
242 |
|
return; |
243 |
|
} |
244 |
|
/* function definition for MAKE-LOOP-MINIMAX-INTERNAL */ |
245 |
|
|
246 |
|
static L10() |
247 |
|
{register object *base=vs_base; |
248 |
|
register object *sup=base+VM9; VC9 |
249 |
|
vs_check; |
250 |
|
{object V27; |
251 |
object V28; |
object V28; |
252 |
check_arg(2); |
object V29; |
253 |
|
object V30; |
254 |
|
object V31; |
255 |
|
object V32; |
256 |
|
parse_key(vs_base,FALSE,FALSE,6,VV[21],VV[22],VV[23],VV[25],VV[27],VV[28]); |
257 |
|
vs_top=sup; |
258 |
V27=(base[0]); |
V27=(base[0]); |
259 |
V28=(base[1]); |
V28=(base[1]); |
260 |
|
V29=(base[2]); |
261 |
|
V30=(base[3]); |
262 |
|
V31=(base[4]); |
263 |
|
V32=(base[5]); |
264 |
|
base[12]= VV[18]; |
265 |
|
base[13]= (V27); |
266 |
|
base[14]= (V28); |
267 |
|
base[15]= (V29); |
268 |
|
base[16]= (V30); |
269 |
|
base[17]= (V31); |
270 |
|
base[18]= (V32); |
271 |
|
vs_top=(vs_base=base+12)+7; |
272 |
|
siLmake_structure(); |
273 |
|
return; |
274 |
|
} |
275 |
|
} |
276 |
|
/* function definition for MAKE-LOOP-MINIMAX */ |
277 |
|
|
278 |
|
static L11() |
279 |
|
{register object *base=vs_base; |
280 |
|
register object *sup=base+VM10; VC10 |
281 |
|
vs_check; |
282 |
|
{object V33; |
283 |
|
object V34; |
284 |
|
V33=(base[0]); |
285 |
|
V34=(base[1]); |
286 |
vs_top=sup; |
vs_top=sup; |
287 |
TTL:; |
TTL:; |
288 |
if(((V27))!=Cnil){ |
{object V35; |
289 |
goto T69;} |
base[2]= (V34); |
290 |
base[2]= Cnil; |
base[3]= (VV[19]->s.s_dbind); |
291 |
vs_top=(vs_base=base+2)+1; |
base[4]= VV[20]; |
292 |
return; |
base[5]= (VV[323]->s.s_gfdef); |
293 |
T69:; |
vs_top=(vs_base=base+2)+4; |
294 |
if(!(type_of((V27))!=t_cons)){ |
Lassoc(); |
|
goto T72;} |
|
|
base[2]= list(2,(V27),(V28)); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
return; |
|
|
T72:; |
|
|
base[2]= car((V27)); |
|
|
base[3]= list(2,VV[20],(V28)); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk228)(); |
|
295 |
vs_top=sup; |
vs_top=sup; |
296 |
V29= vs_base[0]; |
V36= vs_base[0]; |
297 |
base[2]= cdr((V27)); |
V35= CMPcdr(V36); |
298 |
base[3]= list(2,VV[21],(V28)); |
base[2]= VV[21]; |
299 |
vs_top=(vs_base=base+2)+2; |
base[3]= (V33); |
300 |
(void) (*Lnk228)(); |
base[4]= VV[22]; |
301 |
|
base[5]= (V34); |
302 |
|
base[6]= VV[23]; |
303 |
|
base[8]= VV[24]; |
304 |
|
vs_top=(vs_base=base+8)+1; |
305 |
|
(void) (*Lnk324)(); |
306 |
|
vs_top=sup; |
307 |
|
base[7]= vs_base[0]; |
308 |
|
base[8]= VV[25]; |
309 |
|
if(((V35))==Cnil){ |
310 |
|
goto T76;} |
311 |
|
base[9]= Cnil; |
312 |
|
goto T75; |
313 |
|
T76:; |
314 |
|
base[10]= VV[26]; |
315 |
|
vs_top=(vs_base=base+10)+1; |
316 |
|
(void) (*Lnk324)(); |
317 |
vs_top=sup; |
vs_top=sup; |
318 |
V30= vs_base[0]; |
base[9]= vs_base[0]; |
319 |
base[2]= nconc(V29,V30); |
T75:; |
320 |
vs_top=(vs_base=base+2)+1; |
base[10]= VV[27]; |
321 |
return; |
base[11]= Cnil; |
322 |
|
base[12]= VV[28]; |
323 |
|
base[13]= (V35); |
324 |
|
vs_top=(vs_base=base+2)+12; |
325 |
|
(void) (*Lnk325)(); |
326 |
|
return;} |
327 |
} |
} |
328 |
} |
} |
329 |
/* function definition for LOOP-MAKE-SETQ */ |
/* function definition for LOOP-NOTE-MINIMAX-OPERATION */ |
330 |
|
|
331 |
static L9() |
static L12() |
332 |
{register object *base=vs_base; |
{register object *base=vs_base; |
333 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM11; VC11 |
334 |
vs_reserve(VM9); |
vs_check; |
335 |
{object V31; |
{object V37; |
336 |
check_arg(1); |
register object V38; |
337 |
V31=(base[0]); |
V37=(base[0]); |
338 |
|
V38=(base[1]); |
339 |
vs_top=sup; |
vs_top=sup; |
340 |
TTL:; |
TTL:; |
341 |
if((V31)==Cnil){ |
{object V40; |
342 |
base[1]= Cnil; |
base[3]= (V37); |
343 |
vs_top=(vs_base=base+1)+1; |
base[4]= STREF(object,V38,16); |
344 |
return;} |
vs_top=(vs_base=base+3)+2; |
345 |
base[1]= (V31); |
Ladjoin(); |
346 |
vs_top=(vs_base=base+1)+1; |
vs_top=sup; |
347 |
(void) (*Lnk229)(); |
V40= vs_base[0]; |
348 |
|
V41= Ct; |
349 |
|
STSET(object,V38,16, (V40)); |
350 |
|
(void)((V40));} |
351 |
|
if((CMPcdr(STREF(object,(V38),16)))==Cnil){ |
352 |
|
goto T87;} |
353 |
|
if((STREF(object,(V38),12))!=Cnil){ |
354 |
|
goto T87;} |
355 |
|
base[2]= VV[26]; |
356 |
|
vs_top=(vs_base=base+2)+1; |
357 |
|
(void) (*Lnk324)(); |
358 |
|
vs_top=sup; |
359 |
|
V42= vs_base[0]; |
360 |
|
V43= Ct; |
361 |
|
STSET(object,(V38),12, V42); |
362 |
|
(void)(V42); |
363 |
|
T87:; |
364 |
|
base[2]= (V37); |
365 |
|
vs_top=(vs_base=base+2)+1; |
366 |
return; |
return; |
367 |
} |
} |
368 |
} |
} |
369 |
/* function definition for LOOP-CONSTRUCT-RETURN */ |
/* macro definition for WITH-MINIMAX-VALUE */ |
370 |
|
|
371 |
static L10() |
static L13() |
372 |
{register object *base=vs_base; |
{register object *base=vs_base; |
373 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM12; VC12 |
374 |
vs_reserve(VM10); |
vs_check; |
|
{object V32; |
|
|
check_arg(1); |
|
|
V32=(base[0]); |
|
375 |
vs_top=sup; |
vs_top=sup; |
376 |
TTL:; |
{object V44=base[0]->c.c_cdr; |
377 |
if((symbol_value(VV[22]))==Cnil){ |
base[2]= (V44->c.c_car); |
378 |
goto T82;} |
V44=V44->c.c_cdr; |
379 |
base[1]= list(3,VV[23],car(symbol_value(VV[22])),(V32)); |
base[3]= V44;} |
380 |
vs_top=(vs_base=base+1)+1; |
{object V45; |
381 |
return; |
object V46; |
382 |
T82:; |
object V47; |
383 |
base[1]= list(2,VV[24],(V32)); |
register object V48; |
384 |
vs_top=(vs_base=base+1)+1; |
register object V49; |
385 |
|
object V50; |
386 |
|
object V51; |
387 |
|
base[4]= STREF(object,base[2],4); |
388 |
|
vs_top=(vs_base=base+4)+1; |
389 |
|
(void) (*Lnk326)(); |
390 |
|
vs_top=sup; |
391 |
|
V45= vs_base[0]; |
392 |
|
V46= CMPcar(STREF(object,base[2],16)); |
393 |
|
V47= STREF(object,base[2],20); |
394 |
|
V48= STREF(object,base[2],0); |
395 |
|
V49= STREF(object,base[2],8); |
396 |
|
V50= STREF(object,base[2],12); |
397 |
|
V51= STREF(object,base[2],4); |
398 |
|
if(((V50))==Cnil){ |
399 |
|
goto T103;} |
400 |
|
V52= list(2,(V48),(V45)); |
401 |
|
V53= list(2,(V49),(V45)); |
402 |
|
V54= list(3,/* INLINE-ARGS */V52,/* INLINE-ARGS */V53,list(2,(V50),Cnil)); |
403 |
|
base[4]= listA(4,VV[29],/* INLINE-ARGS */V54,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]); |
404 |
|
vs_top=(vs_base=base+4)+1; |
405 |
return; |
return; |
406 |
} |
T103:; |
407 |
|
if(!(((V46))==(VV[32]))){ |
408 |
|
goto T107;} |
409 |
|
V55= CMPcar((V47)); |
410 |
|
goto T105; |
411 |
|
T107:; |
412 |
|
V55= CMPcadr((V47)); |
413 |
|
T105:; |
414 |
|
V56= list(2,(V48),V55); |
415 |
|
V57= list(2,/* INLINE-ARGS */V56,list(2,(V49),(V45))); |
416 |
|
base[4]= listA(4,VV[29],/* INLINE-ARGS */V57,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]); |
417 |
|
vs_top=(vs_base=base+4)+1; |
418 |
|
return;} |
419 |
|
} |
420 |
|
/* macro definition for LOOP-ACCUMULATE-MINIMAX-VALUE */ |
421 |
|
|
422 |
|
static L14() |
423 |
|
{register object *base=vs_base; |
424 |
|
register object *sup=base+VM13; VC13 |
425 |
|
vs_check; |
426 |
|
vs_top=sup; |
427 |
|
{object V58=base[0]->c.c_cdr; |
428 |
|
base[2]= (V58->c.c_car); |
429 |
|
V58=V58->c.c_cdr; |
430 |
|
base[3]= (V58->c.c_car); |
431 |
|
V58=V58->c.c_cdr; |
432 |
|
base[4]= (V58->c.c_car);} |
433 |
|
{object V59; |
434 |
|
object V60; |
435 |
|
register object V61; |
436 |
|
object V62; |
437 |
|
V59= STREF(object,base[2],0); |
438 |
|
V60= STREF(object,base[2],8); |
439 |
|
V61= STREF(object,base[2],12); |
440 |
|
base[9]= Ct; |
441 |
|
base[10]= STREF(object,base[2],0); |
442 |
|
{object V64= base[3]; |
443 |
|
if((V64!= VV[32]))goto T117; |
444 |
|
V63= VV[33]; |
445 |
|
goto T116; |
446 |
|
T117:; |
447 |
|
if((V64!= VV[327]))goto T118; |
448 |
|
V63= VV[34]; |
449 |
|
goto T116; |
450 |
|
T118:; |
451 |
|
FEerror("The ECASE key value ~s is illegal.",1,V64);} |
452 |
|
T116:; |
453 |
|
base[11]= list(3,V63,(V60),(V59)); |
454 |
|
vs_top=(vs_base=base+9)+3; |
455 |
|
(void) (*Lnk328)(); |
456 |
|
vs_top=sup; |
457 |
|
V62= vs_base[0]; |
458 |
|
V65= list(3,VV[11],(V60),base[4]); |
459 |
|
if(((V61))==Cnil){ |
460 |
|
goto T121;} |
461 |
|
V66= list(3,VV[35],list(2,VV[36],(V61)),(V62)); |
462 |
|
goto T119; |
463 |
|
T121:; |
464 |
|
V66= (V62); |
465 |
|
T119:; |
466 |
|
if((V61)==Cnil){ |
467 |
|
V67= Cnil; |
468 |
|
goto T123;} |
469 |
|
V67= list(2,(V61),Ct); |
470 |
|
T123:; |
471 |
|
V68= list(2,(V59),(V60)); |
472 |
|
V69= append(V67,/* INLINE-ARGS */V68); |
473 |
|
base[9]= list(3,VV[14],/* INLINE-ARGS */V65,list(3,VV[8],V66,make_cons(VV[11],/* INLINE-ARGS */V69))); |
474 |
|
vs_top=(vs_base=base+9)+1; |
475 |
|
return;} |
476 |
} |
} |
477 |
/* function definition for LOOP-TEQUAL */ |
/* function definition for LOOP-TEQUAL */ |
478 |
|
|
479 |
static L11() |
static L15() |
480 |
{register object *base=vs_base; |
{register object *base=vs_base; |
481 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM14; VC14 |
482 |
vs_reserve(VM11); |
vs_check; |
483 |
{object V33; |
{object V70; |
484 |
object V34; |
object V71; |
485 |
check_arg(2); |
V70=(base[0]); |
486 |
V33=(base[0]); |
V71=(base[1]); |
|
V34=(base[1]); |
|
487 |
vs_top=sup; |
vs_top=sup; |
488 |
TTL:; |
TTL:; |
489 |
if(type_of((V33))==t_symbol){ |
if(type_of((V70))==t_symbol){ |
490 |
goto T84;} |
goto T124;} |
491 |
base[2]= Cnil; |
base[2]= Cnil; |
492 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
493 |
return; |
return; |
494 |
T84:; |
T124:; |
495 |
base[2]= (V33); |
base[2]= (V70); |
496 |
base[3]= (V34); |
base[3]= (V71); |
497 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
498 |
Lstring_eq(); |
Lstring_eq(); |
499 |
return; |
return; |
501 |
} |
} |
502 |
/* function definition for LOOP-TASSOC */ |
/* function definition for LOOP-TASSOC */ |
503 |
|
|
504 |
static L12() |
static L16() |
505 |
{register object *base=vs_base; |
{register object *base=vs_base; |
506 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM15; VC15 |
507 |
vs_reserve(VM12); |
vs_check; |
508 |
{object V35; |
{object V72; |
509 |
object V36; |
object V73; |
510 |
check_arg(2); |
V72=(base[0]); |
511 |
V35=(base[0]); |
V73=(base[1]); |
|
V36=(base[1]); |
|
512 |
vs_top=sup; |
vs_top=sup; |
513 |
TTL:; |
TTL:; |
514 |
if(type_of((V35))==t_symbol){ |
if(type_of((V72))==t_symbol){ |
515 |
goto T88;} |
goto T128;} |
516 |
base[2]= Cnil; |
base[2]= Cnil; |
517 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
518 |
return; |
return; |
519 |
T88:; |
T128:; |
520 |
base[2]= (V35); |
base[2]= (V72); |
521 |
base[3]= (V36); |
base[3]= (V73); |
522 |
base[4]= VV[25]; |
base[4]= VV[20]; |
523 |
base[5]= symbol_function(VV[230]); |
base[5]= (VV[329]->s.s_gfdef); |
524 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
525 |
Lassoc(); |
Lassoc(); |
526 |
return; |
return; |
528 |
} |
} |
529 |
/* function definition for LOOP-TMEMBER */ |
/* function definition for LOOP-TMEMBER */ |
530 |
|
|
531 |
static L13() |
static L17() |
532 |
{register object *base=vs_base; |
{register object *base=vs_base; |
533 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM16; VC16 |
534 |
vs_reserve(VM13); |
vs_check; |
535 |
{object V37; |
{object V74; |
536 |
object V38; |
object V75; |
537 |
check_arg(2); |
V74=(base[0]); |
538 |
V37=(base[0]); |
V75=(base[1]); |
|
V38=(base[1]); |
|
539 |
vs_top=sup; |
vs_top=sup; |
540 |
TTL:; |
TTL:; |
541 |
if(type_of((V37))==t_symbol){ |
if(type_of((V74))==t_symbol){ |
542 |
goto T94;} |
goto T134;} |
543 |
base[2]= Cnil; |
base[2]= Cnil; |
544 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
545 |
return; |
return; |
546 |
T94:; |
T134:; |
547 |
base[2]= (V37); |
base[2]= (V74); |
548 |
base[3]= (V38); |
base[3]= (V75); |
549 |
base[4]= VV[25]; |
base[4]= VV[20]; |
550 |
base[5]= symbol_function(VV[230]); |
base[5]= (VV[329]->s.s_gfdef); |
551 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
552 |
Lmember(); |
Lmember(); |
553 |
return; |
return; |
554 |
} |
} |
555 |
} |
} |
556 |
/* macro definition for DEFINE-LOOP-MACRO */ |
/* function definition for LOOP-LOOKUP-KEYWORD */ |
557 |
|
|
558 |
static L14() |
static L18() |
559 |
{register object *base=vs_base; |
{register object *base=vs_base; |
560 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM17; VC17 |
561 |
vs_reserve(VM14); |
vs_check; |
562 |
check_arg(2); |
{object V76; |
563 |
vs_top=sup; |
object V77; |
564 |
{object V39=base[0]->c.c_cdr; |
V76=(base[0]); |
565 |
if(endp(V39))invalid_macro_call(); |
V77=(base[1]); |
|
base[2]= (V39->c.c_car); |
|
|
V39=V39->c.c_cdr; |
|
|
if(!endp(V39))invalid_macro_call();} |
|
|
if(!((base[2])==(VV[26]))){ |
|
|
goto T101;} |
|
|
goto T100; |
|
|
T101:;{object V40; |
|
|
base[3]= base[2]; |
|
|
base[4]= VV[27]; |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk231)(); |
|
566 |
vs_top=sup; |
vs_top=sup; |
567 |
V40= vs_base[0]; |
TTL:; |
568 |
if(V40==Cnil)goto T103; |
if(type_of((V76))==t_symbol){ |
569 |
goto T100; |
goto T140;} |
570 |
T103:;}{object V41; |
base[2]= Cnil; |
571 |
base[3]= base[2]; |
vs_top=(vs_base=base+2)+1; |
572 |
base[4]= VV[28]; |
return; |
573 |
|
T140:; |
574 |
|
base[3]= symbol_name((V76)); |
575 |
|
base[4]= (V77); |
576 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
577 |
(void) (*Lnk231)(); |
Lgethash(); |
|
vs_top=sup; |
|
|
V41= vs_base[0]; |
|
|
if(V41==Cnil)goto T107; |
|
|
goto T100; |
|
|
T107:;} |
|
|
base[3]= VV[2]; |
|
|
base[4]= VV[29]; |
|
|
base[5]= base[2]; |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
Lerror(); |
|
578 |
vs_top=sup; |
vs_top=sup; |
579 |
T100:; |
base[2]= vs_base[0]; |
580 |
base[3]= listA(3,VV[30],base[2],VV[31]); |
vs_top=(vs_base=base+2)+1; |
|
vs_top=(vs_base=base+3)+1; |
|
581 |
return; |
return; |
582 |
|
} |
583 |
} |
} |
584 |
/* macro definition for LOOP */ |
/* macro definition for LOOP-STORE-TABLE-DATA */ |
585 |
|
|
586 |
static L15() |
static L19() |
587 |
{register object *base=vs_base; |
{register object *base=vs_base; |
588 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM18; VC18 |
589 |
vs_reserve(VM15); |
vs_check; |
|
check_arg(2); |
|
590 |
vs_top=sup; |
vs_top=sup; |
591 |
{object V42=base[0]->c.c_cdr; |
{object V78=base[0]->c.c_cdr; |
592 |
base[2]= V42;} |
base[2]= (V78->c.c_car); |
593 |
base[3]= base[0]; |
V78=V78->c.c_cdr; |
594 |
base[4]= base[1]; |
base[3]= (V78->c.c_car); |
595 |
vs_top=(vs_base=base+3)+2; |
V78=V78->c.c_cdr; |
596 |
(void) (*Lnk232)(); |
base[4]= (V78->c.c_car);} |
597 |
|
base[5]= list(3,VV[9],list(3,VV[37],list(2,VV[38],base[2]),base[3]),base[4]); |
598 |
|
vs_top=(vs_base=base+5)+1; |
599 |
return; |
return; |
600 |
} |
} |
601 |
/* macro definition for LOOP-FINISH */ |
/* function definition for MAKE-LOOP-UNIVERSE */ |
602 |
|
|
603 |
static L16() |
static L20() |
604 |
{register object *base=vs_base; |
{register object *base=vs_base; |
605 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM19; VC19 |
606 |
vs_reserve(VM16); |
vs_check; |
607 |
check_arg(2); |
{object V79; |
608 |
vs_top=sup; |
object V80; |
609 |
{object V43=base[0]->c.c_cdr; |
object V81; |
610 |
if(!endp(V43))invalid_macro_call();} |
object V82; |
611 |
base[2]= VV[32]; |
object V83; |
612 |
vs_top=(vs_base=base+2)+1; |
object V84; |
613 |
|
object V85; |
614 |
|
object V86; |
615 |
|
parse_key(vs_base,FALSE,FALSE,8,VV[53],VV[55],VV[54],VV[56],VV[60],VV[59],VV[57],VV[58]); |
616 |
|
vs_top=sup; |
617 |
|
V79=(base[0]); |
618 |
|
V80=(base[1]); |
619 |
|
V81=(base[2]); |
620 |
|
V82=(base[3]); |
621 |
|
V83=(base[4]); |
622 |
|
V84=(base[5]); |
623 |
|
V85=(base[6]); |
624 |
|
V86=(base[7]); |
625 |
|
base[16]= VV[39]; |
626 |
|
base[17]= (V79); |
627 |
|
base[18]= (V80); |
628 |
|
base[19]= (V81); |
629 |
|
base[20]= (V82); |
630 |
|
base[21]= (V83); |
631 |
|
base[22]= (V84); |
632 |
|
base[23]= (V85); |
633 |
|
base[24]= (V86); |
634 |
|
vs_top=(vs_base=base+16)+9; |
635 |
|
siLmake_structure(); |
636 |
return; |
return; |
637 |
|
} |
638 |
} |
} |
639 |
/* function definition for LOOP-TRANSLATE */ |
/* function definition for PRINT-LOOP-UNIVERSE */ |
640 |
|
|
641 |
static L17() |
static L21() |
642 |
{register object *base=vs_base; |
{register object *base=vs_base; |
643 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM20; VC20 |
644 |
vs_reserve(VM17); |
vs_check; |
645 |
bds_check; |
{object V87; |
646 |
{object V44; |
object V88; |
647 |
check_arg(2); |
object V89; |
648 |
V44=(base[0]); |
V87=(base[0]); |
649 |
bds_bind(VV[33],base[1]); |
V88=(base[1]); |
650 |
|
V89=(base[2]); |
651 |
vs_top=sup; |
vs_top=sup; |
652 |
TTL:; |
TTL:; |
653 |
base[2]= (V44); |
{object V90; |
654 |
vs_top=(vs_base=base+2)+1; |
{object V91= STREF(object,(V87),24); |
655 |
(void) (*Lnk233)(); |
if((V91!= Cnil))goto T155; |
656 |
|
V90= VV[40]; |
657 |
|
goto T154; |
658 |
|
T155:; |
659 |
|
if((V91!= Ct))goto T156; |
660 |
|
V90= VV[41]; |
661 |
|
goto T154; |
662 |
|
T156:; |
663 |
|
if((V91!= VV[304]))goto T157; |
664 |
|
V90= VV[42]; |
665 |
|
goto T154; |
666 |
|
T157:; |
667 |
|
V90= STREF(object,(V87),24);} |
668 |
|
T154:; |
669 |
|
base[3]= (V88); |
670 |
|
base[4]= VV[43]; |
671 |
|
base[6]= (V87); |
672 |
|
vs_top=(vs_base=base+6)+1; |
673 |
|
Ltype_of(); |
674 |
|
vs_top=sup; |
675 |
|
base[5]= vs_base[0]; |
676 |
|
base[6]= (V90); |
677 |
|
vs_top=(vs_base=base+3)+4; |
678 |
|
Lformat(); |
679 |
|
return;} |
680 |
|
} |
681 |
|
} |
682 |
|
/* function definition for MAKE-STANDARD-LOOP-UNIVERSE */ |
683 |
|
|
684 |
|
static L22() |
685 |
|
{register object *base=vs_base; |
686 |
|
register object *sup=base+VM21; VC21 |
687 |
|
vs_check; |
688 |
|
bds_check; |
689 |
|
{object V92; |
690 |
|
object V93; |
691 |
|
object V94; |
692 |
|
object V95; |
693 |
|
object V96; |
694 |
|
object V97; |
695 |
|
register object V98; |
696 |
|
parse_key(vs_base,FALSE,FALSE,7,VV[53],VV[54],VV[55],VV[56],VV[59],VV[60],VV[57]); |
697 |
|
vs_top=sup; |
698 |
|
V92=(base[0]); |
699 |
|
V93=(base[1]); |
700 |
|
V94=(base[2]); |
701 |
|
V95=(base[3]); |
702 |
|
V96=(base[4]); |
703 |
|
V97=(base[5]); |
704 |
|
V98=(base[6]); |
705 |
|
bds_bind(VV[44],small_fixnum(4)); |
706 |
|
bds_bind(VV[45],small_fixnum(4)); |
707 |
|
T165:; |
708 |
|
base[16]= (V98); |
709 |
|
base[17]= VV[46]; |
710 |
|
vs_top=(vs_base=base+16)+2; |
711 |
|
(void) (*Lnk330)(); |
712 |
|
vs_top=sup; |
713 |
|
if((vs_base[0])==Cnil){ |
714 |
|
goto T166;} |
715 |
|
bds_unwind1; |
716 |
bds_unwind1; |
bds_unwind1; |
717 |
|
goto T163; |
718 |
|
T166:; |
719 |
|
base[16]= VV[47]; |
720 |
|
base[17]= VV[48]; |
721 |
|
base[18]= VV[49]; |
722 |
|
base[19]= (V98); |
723 |
|
base[20]= VV[46]; |
724 |
|
vs_top=(vs_base=base+16)+5; |
725 |
|
Lcerror(); |
726 |
|
vs_top=sup; |
727 |
|
base[16]= (VV[50]->s.s_dbind); |
728 |
|
base[17]= VV[51]; |
729 |
|
base[18]= VV[49]; |
730 |
|
vs_top=(vs_base=base+16)+3; |
731 |
|
Lformat(); |
732 |
|
vs_top=sup; |
733 |
|
base[16]= (VV[50]->s.s_dbind); |
734 |
|
vs_top=(vs_base=base+16)+1; |
735 |
|
Lfinish_output(); |
736 |
|
vs_top=sup; |
737 |
|
vs_base=vs_top; |
738 |
|
Lread(); |
739 |
|
vs_top=sup; |
740 |
|
V98= vs_base[0]; |
741 |
|
base[16]= (VV[50]->s.s_dbind); |
742 |
|
base[17]= VV[52]; |
743 |
|
vs_top=(vs_base=base+16)+2; |
744 |
|
Lformat(); |
745 |
|
vs_top=sup; |
746 |
|
goto T165; |
747 |
|
T163:; |
748 |
|
base[14]= VV[53]; |
749 |
|
base[16]= (V92); |
750 |
|
vs_top=(vs_base=base+16)+1; |
751 |
|
L23(base); |
752 |
|
vs_top=sup; |
753 |
|
base[15]= vs_base[0]; |
754 |
|
base[16]= VV[54]; |
755 |
|
base[18]= (V93); |
756 |
|
vs_top=(vs_base=base+18)+1; |
757 |
|
L23(base); |
758 |
|
vs_top=sup; |
759 |
|
base[17]= vs_base[0]; |
760 |
|
base[18]= VV[55]; |
761 |
|
base[20]= (V94); |
762 |
|
vs_top=(vs_base=base+20)+1; |
763 |
|
L23(base); |
764 |
|
vs_top=sup; |
765 |
|
base[19]= vs_base[0]; |
766 |
|
base[20]= VV[56]; |
767 |
|
base[22]= (V95); |
768 |
|
vs_top=(vs_base=base+22)+1; |
769 |
|
L23(base); |
770 |
|
vs_top=sup; |
771 |
|
base[21]= vs_base[0]; |
772 |
|
base[22]= VV[57]; |
773 |
|
base[23]= (V98); |
774 |
|
base[24]= VV[58]; |
775 |
|
base[25]= (((((V98))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
776 |
|
base[26]= VV[59]; |
777 |
|
base[28]= (V96); |
778 |
|
vs_top=(vs_base=base+28)+1; |
779 |
|
L23(base); |
780 |
|
vs_top=sup; |
781 |
|
base[27]= vs_base[0]; |
782 |
|
base[28]= VV[60]; |
783 |
|
{object V99; |
784 |
|
object V100; |
785 |
|
V99= CMPmake_fixnum(length((V97))); |
786 |
|
base[32]= VV[61]; |
787 |
|
if(!(number_compare((V99),small_fixnum(10))<0)){ |
788 |
|
goto T217;} |
789 |
|
base[33]= small_fixnum(10); |
790 |
|
goto T215; |
791 |
|
T217:; |
792 |
|
base[33]= (V99); |
793 |
|
T215:; |
794 |
|
base[34]= VV[20]; |
795 |
|
base[35]= (VV[331]->s.s_gfdef); |
796 |
|
vs_top=(vs_base=base+32)+4; |
797 |
|
Lmake_hash_table(); |
798 |
|
vs_top=sup; |
799 |
|
V100= vs_base[0]; |
800 |
|
{register object V101; |
801 |
|
register object V102; |
802 |
|
V101= (V97); |
803 |
|
V102= CMPcar((V101)); |
804 |
|
T225:; |
805 |
|
if(!(((V101))==Cnil)){ |
806 |
|
goto T226;} |
807 |
|
goto T221; |
808 |
|
T226:; |
809 |
|
if(!(type_of((V102))!=t_cons)){ |
810 |
|
goto T232;} |
811 |
|
base[33]= V102; |
812 |
|
base[34]= V100; |
813 |
|
base[35]= V102; |
814 |
|
vs_top=(vs_base=base+33)+3; |
815 |
|
siLhash_set(); |
816 |
|
vs_top=sup; |
817 |
|
goto T230; |
818 |
|
T232:; |
819 |
|
{object V106; |
820 |
|
object V108; |
821 |
|
V106= CMPcar((V102)); |
822 |
|
V108= CMPcadr((V102)); |
823 |
|
base[35]= (V106); |
824 |
|
base[36]= V100; |
825 |
|
base[37]= (V108); |
826 |
|
vs_top=(vs_base=base+35)+3; |
827 |
|
siLhash_set(); |
828 |
|
vs_top=sup;} |
829 |
|
T230:; |
830 |
|
V101= CMPcdr((V101)); |
831 |
|
V102= CMPcar((V101)); |
832 |
|
goto T225;} |
833 |
|
T221:; |
834 |
|
base[29]= (V100);} |
835 |
|
vs_top=(vs_base=base+14)+16; |
836 |
|
(void) (*Lnk332)(); |
837 |
return; |
return; |
838 |
} |
} |
839 |
} |
} |
840 |
/* function definition for LOOP-END-TESTIFY */ |
/* function definition for LOOP-MAKE-PSETQ */ |
841 |
|
|
842 |
static L18() |
static L24() |
843 |
{register object *base=vs_base; |
{register object *base=vs_base; |
844 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM22; VC22 |
845 |
vs_reserve(VM18); |
vs_check; |
846 |
{register object V45; |
{register object V109; |
847 |
check_arg(1); |
V109=(base[0]); |
|
V45=(base[0]); |
|
848 |
vs_top=sup; |
vs_top=sup; |
849 |
TTL:; |
TTL:; |
850 |
if(((V45))!=Cnil){ |
if((V109)==Cnil){ |
|
goto T118;} |
|
851 |
base[1]= Cnil; |
base[1]= Cnil; |
852 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
853 |
return; |
return;} |
854 |
T118:; |
V110= CMPcar((V109)); |
855 |
V45= nreverse((V45)); |
if((CMPcddr((V109)))!=Cnil){ |
856 |
if((cdr((V45)))!=Cnil){ |
goto T250;} |
857 |
goto T122;} |
V111= CMPcadr((V109)); |
858 |
V46= car((V45)); |
goto T248; |
859 |
goto T120; |
T250:; |
860 |
T122:; |
V112= CMPcadr((V109)); |
861 |
V46= make_cons(VV[35],(V45)); |
base[2]= CMPcddr((V109)); |
862 |
T120:; |
vs_top=(vs_base=base+2)+1; |
863 |
base[1]= list(3,VV[34],V46,VV[36]); |
(void) (*Lnk333)(); |
864 |
|
vs_top=sup; |
865 |
|
V113= vs_base[0]; |
866 |
|
V111= list(3,VV[62],/* INLINE-ARGS */V112,V113); |
867 |
|
T248:; |
868 |
|
base[1]= list(2,/* INLINE-ARGS */V110,V111); |
869 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
870 |
|
(void) (*Lnk334)(); |
871 |
return; |
return; |
872 |
} |
} |
873 |
} |
} |
874 |
/* function definition for LOOP-OPTIMIZE-DUPLICATED-CODE-ETC */ |
/* function definition for LOOP-MAKE-DESETQ */ |
875 |
|
|
876 |
static L19() |
static L25() |
877 |
{register object *base=vs_base; |
{register object *base=vs_base; |
878 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM23; VC23 |
879 |
vs_reserve(VM19); |
vs_check; |
880 |
check_arg(0); |
{object V114; |
881 |
|
V114=(base[0]); |
882 |
vs_top=sup; |
vs_top=sup; |
883 |
TTL:; |
TTL:; |
884 |
{register object V47; |
if(((V114))!=Cnil){ |
885 |
register object V48; |
goto T255;} |
886 |
object V49; |
base[1]= Cnil; |
887 |
object V50; |
vs_top=(vs_base=base+1)+1; |
888 |
register object V51; |
return; |
889 |
object V52; |
T255:; |
890 |
object V53; |
if(((VV[63]->s.s_dbind))==Cnil){ |
891 |
V47= Cnil; |
goto T259;} |
892 |
V48= Cnil; |
V115= CMPcadr((VV[63]->s.s_dbind)); |
893 |
V49= Cnil; |
goto T257; |
894 |
V50= Cnil; |
T259:; |
895 |
V51= Cnil; |
V115= VV[64]; |
896 |
V52= Cnil; |
T257:; |
897 |
V53= Cnil; |
base[1]= make_cons(V115,(V114)); |
898 |
{object V54; |
vs_top=(vs_base=base+1)+1; |
899 |
object V55; |
return; |
900 |
V54= nreverse(symbol_value(VV[37])); |
} |
901 |
V55= nreverse(symbol_value(VV[38])); |
} |
902 |
T136:; |
/* macro definition for LOOP-REALLY-DESETQ */ |
903 |
if(!(equal((V54),(V55)))){ |
|
904 |
goto T137;} |
static L26() |
905 |
V56= (VFUN_NARGS=2,(*(LnkLI234))(Cnil,(V54))); |
{register object *base=vs_base; |
906 |
V57= nreverse(symbol_value(VV[39])); |
register object *sup=base+VM24; VC24 |
907 |
setq(VV[39],nconc(/* INLINE-ARGS */V56,/* INLINE-ARGS */V57)); |
vs_check; |
908 |
goto T132; |
vs_top=sup; |
909 |
T137:; |
{object V116=base[0]->c.c_cdr; |
910 |
V47= make_cons(car((V54)),(V47)); |
base[2]= V116;} |
911 |
V48= make_cons(car((V55)),(V48)); |
{register object V117; |
912 |
V54= cdr((V54)); |
V117= Cnil; |
913 |
V55= cdr((V55)); |
T262:; |
914 |
goto T136;} |
if((base[2])!=Cnil){ |
915 |
T132:; |
goto T263;} |
916 |
if((symbol_value(VV[40]))==Cnil){ |
if((CMPcdr((V117)))!=Cnil){ |
917 |
goto T152;} |
goto T267;} |
918 |
V58= (VFUN_NARGS=2,(*(LnkLI234))(Cnil,(V47))); |
base[3]= CMPcar((V117)); |
919 |
setq(VV[37],nreverse(/* INLINE-ARGS */V58)); |
vs_top=(vs_base=base+3)+1; |
920 |
V59= (VFUN_NARGS=2,(*(LnkLI234))(Cnil,(V48))); |
return; |
921 |
setq(VV[38],nreverse(/* INLINE-ARGS */V59)); |
T267:; |
922 |
goto T150; |
V118= nreverse((V117)); |
923 |
T152:; |
base[3]= make_cons(VV[14],/* INLINE-ARGS */V118); |
924 |
setq(VV[37],Cnil); |
vs_top=(vs_base=base+3)+1; |
925 |
setq(VV[38],Cnil); |
return; |
926 |
V47= nreverse((V47)); |
T263:; |
927 |
V48= nreverse((V48)); |
{register object V119; |
928 |
{object V60; |
V119= CMPcar(base[2]); |
929 |
register object V61; |
base[2]= CMPcdr(base[2]); |
930 |
V60= (V47); |
base[4]= (V119);} |
931 |
V61= (V48); |
{register object V120; |
932 |
T167:; |
V120= CMPcar(base[2]); |
933 |
if(((V61))!=Cnil){ |
base[2]= CMPcdr(base[2]); |
934 |
goto T168;} |
base[5]= (V120);} |
935 |
goto T165; |
vs_top=(vs_base=base+4)+2; |
936 |
T168:; |
L28(base); |
937 |
if(equal(car((V61)),car((V60)))){ |
vs_top=sup; |
938 |
goto T174;} |
base[3]= vs_base[0]; |
939 |
V53= (V61); |
base[4]= (V117); |
940 |
goto T172; |
vs_top=(vs_base=base+3)+2; |
941 |
T174:; |
Lrevappend(); |
942 |
base[0]= car((V61)); |
vs_top=sup; |
943 |
vs_top=(vs_base=base+0)+1; |
V117= vs_base[0]; |
944 |
(void) (*Lnk136)(); |
goto T262;} |
945 |
|
} |
946 |
|
/* function definition for LOOP-CONSTANT-FOLD-IF-POSSIBLE */ |
947 |
|
|
948 |
|
static L29() |
949 |
|
{register object *base=vs_base; |
950 |
|
register object *sup=base+VM25; VC25 |
951 |
|
vs_check; |
952 |
|
{object V121; |
953 |
|
object V122; |
954 |
|
V121=(base[0]); |
955 |
|
vs_base=vs_base+1; |
956 |
|
if(vs_base>=vs_top){vs_top=sup;goto T284;} |
957 |
|
V122=(base[1]); |
958 |
|
vs_top=sup; |
959 |
|
goto T285; |
960 |
|
T284:; |
961 |
|
V122= Cnil; |
962 |
|
T285:; |
963 |
|
{register object V124; |
964 |
|
register object V125; |
965 |
|
V124= Cnil; |
966 |
|
V125= Cnil; |
967 |
|
base[2]= V121; |
968 |
|
vs_top=(vs_base=base+2)+1; |
969 |
|
Lconstantp(); |
970 |
|
vs_top=sup; |
971 |
|
V124= vs_base[0]; |
972 |
|
if(((V124))==Cnil){ |
973 |
|
goto T287;} |
974 |
|
base[2]= V121; |
975 |
|
vs_top=(vs_base=base+2)+1; |
976 |
|
Leval(); |
977 |
|
vs_top=sup; |
978 |
|
V125= vs_base[0]; |
979 |
|
T287:; |
980 |
|
if(((V124))==Cnil){ |
981 |
|
goto T294;} |
982 |
|
if(((V122))==Cnil){ |
983 |
|
goto T294;} |
984 |
|
base[2]= (V125); |
985 |
|
base[3]= (V122); |
986 |
|
vs_top=(vs_base=base+2)+2; |
987 |
|
(void) (*Lnk330)(); |
988 |
vs_top=sup; |
vs_top=sup; |
989 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
990 |
goto T172;} |
goto T294;} |
991 |
goto T165; |
base[2]= VV[67]; |
992 |
T172:; |
base[3]= (V121); |
993 |
V60= cdr((V60)); |
base[4]= (V125); |
994 |
V61= cdr((V61)); |
base[5]= (V122); |
995 |
goto T167;} |
vs_top=(vs_base=base+2)+4; |
996 |
T165:; |
(void) (*Lnk335)(); |
|
if(((V53))==Cnil){ |
|
|
goto T184;} |
|
|
T189:; |
|
|
if((car((V47)))!=Cnil){ |
|
|
goto T193;} |
|
|
goto T192; |
|
|
T193:; |
|
|
setq(VV[37],make_cons(car((V47)),symbol_value(VV[37]))); |
|
|
T192:; |
|
|
if((car((V48)))!=Cnil){ |
|
|
goto T197;} |
|
|
goto T196; |
|
|
T197:; |
|
|
setq(VV[38],make_cons(car((V48)),symbol_value(VV[38]))); |
|
|
T196:; |
|
|
V47= cdr((V47)); |
|
|
V48= cdr((V48)); |
|
|
if(((V48))==(cdr((V53)))){ |
|
|
goto T205;} |
|
|
goto T204; |
|
|
T205:; |
|
|
goto T187; |
|
|
T204:; |
|
|
goto T189; |
|
|
T187:; |
|
|
setq(VV[37],nreverse(symbol_value(VV[37]))); |
|
|
setq(VV[38],nreverse(symbol_value(VV[38]))); |
|
|
T184:; |
|
|
{object V62; |
|
|
object V63; |
|
|
V62= nreverse((V47)); |
|
|
V63= nreverse((V48)); |
|
|
T216:; |
|
|
if(((V63))!=Cnil){ |
|
|
goto T217;} |
|
|
goto T212; |
|
|
T217:; |
|
|
V51= car((V63)); |
|
|
V52= car((V62)); |
|
|
{object V64; |
|
|
if(((V51))==Cnil){ |
|
|
goto T227;} |
|
|
V64= Cnil; |
|
|
goto T226; |
|
|
T227:; |
|
|
V64= (((V52))==Cnil?Ct:Cnil); |
|
|
T226:; |
|
|
if(((V64))==Cnil){ |
|
|
goto T230;} |
|
|
goto T225; |
|
|
T230:; |
|
|
if(!(equal((V51),(V52)))){ |
|
|
goto T233;} |
|
|
base[0]= (V50); |
|
|
base[1]= (V49); |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk235)(); |
|
997 |
vs_top=sup; |
vs_top=sup; |
998 |
setq(VV[39],make_cons((V51),symbol_value(VV[39]))); |
V124= Cnil; |
999 |
V50= Cnil; |
V125= Cnil; |
1000 |
V49= Cnil; |
T294:; |
1001 |
goto T225; |
base[2]= V121; |
1002 |
T233:; |
base[3]= (V124); |
1003 |
if((V51)==Cnil){ |
base[4]= (V125); |
1004 |
goto T243;} |
vs_top=(vs_base=base+2)+3; |
1005 |
V49= make_cons((V51),(V49)); |
return;} |
1006 |
T243:; |
} |
1007 |
if((V52)==Cnil){ |
} |
1008 |
goto T225;} |
/* function definition for LOOP-CONSTANTP */ |
1009 |
V50= make_cons((V52),(V50));} |
|
1010 |
T225:; |
static L30() |
1011 |
V62= cdr((V62)); |
{register object *base=vs_base; |
1012 |
V63= cdr((V63)); |
register object *sup=base+VM26; VC26 |
1013 |
goto T216;} |
vs_check; |
1014 |
T212:; |
{object V126; |
1015 |
base[0]= (V50); |
V126=(base[0]); |
|
base[1]= (V49); |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk235)(); |
|
1016 |
vs_top=sup; |
vs_top=sup; |
1017 |
T150:; |
TTL:; |
1018 |
if(symbol_value(VV[41])==Cnil){ |
base[1]= (V126); |
1019 |
goto T252;} |
vs_top=(vs_base=base+1)+1; |
1020 |
V65= list(3,VV[15],symbol_value(VV[41]),Cnil); |
Lconstantp(); |
1021 |
setq(VV[38],make_cons(/* INLINE-ARGS */V65,symbol_value(VV[38]))); |
return; |
1022 |
T252:; |
} |
1023 |
base[0]= Cnil; |
} |
1024 |
vs_top=(vs_base=base+0)+1; |
/* function definition for LOOP-CODE-DUPLICATION-THRESHOLD */ |
1025 |
|
|
1026 |
|
static L31() |
1027 |
|
{register object *base=vs_base; |
1028 |
|
register object *sup=base+VM27; VC27 |
1029 |
|
vs_check; |
1030 |
|
{object V127; |
1031 |
|
V127=(base[0]); |
1032 |
|
vs_top=sup; |
1033 |
|
TTL:; |
1034 |
|
{object V128; |
1035 |
|
object V129; |
1036 |
|
base[1]= (V127); |
1037 |
|
vs_top=(vs_base=base+1)+1; |
1038 |
|
(void) (*Lnk336)(); |
1039 |
|
if(vs_base>=vs_top){vs_top=sup;goto T317;} |
1040 |
|
V128= vs_base[0]; |
1041 |
|
vs_base++; |
1042 |
|
if(vs_base>=vs_top){vs_top=sup;goto T318;} |
1043 |
|
V129= vs_base[0]; |
1044 |
|
vs_top=sup; |
1045 |
|
goto T319; |
1046 |
|
T317:; |
1047 |
|
V128= Cnil; |
1048 |
|
T318:; |
1049 |
|
V129= Cnil; |
1050 |
|
T319:; |
1051 |
|
V130= number_minus((V128),(V129)); |
1052 |
|
V131= number_times(/* INLINE-ARGS */V130,small_fixnum(10)); |
1053 |
|
base[1]= number_plus(small_fixnum(40),/* INLINE-ARGS */V131); |
1054 |
|
vs_top=(vs_base=base+1)+1; |
1055 |
return;} |
return;} |
1056 |
|
} |
1057 |
} |
} |
1058 |
/* function definition for LOOP-OUTPUT-GROUP */ |
/* macro definition for LOOP-BODY */ |
1059 |
|
|
1060 |
static L20() |
static L32() |
1061 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1062 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM28; VC28 |
1063 |
vs_reserve(VM20); |
vs_check; |
1064 |
{register object V66; |
vs_top=sup; |
1065 |
register object V67; |
{object V132=base[0]->c.c_cdr; |
1066 |
check_arg(2); |
base[2]= (V132->c.c_car); |
1067 |
V66=(base[0]); |
V132=V132->c.c_cdr; |
1068 |
V67=(base[1]); |
base[3]= (V132->c.c_car); |
1069 |
|
V132=V132->c.c_cdr; |
1070 |
|
base[4]= (V132->c.c_car); |
1071 |
|
V132=V132->c.c_cdr; |
1072 |
|
base[5]= (V132->c.c_car); |
1073 |
|
V132=V132->c.c_cdr; |
1074 |
|
base[6]= (V132->c.c_car); |
1075 |
|
base[7]= Cnil; |
1076 |
|
base[8]= Cnil; |
1077 |
|
base[9]= Cnil;} |
1078 |
|
if((length(base[3]))==(length(base[5]))){ |
1079 |
|
goto T323;} |
1080 |
|
base[10]= VV[68]; |
1081 |
|
vs_top=(vs_base=base+10)+1; |
1082 |
|
Lerror(); |
1083 |
|
vs_top=sup; |
1084 |
|
T323:; |
1085 |
|
base[7]= reverse(base[3]); |
1086 |
|
base[8]= reverse(base[5]); |
1087 |
|
if(((VV[69]->s.s_dbind))!=Cnil){ |
1088 |
|
goto T332;} |
1089 |
|
if((base[7])!=Cnil){ |
1090 |
|
goto T331;} |
1091 |
|
T332:; |
1092 |
|
vs_base=vs_top; |
1093 |
|
L35(base); |
1094 |
|
return; |
1095 |
|
T331:; |
1096 |
|
{register int V133; |
1097 |
|
base[10]= base[1]; |
1098 |
|
vs_top=(vs_base=base+10)+1; |
1099 |
|
(void) (*Lnk337)(); |
1100 |
|
vs_top=sup; |
1101 |
|
V133= fix(vs_base[0]); |
1102 |
|
T339:; |
1103 |
|
T344:; |
1104 |
|
if((base[7])==Cnil){ |
1105 |
|
goto T346;} |
1106 |
|
if(equal(CMPcar(base[7]),CMPcar(base[8]))){ |
1107 |
|
goto T345;} |
1108 |
|
T346:; |
1109 |
|
goto T342; |
1110 |
|
T345:; |
1111 |
|
{register object V135; |
1112 |
|
V135= CMPcar(base[7]); |
1113 |
|
base[7]= CMPcdr(base[7]); |
1114 |
|
V134= (V135);} |
1115 |
|
base[4]= make_cons(V134,base[4]); |
1116 |
|
{register object V136; |
1117 |
|
V136= CMPcar(base[8]); |
1118 |
|
base[8]= CMPcdr(base[8]);} |
1119 |
|
goto T344; |
1120 |
|
T342:; |
1121 |
|
if((base[7])!=Cnil){ |
1122 |
|
goto T363;} |
1123 |
|
vs_base=vs_top; |
1124 |
|
L35(base); |
1125 |
|
return; |
1126 |
|
T363:; |
1127 |
|
{register object V137; |
1128 |
|
register object V138; |
1129 |
|
register object V139; |
1130 |
|
register object V140; |
1131 |
|
register object V141; |
1132 |
|
V137= base[7]; |
1133 |
|
V138= base[8]; |
1134 |
|
V139= Cnil; |
1135 |
|
V140= small_fixnum(0); |
1136 |
|
V141= Cnil; |
1137 |
|
T368:; |
1138 |
|
if(((V137))!=Cnil){ |
1139 |
|
goto T369;} |
1140 |
|
vs_base=vs_top; |
1141 |
|
L35(base); |
1142 |
|
return; |
1143 |
|
T369:; |
1144 |
|
if(equal(CMPcar((V137)),CMPcar((V138)))){ |
1145 |
|
goto T375;} |
1146 |
|
V139= (V137); |
1147 |
|
V140= small_fixnum(0); |
1148 |
|
goto T373; |
1149 |
|
T375:; |
1150 |
|
base[10]= CMPcar((V137)); |
1151 |
|
base[11]= base[1]; |
1152 |
|
vs_top=(vs_base=base+10)+2; |
1153 |
|
(void) (*Lnk77)(); |
1154 |
|
vs_top=sup; |
1155 |
|
V141= vs_base[0]; |
1156 |
|
if(((V141))==Cnil){ |
1157 |
|
goto T380;} |
1158 |
|
V140= number_plus((V140),(V141)); |
1159 |
|
V142 = CMPmake_fixnum(V133); |
1160 |
|
if(!(number_compare((V140),V142)>0)){ |
1161 |
|
goto T373;} |
1162 |
|
T380:; |
1163 |
|
{register object V143; |
1164 |
|
register object V144; |
1165 |
|
V143= Cnil; |
1166 |
|
V144= Cnil; |
1167 |
|
T391:; |
1168 |
|
{register object V146; |
1169 |
|
V146= CMPcar(base[7]); |
1170 |
|
base[7]= CMPcdr(base[7]); |
1171 |
|
V145= (V146);} |
1172 |
|
V144= make_cons(V145,(V144)); |
1173 |
|
{register object V148; |
1174 |
|
V148= CMPcar(base[8]); |
1175 |
|
base[8]= CMPcdr(base[8]); |
1176 |
|
V147= (V148);} |
1177 |
|
V143= make_cons(V147,(V143)); |
1178 |
|
if(!((base[7])==(CMPcdr((V139))))){ |
1179 |
|
goto T406;} |
1180 |
|
goto T389; |
1181 |
|
T406:; |
1182 |
|
goto T391; |
1183 |
|
T389:; |
1184 |
|
if((base[9])!=Cnil){ |
1185 |
|
goto T411;} |
1186 |
|
base[9]= (VV[70]->s.s_dbind); |
1187 |
|
V149= list(3,VV[11],base[9],Ct); |
1188 |
|
V144= make_cons(/* INLINE-ARGS */V149,(V144)); |
1189 |
|
T411:; |
1190 |
|
base[11]= (V143); |
1191 |
|
vs_top=(vs_base=base+11)+1; |
1192 |
|
L33(base); |
1193 |
|
vs_top=sup; |
1194 |
|
base[10]= vs_base[0]; |
1195 |
|
vs_top=(vs_base=base+10)+1; |
1196 |
|
L34(base); |
1197 |
|
vs_top=sup; |
1198 |
|
V150= vs_base[0]; |
1199 |
|
base[11]= (V144); |
1200 |
|
vs_top=(vs_base=base+11)+1; |
1201 |
|
L33(base); |
1202 |
|
vs_top=sup; |
1203 |
|
base[10]= vs_base[0]; |
1204 |
|
vs_top=(vs_base=base+10)+1; |
1205 |
|
L34(base); |
1206 |
|
vs_top=sup; |
1207 |
|
V151= vs_base[0]; |
1208 |
|
V152= list(4,VV[71],base[9],V150,V151); |
1209 |
|
base[4]= make_cons(/* INLINE-ARGS */V152,base[4]);} |
1210 |
|
T425:; |
1211 |
|
{register object V153; |
1212 |
|
V153= CMPcar(base[8]); |
1213 |
|
base[8]= CMPcdr(base[8]);} |
1214 |
|
{register object V155; |
1215 |
|
V155= CMPcar(base[7]); |
1216 |
|
base[7]= CMPcdr(base[7]); |
1217 |
|
V154= (V155);} |
1218 |
|
base[4]= make_cons(V154,base[4]); |
1219 |
|
if(!((base[7])==(CMPcdr((V137))))){ |
1220 |
|
goto T438;} |
1221 |
|
goto T423; |
1222 |
|
T438:; |
1223 |
|
goto T425; |
1224 |
|
T423:; |
1225 |
|
goto T366; |
1226 |
|
T373:; |
1227 |
|
V137= CMPcdr((V137)); |
1228 |
|
V138= CMPcdr((V138)); |
1229 |
|
goto T368;} |
1230 |
|
T366:; |
1231 |
|
goto T339;} |
1232 |
|
} |
1233 |
|
/* function definition for DUPLICATABLE-CODE-P */ |
1234 |
|
|
1235 |
|
static L36() |
1236 |
|
{register object *base=vs_base; |
1237 |
|
register object *sup=base+VM29; VC29 |
1238 |
|
vs_check; |
1239 |
|
{object V156; |
1240 |
|
object V157; |
1241 |
|
V156=(base[0]); |
1242 |
|
V157=(base[1]); |
1243 |
|
vs_top=sup; |
1244 |
|
TTL:; |
1245 |
|
if(((V156))!=Cnil){ |
1246 |
|
goto T450;} |
1247 |
|
base[2]= small_fixnum(0); |
1248 |
|
vs_top=(vs_base=base+2)+1; |
1249 |
|
return; |
1250 |
|
T450:; |
1251 |
|
{int V158; |
1252 |
|
base[2]= (V156); |
1253 |
|
base[3]= (V157); |
1254 |
|
vs_top=(vs_base=base+2)+2; |
1255 |
|
(void) (*Lnk77)(); |
1256 |
|
vs_top=sup; |
1257 |
|
V158= fix(vs_base[0]); |
1258 |
|
base[2]= CMPmake_fixnum(V158); |
1259 |
|
vs_top=(vs_base=base+2)+1; |
1260 |
|
return;} |
1261 |
|
} |
1262 |
|
} |
1263 |
|
/* function definition for DESTRUCTURING-SIZE */ |
1264 |
|
|
1265 |
|
static L37() |
1266 |
|
{register object *base=vs_base; |
1267 |
|
register object *sup=base+VM30; VC30 |
1268 |
|
vs_check; |
1269 |
|
{object V159; |
1270 |
|
V159=(base[0]); |
1271 |
vs_top=sup; |
vs_top=sup; |
1272 |
TTL:; |
TTL:; |
1273 |
if((V67)!=Cnil){ |
{register object V160; |
1274 |
if(((V67))!=Cnil){ |
register object V161; |
1275 |
goto T254;} |
V160= (V159); |
1276 |
goto T255;} |
V161= small_fixnum(0); |
1277 |
if(((V66))!=Cnil){ |
T456:; |
1278 |
goto T254;} |
if(!(type_of((V160))!=t_cons)){ |
1279 |
T255:; |
goto T457;} |
1280 |
base[2]= Cnil; |
if(((V160))!=Cnil){ |
1281 |
|
goto T462;} |
1282 |
|
V162= small_fixnum(0); |
1283 |
|
goto T460; |
1284 |
|
T462:; |
1285 |
|
V162= small_fixnum(1); |
1286 |
|
T460:; |
1287 |
|
base[1]= number_plus((V161),V162); |
1288 |
|
vs_top=(vs_base=base+1)+1; |
1289 |
|
return; |
1290 |
|
T457:; |
1291 |
|
{object V163; |
1292 |
|
V163= CMPcdr((V160)); |
1293 |
|
base[1]= CMPcar((V160)); |
1294 |
|
vs_top=(vs_base=base+1)+1; |
1295 |
|
(void) (*Lnk338)(); |
1296 |
|
vs_top=sup; |
1297 |
|
V164= vs_base[0]; |
1298 |
|
V161= number_plus(V164,(V161)); |
1299 |
|
V160= (V163);} |
1300 |
|
goto T456;} |
1301 |
|
} |
1302 |
|
} |
1303 |
|
/* function definition for ESTIMATE-CODE-SIZE */ |
1304 |
|
|
1305 |
|
static L38() |
1306 |
|
{register object *VOL base=vs_base; |
1307 |
|
register object *VOL sup=base+VM31; VC31 |
1308 |
|
vs_check; |
1309 |
|
{VOL object V165; |
1310 |
|
VOL object V166; |
1311 |
|
V165=(base[0]); |
1312 |
|
V166=(base[1]); |
1313 |
|
vs_top=sup; |
1314 |
|
TTL:; |
1315 |
|
frs_push(FRS_CATCH,VV[77]); |
1316 |
|
if(nlj_active) |
1317 |
|
{nlj_active=FALSE;frs_pop(); |
1318 |
|
return;} |
1319 |
|
else{ |
1320 |
|
base[2]= (V165); |
1321 |
|
base[3]= (V166); |
1322 |
|
vs_top=(vs_base=base+2)+2; |
1323 |
|
(void) (*Lnk339)(); |
1324 |
|
frs_pop(); |
1325 |
|
return;} |
1326 |
|
} |
1327 |
|
} |
1328 |
|
/* function definition for ESTIMATE-CODE-SIZE-1 */ |
1329 |
|
|
1330 |
|
static L39() |
1331 |
|
{register object *base=vs_base; |
1332 |
|
register object *sup=base+VM32; VC32 |
1333 |
|
vs_check; |
1334 |
|
{object V167; |
1335 |
|
V167=(base[0]); |
1336 |
|
vs_top=sup; |
1337 |
|
TTL:; |
1338 |
|
base[2]= (V167); |
1339 |
|
vs_top=(vs_base=base+2)+1; |
1340 |
|
Lconstantp(); |
1341 |
|
vs_top=sup; |
1342 |
|
if((vs_base[0])==Cnil){ |
1343 |
|
goto T475;} |
1344 |
|
base[2]= small_fixnum(1); |
1345 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1346 |
return; |
return; |
1347 |
T254:; |
T475:; |
1348 |
{object V68; |
if(!(type_of((V167))==t_symbol)){ |
1349 |
if(symbol_value(VV[41])!=Cnil){ |
goto T479;} |
1350 |
V68= symbol_value(VV[41]); |
{object V168; |
1351 |
goto T256;} |
object V169; |
1352 |
base[3]= VV[42]; |
base[2]= (V167); |
1353 |
vs_top=(vs_base=base+3)+1; |
base[3]= base[1]; |
1354 |
Lgentemp(); |
vs_top=(vs_base=base+2)+2; |
1355 |
|
Lmacroexpand_1(); |
1356 |
|
if(vs_base>=vs_top){vs_top=sup;goto T484;} |
1357 |
|
V168= vs_base[0]; |
1358 |
|
vs_base++; |
1359 |
|
if(vs_base>=vs_top){vs_top=sup;goto T485;} |
1360 |
|
V169= vs_base[0]; |
1361 |
vs_top=sup; |
vs_top=sup; |
1362 |
base[2]= vs_base[0]; |
goto T486; |
1363 |
base[3]= Ct; |
T484:; |
1364 |
base[4]= Cnil; |
V168= Cnil; |
1365 |
|
T485:; |
1366 |
|
V169= Cnil; |
1367 |
|
T486:; |
1368 |
|
if(((V169))==Cnil){ |
1369 |
|
goto T488;} |
1370 |
|
V167= (V168); |
1371 |
|
goto TTL; |
1372 |
|
T488:; |
1373 |
|
base[2]= small_fixnum(1); |
1374 |
|
vs_top=(vs_base=base+2)+1; |
1375 |
|
return;} |
1376 |
|
T479:; |
1377 |
|
if(!(type_of((V167))!=t_cons)){ |
1378 |
|
goto T494;} |
1379 |
|
base[2]= small_fixnum(1); |
1380 |
|
vs_top=(vs_base=base+2)+1; |
1381 |
|
return; |
1382 |
|
T494:; |
1383 |
|
if(!(type_of(CMPcar((V167)))==t_symbol)){ |
1384 |
|
goto T497;} |
1385 |
|
{object V170; |
1386 |
|
object V171; |
1387 |
|
register int V172; |
1388 |
|
V170= CMPcar((V167)); |
1389 |
|
V172= 0; |
1390 |
|
V171= Cnil; |
1391 |
|
{object V173 =((V170))->s.s_plist; |
1392 |
|
object ind= VV[77]; |
1393 |
|
while(V173!=Cnil){ |
1394 |
|
if(V173->c.c_car==ind){ |
1395 |
|
V171= (V173->c.c_cdr->c.c_car); |
1396 |
|
goto T504; |
1397 |
|
}else V173=V173->c.c_cdr->c.c_cdr;} |
1398 |
|
V171= Cnil;} |
1399 |
|
T504:; |
1400 |
|
if(((V171))==Cnil){ |
1401 |
|
goto T502;} |
1402 |
|
if(!(type_of(V171)==t_fixnum)){ |
1403 |
|
goto T506;} |
1404 |
|
base[2]= CMPcdr((V167)); |
1405 |
|
vs_top=(vs_base=base+2)+1; |
1406 |
|
L40(base); |
1407 |
|
vs_top=sup; |
1408 |
|
V175= fix(vs_base[0]); |
1409 |
|
base[2]= CMPmake_fixnum((fix((V171)))+(V175)); |
1410 |
|
vs_top=(vs_base=base+2)+1; |
1411 |
|
return; |
1412 |
|
T506:; |
1413 |
|
base[2]= (V167); |
1414 |
|
base[3]= base[1]; |
1415 |
|
vs_top=(vs_base=base+2)+2; |
1416 |
|
super_funcall_no_event((V171)); |
1417 |
|
return; |
1418 |
|
T502:; |
1419 |
|
{register object x= (V170),V176= (VV[78]->s.s_dbind); |
1420 |
|
while(V176!=Cnil) |
1421 |
|
if(eql(x,V176->c.c_car->c.c_car) &&V176->c.c_car != Cnil){ |
1422 |
|
V171= (V176->c.c_car); |
1423 |
|
goto T515; |
1424 |
|
}else V176=V176->c.c_cdr; |
1425 |
|
V171= Cnil;} |
1426 |
|
T515:; |
1427 |
|
if(((V171))==Cnil){ |
1428 |
|
goto T513;} |
1429 |
|
{int V177= fix(CMPcadr((V171))); |
1430 |
|
base[2]= CMPcdr((V167)); |
1431 |
|
vs_top=(vs_base=base+2)+1; |
1432 |
|
L40(base); |
1433 |
|
vs_top=sup; |
1434 |
|
V178= fix(vs_base[0]); |
1435 |
|
base[2]= CMPmake_fixnum((/* INLINE-ARGS */V177)+(V178)); |
1436 |
|
vs_top=(vs_base=base+2)+1; |
1437 |
|
return;} |
1438 |
|
T513:; |
1439 |
|
if(!(((V170))==(VV[79]))){ |
1440 |
|
goto T519;} |
1441 |
|
{register object V179; |
1442 |
|
object V180; |
1443 |
|
V179= CMPcdr((V167)); |
1444 |
|
V180= CMPcar((V179)); |
1445 |
|
T524:; |
1446 |
|
if(!(((V179))==Cnil)){ |
1447 |
|
goto T525;} |
1448 |
|
base[4]= CMPmake_fixnum(V172); |
1449 |
|
vs_top=(vs_base=base+4)+1; |
1450 |
|
return; |
1451 |
|
T525:; |
1452 |
|
V181 = CMPmake_fixnum(V172); |
1453 |
|
base[4]= (V180); |
1454 |
|
vs_top=(vs_base=base+4)+1; |
1455 |
|
L40(base); |
1456 |
|
vs_top=sup; |
1457 |
|
V182= vs_base[0]; |
1458 |
|
V172= fix(number_plus(V181,V182)); |
1459 |
|
V172= (V172)+(1); |
1460 |
|
V179= CMPcdr((V179)); |
1461 |
|
V180= CMPcar((V179)); |
1462 |
|
goto T524;} |
1463 |
|
T519:; |
1464 |
|
if(!(((V170))==(VV[80]))){ |
1465 |
|
goto T541;} |
1466 |
|
{register object V183; |
1467 |
|
V183= CMPcdr((V167)); |
1468 |
|
T545:; |
1469 |
|
if(((V183))!=Cnil){ |
1470 |
|
goto T546;} |
1471 |
|
base[2]= CMPmake_fixnum(V172); |
1472 |
|
vs_top=(vs_base=base+2)+1; |
1473 |
|
return; |
1474 |
|
T546:; |
1475 |
|
base[2]= CMPmake_fixnum(V172); |
1476 |
|
base[4]= CMPcar((V183)); |
1477 |
|
vs_top=(vs_base=base+4)+1; |
1478 |
|
(void) (*Lnk338)(); |
1479 |
|
vs_top=sup; |
1480 |
|
base[3]= vs_base[0]; |
1481 |
|
base[5]= CMPcadr((V183)); |
1482 |
|
base[6]= base[1]; |
1483 |
|
vs_top=(vs_base=base+5)+2; |
1484 |
|
(void) (*Lnk339)(); |
1485 |
|
vs_top=sup; |
1486 |
|
base[4]= vs_base[0]; |
1487 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1488 |
(void) (*Lnk236)(); |
Lplus(); |
1489 |
vs_top=sup; |
vs_top=sup; |
1490 |
setq(VV[41],vs_base[0]); |
V172= fix(vs_base[0]); |
1491 |
V68= symbol_value(VV[41]); |
V183= CMPcdr((V183)); |
1492 |
T256:; |
goto T545;} |
1493 |
if(((V66))!=Cnil){ |
T541:; |
1494 |
goto T265;} |
{register object x= (V170),V184= VV[81]; |
1495 |
V69= list(3,VV[43],(V68),make_cons(VV[44],(V67))); |
while(V184!=Cnil) |
1496 |
goto T263; |
if(eql(x,V184->c.c_car)){ |
1497 |
T265:; |
goto T563; |
1498 |
if(((V67))!=Cnil){ |
}else V184=V184->c.c_cdr; |
1499 |
goto T268;} |
goto T562;} |
1500 |
V69= list(3,VV[34],(V68),make_cons(VV[44],(V66))); |
T563:; |
1501 |
goto T263; |
{register object V185; |
1502 |
T268:; |
V185= CMPcdr((V167)); |
1503 |
V70= make_cons((V68),(V66)); |
T566:; |
1504 |
V69= list(3,VV[45],/* INLINE-ARGS */V70,make_cons(Ct,(V67))); |
if(((V185))!=Cnil){ |
1505 |
T263:; |
goto T567;} |
1506 |
setq(VV[39],make_cons(V69,symbol_value(VV[39]))); |
base[2]= CMPmake_fixnum(V172); |
1507 |
base[2]= symbol_value(VV[39]); |
vs_top=(vs_base=base+2)+1; |
1508 |
|
return; |
1509 |
|
T567:; |
1510 |
|
base[2]= CMPmake_fixnum(V172); |
1511 |
|
base[4]= CMPcadr((V185)); |
1512 |
|
base[5]= base[1]; |
1513 |
|
vs_top=(vs_base=base+4)+2; |
1514 |
|
(void) (*Lnk339)(); |
1515 |
|
vs_top=sup; |
1516 |
|
base[3]= vs_base[0]; |
1517 |
|
base[4]= small_fixnum(1); |
1518 |
|
vs_top=(vs_base=base+2)+3; |
1519 |
|
Lplus(); |
1520 |
|
vs_top=sup; |
1521 |
|
V172= fix(vs_base[0]); |
1522 |
|
V185= CMPcdr((V185)); |
1523 |
|
goto T566;} |
1524 |
|
T562:; |
1525 |
|
if(!(((V170))==(VV[82]))){ |
1526 |
|
goto T582;} |
1527 |
|
base[2]= small_fixnum(1); |
1528 |
|
vs_top=(vs_base=base+2)+1; |
1529 |
|
return; |
1530 |
|
T582:; |
1531 |
|
if(!(((V170))==(VV[83]))){ |
1532 |
|
goto T585;} |
1533 |
|
if(type_of(CMPcadr((V167)))==t_symbol){ |
1534 |
|
goto T587;} |
1535 |
|
if(!(type_of(CMPcadr((V167)))==t_cons)){ |
1536 |
|
goto T588;} |
1537 |
|
if(!((CMPcaadr((V167)))==(VV[9]))){ |
1538 |
|
goto T588;} |
1539 |
|
T587:; |
1540 |
|
base[2]= small_fixnum(1); |
1541 |
|
vs_top=(vs_base=base+2)+1; |
1542 |
|
return; |
1543 |
|
T588:; |
1544 |
|
{frame_ptr fr; |
1545 |
|
fr=frs_sch_catch(VV[84]); |
1546 |
|
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[84]); |
1547 |
|
base[2]= Cnil; |
1548 |
|
vs_top=(vs_base=base+2)+1; |
1549 |
|
unwind(fr,VV[84]);} |
1550 |
|
T585:; |
1551 |
|
if(!(((V170))==(VV[85]))){ |
1552 |
|
goto T596;} |
1553 |
|
{int V186= length(CMPcadr((V167))); |
1554 |
|
base[2]= CMPcddr((V167)); |
1555 |
|
vs_top=(vs_base=base+2)+1; |
1556 |
|
L40(base); |
1557 |
|
vs_top=sup; |
1558 |
|
V187= fix(vs_base[0]); |
1559 |
|
base[2]= CMPmake_fixnum((/* INLINE-ARGS */V186)+(V187)); |
1560 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1561 |
return;} |
return;} |
1562 |
|
T596:; |
1563 |
|
if(!(((V170))==(VV[86]))){ |
1564 |
|
goto T601;} |
1565 |
|
base[2]= CMPcaddr((V167)); |
1566 |
|
base[3]= base[1]; |
1567 |
|
vs_top=(vs_base=base+2)+2; |
1568 |
|
(void) (*Lnk339)(); |
1569 |
|
vs_top=sup; |
1570 |
|
V188= vs_base[0]; |
1571 |
|
base[2]= one_plus(V188); |
1572 |
|
vs_top=(vs_base=base+2)+1; |
1573 |
|
return; |
1574 |
|
T601:; |
1575 |
|
base[2]= (V170); |
1576 |
|
vs_top=(vs_base=base+2)+1; |
1577 |
|
(void) (*Lnk340)(); |
1578 |
|
vs_top=sup; |
1579 |
|
if((vs_base[0])!=Cnil){ |
1580 |
|
goto T606;} |
1581 |
|
{register object x= (V170),V189= (VV[87]->s.s_dbind); |
1582 |
|
while(V189!=Cnil) |
1583 |
|
if(eql(x,V189->c.c_car)){ |
1584 |
|
goto T611; |
1585 |
|
}else V189=V189->c.c_cdr; |
1586 |
|
goto T607;} |
1587 |
|
T611:; |
1588 |
|
T606:; |
1589 |
|
{frame_ptr fr; |
1590 |
|
fr=frs_sch_catch(VV[77]); |
1591 |
|
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[77]); |
1592 |
|
base[2]= Cnil; |
1593 |
|
vs_top=(vs_base=base+2)+1; |
1594 |
|
unwind(fr,VV[77]);} |
1595 |
|
T607:; |
1596 |
|
{object V190; |
1597 |
|
object V191; |
1598 |
|
base[2]= (V167); |
1599 |
|
base[3]= base[1]; |
1600 |
|
vs_top=(vs_base=base+2)+2; |
1601 |
|
Lmacroexpand_1(); |
1602 |
|
if(vs_base>=vs_top){vs_top=sup;goto T616;} |
1603 |
|
V190= vs_base[0]; |
1604 |
|
vs_base++; |
1605 |
|
if(vs_base>=vs_top){vs_top=sup;goto T617;} |
1606 |
|
V191= vs_base[0]; |
1607 |
|
vs_top=sup; |
1608 |
|
goto T618; |
1609 |
|
T616:; |
1610 |
|
V190= Cnil; |
1611 |
|
T617:; |
1612 |
|
V191= Cnil; |
1613 |
|
T618:; |
1614 |
|
if(((V191))==Cnil){ |
1615 |
|
goto T620;} |
1616 |
|
V167= (V190); |
1617 |
|
goto TTL; |
1618 |
|
T620:; |
1619 |
|
base[2]= CMPcdr((V167)); |
1620 |
|
vs_top=(vs_base=base+2)+1; |
1621 |
|
L40(base); |
1622 |
|
vs_top=sup; |
1623 |
|
V192= fix(vs_base[0]); |
1624 |
|
base[2]= CMPmake_fixnum((3)+(V192)); |
1625 |
|
vs_top=(vs_base=base+2)+1; |
1626 |
|
return;}} |
1627 |
|
T497:; |
1628 |
|
{frame_ptr fr; |
1629 |
|
fr=frs_sch_catch(VV[77]); |
1630 |
|
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[77]); |
1631 |
|
base[2]= Cnil; |
1632 |
|
vs_top=(vs_base=base+2)+1; |
1633 |
|
unwind(fr,VV[77]);} |
1634 |
} |
} |
1635 |
} |
} |
1636 |
/* function definition for LOOP-TRANSLATE-1 */ |
/* function definition for LOOP-CONTEXT */ |
1637 |
|
|
1638 |
static L21() |
static L41() |
1639 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1640 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM33; VC33 |
1641 |
vs_reserve(VM21); |
vs_check; |
|
bds_check; |
|
|
check_arg(1); |
|
|
bds_bind(VV[46],base[0]); |
|
1642 |
vs_top=sup; |
vs_top=sup; |
1643 |
TTL:; |
TTL:; |
1644 |
if((car((VV[46]->s.s_dbind)))==(VV[26])){ |
{register object V193; |
1645 |
goto T271;} |
register object V194; |
1646 |
goto T270; |
V193= (VV[88]->s.s_dbind); |
1647 |
T271:; |
V194= Cnil; |
1648 |
(VV[46]->s.s_dbind)= cdr((VV[46]->s.s_dbind)); |
T629:; |
1649 |
T270:; |
if(!(((V193))==(CMPcdr((VV[89]->s.s_dbind))))){ |
1650 |
{register object V71; |
goto T630;} |
1651 |
register object V72; |
base[0]= nreverse((V194)); |
1652 |
object V73; |
vs_top=(vs_base=base+0)+1; |
1653 |
bds_bind(VV[47],Cnil); |
return; |
1654 |
bds_bind(VV[48],Cnil); |
T630:; |
1655 |
bds_bind(VV[49],Cnil); |
{object V195; |
1656 |
bds_bind(VV[50],Cnil); |
V195= CMPcdr((V193)); |
1657 |
bds_bind(VV[51],Cnil); |
V194= make_cons(CMPcar((V193)),(V194)); |
1658 |
bds_bind(VV[52],Cnil); |
V193= (V195);} |
1659 |
bds_bind(VV[53],Cnil); |
goto T629;} |
1660 |
bds_bind(VV[54],Cnil); |
} |
1661 |
bds_bind(VV[55],Cnil); |
/* function definition for LOOP-ERROR */ |
1662 |
bds_bind(VV[56],Cnil); |
|
1663 |
bds_bind(VV[57],Cnil); |
static L42() |
1664 |
bds_bind(VV[58],Cnil); |
{register object *base=vs_base; |
1665 |
bds_bind(VV[37],Cnil); |
register object *sup=base+VM34; VC34 |
1666 |
bds_bind(VV[39],Cnil); |
vs_check; |
1667 |
bds_bind(VV[59],Cnil); |
{object V196; |
1668 |
bds_bind(VV[38],Cnil); |
object V197; |
1669 |
bds_bind(VV[60],Cnil); |
V196=(base[0]); |
1670 |
bds_bind(VV[61],Cnil); |
vs_base=vs_base+1; |
1671 |
bds_bind(VV[62],Cnil); |
vs_top[0]=Cnil; |
1672 |
bds_bind(VV[63],Cnil); |
{object *p=vs_top; |
1673 |
bds_bind(VV[41],Cnil); |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1674 |
bds_bind(VV[18],Cnil); |
V197=(base[1]); |
1675 |
bds_bind(VV[22],Cnil); |
vs_top=sup; |
1676 |
bds_bind(VV[64],Cnil); |
base[2]= VV[90]; |
1677 |
V71= Cnil; |
base[3]= (V196); |
1678 |
V72= Cnil; |
base[4]= (V197); |
1679 |
V73= Cnil; |
vs_base=vs_top; |
1680 |
T278:; |
(void) (*Lnk341)(); |
1681 |
if(((VV[46]->s.s_dbind))!=Cnil){ |
vs_top=sup; |
1682 |
goto T279;} |
base[5]= vs_base[0]; |
1683 |
if((VV[62]->s.s_dbind)==Cnil){ |
vs_top=(vs_base=base+2)+4; |
|
goto T282;} |
|
|
base[25]= VV[2]; |
|
|
base[26]= VV[65]; |
|
|
base[27]= caadar((VV[62]->s.s_dbind)); |
|
|
vs_top=(vs_base=base+25)+3; |
|
1684 |
Lerror(); |
Lerror(); |
1685 |
|
return; |
1686 |
|
} |
1687 |
|
} |
1688 |
|
/* function definition for LOOP-WARN */ |
1689 |
|
|
1690 |
|
static L43() |
1691 |
|
{register object *base=vs_base; |
1692 |
|
register object *sup=base+VM35; VC35 |
1693 |
|
vs_check; |
1694 |
|
{object V198; |
1695 |
|
object V199; |
1696 |
|
V198=(base[0]); |
1697 |
|
vs_base=vs_base+1; |
1698 |
|
vs_top[0]=Cnil; |
1699 |
|
{object *p=vs_top; |
1700 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1701 |
|
V199=(base[1]); |
1702 |
vs_top=sup; |
vs_top=sup; |
1703 |
T282:; |
base[2]= VV[91]; |
1704 |
|
base[3]= (V198); |
1705 |
|
base[4]= (V199); |
1706 |
vs_base=vs_top; |
vs_base=vs_top; |
1707 |
(void) (*Lnk237)(); |
(void) (*Lnk341)(); |
1708 |
|
vs_top=sup; |
1709 |
|
base[5]= vs_base[0]; |
1710 |
|
vs_top=(vs_base=base+2)+4; |
1711 |
|
(void) (*Lnk342)(); |
1712 |
|
return; |
1713 |
|
} |
1714 |
|
} |
1715 |
|
/* function definition for LOOP-CHECK-DATA-TYPE */ |
1716 |
|
|
1717 |
|
static L44() |
1718 |
|
{register object *base=vs_base; |
1719 |
|
register object *sup=base+VM36; VC36 |
1720 |
|
vs_check; |
1721 |
|
{register object V200; |
1722 |
|
register object V201; |
1723 |
|
object V202; |
1724 |
|
V200=(base[0]); |
1725 |
|
V201=(base[1]); |
1726 |
|
vs_base=vs_base+2; |
1727 |
|
if(vs_base>=vs_top){vs_top=sup;goto T646;} |
1728 |
|
V202=(base[2]); |
1729 |
|
vs_top=sup; |
1730 |
|
goto T647; |
1731 |
|
T646:; |
1732 |
|
V202= (V201); |
1733 |
|
T647:; |
1734 |
|
if(((V200))!=Cnil){ |
1735 |
|
goto T650;} |
1736 |
|
base[3]= (V202); |
1737 |
|
vs_top=(vs_base=base+3)+1; |
1738 |
|
return; |
1739 |
|
T650:; |
1740 |
|
{object V203; |
1741 |
|
object V204; |
1742 |
|
base[3]= (V200); |
1743 |
|
base[4]= (V201); |
1744 |
|
vs_top=(vs_base=base+3)+2; |
1745 |
|
(void) (*Lnk323)(); |
1746 |
|
if(vs_base>=vs_top){vs_top=sup;goto T655;} |
1747 |
|
V203= vs_base[0]; |
1748 |
|
vs_base++; |
1749 |
|
if(vs_base>=vs_top){vs_top=sup;goto T656;} |
1750 |
|
V204= vs_base[0]; |
1751 |
vs_top=sup; |
vs_top=sup; |
1752 |
|
goto T657; |
1753 |
|
T655:; |
1754 |
|
V203= Cnil; |
1755 |
|
T656:; |
1756 |
|
V204= Cnil; |
1757 |
|
T657:; |
1758 |
|
if(((V204))!=Cnil){ |
1759 |
|
goto T660;} |
1760 |
|
base[3]= VV[92]; |
1761 |
|
base[4]= (V200); |
1762 |
|
base[5]= (V201); |
1763 |
|
vs_top=(vs_base=base+3)+3; |
1764 |
|
(void) (*Lnk335)(); |
1765 |
|
vs_top=sup; |
1766 |
|
goto T658; |
1767 |
|
T660:; |
1768 |
|
if(((V203))!=Cnil){ |
1769 |
|
goto T658;} |
1770 |
|
base[3]= VV[93]; |
1771 |
|
base[4]= (V200); |
1772 |
|
base[5]= (V201); |
1773 |
|
vs_top=(vs_base=base+3)+3; |
1774 |
|
(void) (*Lnk343)(); |
1775 |
|
vs_top=sup; |
1776 |
|
T658:; |
1777 |
|
base[3]= (V200); |
1778 |
|
vs_top=(vs_base=base+3)+1; |
1779 |
|
return;} |
1780 |
|
} |
1781 |
|
} |
1782 |
|
/* macro definition for LOOP-FINISH */ |
1783 |
|
|
1784 |
|
static L45() |
1785 |
|
{register object *base=vs_base; |
1786 |
|
register object *sup=base+VM37; VC37 |
1787 |
|
vs_check; |
1788 |
|
vs_top=sup; |
1789 |
|
{object V205=base[0]->c.c_cdr;} |
1790 |
|
base[2]= VV[94]; |
1791 |
|
vs_top=(vs_base=base+2)+1; |
1792 |
|
return; |
1793 |
|
} |
1794 |
|
/* function definition for LOOP-TRANSLATE */ |
1795 |
|
|
1796 |
|
static L46() |
1797 |
|
{register object *base=vs_base; |
1798 |
|
register object *sup=base+VM38; VC38 |
1799 |
|
vs_check; |
1800 |
|
bds_check; |
1801 |
|
bds_bind(VV[89],base[0]); |
1802 |
|
bds_bind(VV[95],base[1]); |
1803 |
|
bds_bind(VV[96],base[2]); |
1804 |
|
vs_top=sup; |
1805 |
|
TTL:; |
1806 |
|
bds_bind(VV[97],(VV[89]->s.s_dbind)); |
1807 |
|
bds_bind(VV[88],Cnil); |
1808 |
|
bds_bind(VV[98],Cnil); |
1809 |
|
bds_bind(VV[99],Cnil); |
1810 |
|
bds_bind(VV[100],Cnil); |
1811 |
|
bds_bind(VV[101],Cnil); |
1812 |
|
bds_bind(VV[102],Cnil); |
1813 |
|
bds_bind(VV[103],Cnil); |
1814 |
|
bds_bind(VV[104],Cnil); |
1815 |
|
bds_bind(VV[105],Cnil); |
1816 |
|
bds_bind(VV[106],Cnil); |
1817 |
|
bds_bind(VV[107],Cnil); |
1818 |
|
bds_bind(VV[108],Cnil); |
1819 |
|
bds_bind(VV[109],Cnil); |
1820 |
|
bds_bind(VV[110],Cnil); |
1821 |
|
bds_bind(VV[111],Cnil); |
1822 |
|
bds_bind(VV[112],Cnil); |
1823 |
|
bds_bind(VV[113],Cnil); |
1824 |
|
bds_bind(VV[114],Cnil); |
1825 |
|
bds_bind(VV[115],Cnil); |
1826 |
|
bds_bind(VV[116],Cnil); |
1827 |
|
bds_bind(VV[117],Cnil); |
1828 |
|
bds_bind(VV[118],Cnil); |
1829 |
vs_base=vs_top; |
vs_base=vs_top; |
1830 |
(void) (*Lnk238)(); |
(void) (*Lnk344)(); |
1831 |
vs_top=sup; |
vs_top=sup; |
1832 |
if((VV[18]->s.s_dbind)==Cnil){ |
vs_base=vs_top; |
1833 |
goto T288;} |
(void) (*Lnk345)(); |
|
V73= make_cons((VV[18]->s.s_dbind),(V73)); |
|
|
T288:; |
|
|
V74= car((VV[22]->s.s_dbind)); |
|
|
base[25]= nreverse((VV[57]->s.s_dbind)); |
|
|
base[26]= (VV[37]->s.s_dbind); |
|
|
base[28]= (VV[39]->s.s_dbind); |
|
|
base[29]= (VV[38]->s.s_dbind); |
|
|
V77= nreverse((VV[60]->s.s_dbind)); |
|
|
V78= nreverse((VV[61]->s.s_dbind)); |
|
|
base[30]= listA(4,VV[70],VV[71],VV[72],append(/* INLINE-ARGS */V77,/* INLINE-ARGS */V78)); |
|
|
vs_top=(vs_base=base+28)+3; |
|
|
Lappend(); |
|
|
vs_top=sup; |
|
|
V76= vs_base[0]; |
|
|
base[27]= make_cons(VV[69],V76); |
|
|
vs_top=(vs_base=base+25)+3; |
|
|
Lappend(); |
|
1834 |
vs_top=sup; |
vs_top=sup; |
1835 |
V75= vs_base[0]; |
{register object V206; |
1836 |
V72= list(3,VV[66],/* INLINE-ARGS */V74,list(3,VV[67],(V73),make_cons(VV[68],V75))); |
V207= nreverse((VV[105]->s.s_dbind)); |
1837 |
{object V79; |
V208= nreverse((VV[107]->s.s_dbind)); |
1838 |
register object V80; |
V209= nreverse((VV[108]->s.s_dbind)); |
1839 |
object V81; |
V210= nreverse((VV[110]->s.s_dbind)); |
1840 |
V79= Cnil; |
base[26]= (VV[111]->s.s_dbind); |
1841 |
V80= Cnil; |
base[27]= nreverse((VV[112]->s.s_dbind)); |
1842 |
V81= Cnil; |
vs_top=(vs_base=base+26)+2; |
1843 |
T302:; |
Lreconc(); |
|
if(((VV[54]->s.s_dbind))!=Cnil){ |
|
|
goto T303;} |
|
|
goto T300; |
|
|
T303:; |
|
|
V79= car((VV[54]->s.s_dbind)); |
|
|
(VV[54]->s.s_dbind)= cdr((VV[54]->s.s_dbind)); |
|
|
V80= car((VV[55]->s.s_dbind)); |
|
|
(VV[55]->s.s_dbind)= cdr((VV[55]->s.s_dbind)); |
|
|
V72= make_cons((V72),Cnil); |
|
|
{object V82; |
|
|
V82= car((VV[56]->s.s_dbind)); |
|
|
(VV[56]->s.s_dbind)= cdr((VV[56]->s.s_dbind)); |
|
|
V81= (V82);} |
|
|
if(((V81))!=Cnil){ |
|
|
goto T318;} |
|
|
goto T317; |
|
|
T318:; |
|
|
base[25]= (V81); |
|
|
vs_top=(vs_base=base+25)+1; |
|
|
(void) (*Lnk229)(); |
|
1844 |
vs_top=sup; |
vs_top=sup; |
1845 |
V83= vs_base[0]; |
V211= vs_base[0]; |
1846 |
V72= make_cons(V83,(V72)); |
V206= list(6,VV[119],/* INLINE-ARGS */V207,/* INLINE-ARGS */V208,/* INLINE-ARGS */V209,/* INLINE-ARGS */V210,V211); |
1847 |
T317:; |
T678:; |
1848 |
if((V80)==Cnil){ |
{object V213; |
1849 |
goto T327;} |
V213= CMPcar((VV[117]->s.s_dbind)); |
1850 |
V84= make_cons(VV[73],(V80)); |
(VV[117]->s.s_dbind)= CMPcdr((VV[117]->s.s_dbind)); |
1851 |
V72= make_cons(/* INLINE-ARGS */V84,(V72)); |
V212= (V213);} |
1852 |
T327:; |
V206= list(3,VV[120],V212,(V206)); |
1853 |
V85= nreverse((V79)); |
if(((VV[117]->s.s_dbind))!=Cnil){ |
1854 |
V72= listA(3,VV[67],/* INLINE-ARGS */V85,(V72)); |
goto T687;} |
1855 |
goto T302;} |
goto T676; |
1856 |
T300:; |
T687:; |
1857 |
{register object V86; |
goto T678; |
1858 |
V86= (VV[58]->s.s_dbind); |
T676:; |
1859 |
T335:; |
{register object V214; |
1860 |
if(((V86))!=Cnil){ |
register object V215; |
1861 |
goto T336;} |
V214= (VV[104]->s.s_dbind); |
1862 |
goto T333; |
V215= CMPcar((V214)); |
1863 |
T336:; |
T696:; |
1864 |
V87= car((V86)); |
if(!(((V214))==Cnil)){ |
1865 |
V88= make_cons((V72),Cnil); |
goto T697;} |
1866 |
V72= append(/* INLINE-ARGS */V87,/* INLINE-ARGS */V88); |
goto T692; |
1867 |
V86= cdr((V86)); |
T697:; |
1868 |
goto T335;} |
{object V216; |
1869 |
T333:; |
object V217; |
1870 |
base[25]= (V72); |
object V218; |
1871 |
vs_top=(vs_base=base+25)+1; |
object V219; |
1872 |
|
V216= CMPcar((V215)); |
1873 |
|
V217= CMPcadr((V215)); |
1874 |
|
V218= CMPcaddr((V215)); |
1875 |
|
V219= CMPcadddr((V215)); |
1876 |
|
{register object V220; |
1877 |
|
register object V221; |
1878 |
|
V220= (V219); |
1879 |
|
V221= CMPcar((V220)); |
1880 |
|
T710:; |
1881 |
|
if(!(((V220))==Cnil)){ |
1882 |
|
goto T711;} |
1883 |
|
goto T706; |
1884 |
|
T711:; |
1885 |
|
V222= make_cons((V206),Cnil); |
1886 |
|
V206= append((V221),/* INLINE-ARGS */V222); |
1887 |
|
V220= CMPcdr((V220)); |
1888 |
|
V221= CMPcar((V220)); |
1889 |
|
goto T710;} |
1890 |
|
T706:; |
1891 |
|
if(((V216))!=Cnil){ |
1892 |
|
goto T722;} |
1893 |
|
if(((V217))!=Cnil){ |
1894 |
|
goto T722;} |
1895 |
|
if(((V218))==Cnil){ |
1896 |
|
goto T701;} |
1897 |
|
T722:; |
1898 |
|
{register object V223; |
1899 |
|
V223= make_cons((V206),Cnil); |
1900 |
|
if(((V217))==Cnil){ |
1901 |
|
goto T729;} |
1902 |
|
V224= make_cons(VV[30],(V217)); |
1903 |
|
V223= make_cons(/* INLINE-ARGS */V224,(V223)); |
1904 |
|
T729:; |
1905 |
|
if(((V216))!=Cnil){ |
1906 |
|
goto T736;} |
1907 |
|
V225= VV[121]; |
1908 |
|
goto T734; |
1909 |
|
T736:; |
1910 |
|
if(((VV[63]->s.s_dbind))==Cnil){ |
1911 |
|
goto T739;} |
1912 |
|
V225= CMPcar((VV[63]->s.s_dbind)); |
1913 |
|
goto T734; |
1914 |
|
T739:; |
1915 |
|
V225= VV[29]; |
1916 |
|
T734:; |
1917 |
|
if(((V218))==Cnil){ |
1918 |
|
goto T743;} |
1919 |
|
V227= append((V218),(V223)); |
1920 |
|
V228= make_cons(VV[122],/* INLINE-ARGS */V227); |
1921 |
|
V226= make_cons(/* INLINE-ARGS */V228,Cnil); |
1922 |
|
goto T741; |
1923 |
|
T743:; |
1924 |
|
V226= (V223); |
1925 |
|
T741:; |
1926 |
|
V206= listA(3,V225,(V216),V226);}} |
1927 |
|
T701:; |
1928 |
|
V214= CMPcdr((V214)); |
1929 |
|
V215= CMPcar((V214)); |
1930 |
|
goto T696;} |
1931 |
|
T692:; |
1932 |
|
base[26]= (V206); |
1933 |
|
vs_top=(vs_base=base+26)+1; |
1934 |
bds_unwind1; |
bds_unwind1; |
1935 |
bds_unwind1; |
bds_unwind1; |
1936 |
bds_unwind1; |
bds_unwind1; |
1956 |
bds_unwind1; |
bds_unwind1; |
1957 |
bds_unwind1; |
bds_unwind1; |
1958 |
bds_unwind1; |
bds_unwind1; |
1959 |
return; |
bds_unwind1; |
1960 |
T279:; |
return;} |
|
V71= car((VV[46]->s.s_dbind)); |
|
|
if(!(type_of((V71))==t_symbol)){ |
|
|
goto T348;} |
|
|
{object V89; |
|
|
V89= car((VV[46]->s.s_dbind)); |
|
|
(VV[46]->s.s_dbind)= cdr((VV[46]->s.s_dbind)); |
|
|
goto T346;} |
|
|
T348:; |
|
|
V71= VV[74]; |
|
|
T346:; |
|
|
base[25]= (V71); |
|
|
base[26]= VV[27]; |
|
|
vs_top=(vs_base=base+25)+2; |
|
|
(void) (*Lnk231)(); |
|
|
vs_top=sup; |
|
|
V72= vs_base[0]; |
|
|
if(((V72))==Cnil){ |
|
|
goto T357;} |
|
|
base[25]= cadr((V72)); |
|
|
{object V90; |
|
|
V90= cddr((V72)); |
|
|
vs_top=base+26; |
|
|
while(!endp(V90)) |
|
|
{vs_push(car(V90));V90=cdr(V90);} |
|
|
vs_base=base+26;} |
|
|
super_funcall_no_event(base[25]); |
|
|
vs_top=sup; |
|
|
goto T355; |
|
|
T357:; |
|
|
base[25]= (V71); |
|
|
base[26]= VV[28]; |
|
|
vs_top=(vs_base=base+25)+2; |
|
|
(void) (*Lnk231)(); |
|
|
vs_top=sup; |
|
|
V72= vs_base[0]; |
|
|
if(((V72))==Cnil){ |
|
|
goto T365;} |
|
|
base[25]= (V72); |
|
|
vs_top=(vs_base=base+25)+1; |
|
|
(void) (*Lnk239)(); |
|
|
vs_top=sup; |
|
|
goto T355; |
|
|
T365:; |
|
|
base[25]= (V71); |
|
|
base[26]= VV[75]; |
|
|
vs_top=(vs_base=base+25)+2; |
|
|
(void) (*Lnk240)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T372;} |
|
|
base[25]= VV[2]; |
|
|
base[26]= VV[76]; |
|
|
base[27]= list(3,(V71),car((VV[46]->s.s_dbind)),cadr((VV[46]->s.s_dbind))); |
|
|
vs_top=(vs_base=base+25)+3; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
goto T355; |
|
|
T372:; |
|
|
base[25]= VV[2]; |
|
|
base[26]= VV[77]; |
|
|
base[27]= (V71); |
|
|
vs_top=(vs_base=base+25)+3; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
T355:; |
|
|
goto T278;} |
|
1961 |
} |
} |
1962 |
/* function definition for LOOP-BIND-BLOCK */ |
/* function definition for LOOP-ITERATION-DRIVER */ |
1963 |
|
|
1964 |
static L22() |
static L47() |
1965 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1966 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM39; VC39 |
1967 |
vs_reserve(VM22); |
vs_check; |
|
check_arg(0); |
|
1968 |
vs_top=sup; |
vs_top=sup; |
1969 |
TTL:; |
TTL:; |
1970 |
if((symbol_value(VV[49]))==Cnil){ |
T751:; |
1971 |
goto T385;} |
if(((VV[89]->s.s_dbind))!=Cnil){ |
1972 |
setq(VV[54],make_cons(symbol_value(VV[49]),symbol_value(VV[54]))); |
goto T752;} |
|
setq(VV[55],make_cons(symbol_value(VV[52]),symbol_value(VV[55]))); |
|
|
setq(VV[49],Cnil); |
|
|
setq(VV[52],Cnil); |
|
|
setq(VV[56],make_cons(symbol_value(VV[53]),symbol_value(VV[56]))); |
|
|
setq(VV[53],Cnil); |
|
1973 |
base[0]= Cnil; |
base[0]= Cnil; |
1974 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1975 |
return; |
return; |
1976 |
T385:; |
T752:; |
1977 |
base[0]= Cnil; |
{register object V229; |
1978 |
|
register object V230; |
1979 |
|
V229= CMPcar((VV[89]->s.s_dbind)); |
1980 |
|
V230= Cnil; |
1981 |
|
if(type_of((V229))==t_symbol){ |
1982 |
|
goto T759;} |
1983 |
|
base[0]= VV[123]; |
1984 |
|
base[1]= (V229); |
1985 |
|
vs_top=(vs_base=base+0)+2; |
1986 |
|
(void) (*Lnk343)(); |
1987 |
|
vs_top=sup; |
1988 |
|
goto T756; |
1989 |
|
T759:; |
1990 |
|
(VV[88]->s.s_dbind)= (VV[89]->s.s_dbind); |
1991 |
|
vs_base=vs_top; |
1992 |
|
(void) (*Lnk346)(); |
1993 |
|
vs_top=sup; |
1994 |
|
base[0]= (V229); |
1995 |
|
base[1]= STREF(object,(VV[96]->s.s_dbind),0); |
1996 |
|
vs_top=(vs_base=base+0)+2; |
1997 |
|
(void) (*Lnk347)(); |
1998 |
|
vs_top=sup; |
1999 |
|
V230= vs_base[0]; |
2000 |
|
if(((V230))==Cnil){ |
2001 |
|
goto T767;} |
2002 |
|
base[1]= CMPcar((V230)); |
2003 |
|
vs_top=(vs_base=base+1)+1; |
2004 |
|
Lsymbol_function(); |
2005 |
|
vs_top=sup; |
2006 |
|
base[0]= vs_base[0]; |
2007 |
|
{object V231; |
2008 |
|
V231= CMPcdr((V230)); |
2009 |
|
vs_top=base+1; |
2010 |
|
while(V231!=Cnil) |
2011 |
|
{vs_push((V231)->c.c_car);V231=(V231)->c.c_cdr;} |
2012 |
|
vs_base=base+1;} |
2013 |
|
super_funcall_no_event(base[0]); |
2014 |
|
vs_top=sup; |
2015 |
|
goto T756; |
2016 |
|
T767:; |
2017 |
|
base[0]= (V229); |
2018 |
|
base[1]= STREF(object,(VV[96]->s.s_dbind),4); |
2019 |
|
vs_top=(vs_base=base+0)+2; |
2020 |
|
(void) (*Lnk347)(); |
2021 |
|
vs_top=sup; |
2022 |
|
V230= vs_base[0]; |
2023 |
|
if(((V230))==Cnil){ |
2024 |
|
goto T776;} |
2025 |
|
base[0]= (V230); |
2026 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2027 |
return; |
(void) (*Lnk348)(); |
2028 |
|
vs_top=sup; |
2029 |
|
goto T756; |
2030 |
|
T776:; |
2031 |
|
base[0]= (V229); |
2032 |
|
base[1]= VV[124]; |
2033 |
|
vs_top=(vs_base=base+0)+2; |
2034 |
|
(void) (*Lnk349)(); |
2035 |
|
vs_top=sup; |
2036 |
|
if((vs_base[0])==Cnil){ |
2037 |
|
goto T783;} |
2038 |
|
base[0]= VV[125]; |
2039 |
|
base[1]= (V229); |
2040 |
|
base[2]= CMPcar((VV[89]->s.s_dbind)); |
2041 |
|
base[3]= CMPcadr((VV[89]->s.s_dbind)); |
2042 |
|
vs_top=(vs_base=base+0)+4; |
2043 |
|
(void) (*Lnk343)(); |
2044 |
|
vs_top=sup; |
2045 |
|
goto T756; |
2046 |
|
T783:; |
2047 |
|
base[0]= VV[126]; |
2048 |
|
base[1]= (V229); |
2049 |
|
vs_top=(vs_base=base+0)+2; |
2050 |
|
(void) (*Lnk343)(); |
2051 |
|
vs_top=sup;} |
2052 |
|
T756:; |
2053 |
|
goto T751; |
2054 |
} |
} |
2055 |
/* function definition for LOOP-GET-PROGN-1 */ |
/* function definition for LOOP-POP-SOURCE */ |
2056 |
|
|
2057 |
static L23() |
static L48() |
2058 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2059 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM40; VC40 |
2060 |
vs_reserve(VM23); |
vs_check; |
|
check_arg(0); |
|
2061 |
vs_top=sup; |
vs_top=sup; |
2062 |
TTL:; |
TTL:; |
2063 |
{register object V91; |
if(((VV[89]->s.s_dbind))==Cnil){ |
2064 |
register object V92; |
goto T796;} |
2065 |
{object V94; |
{object V232; |
2066 |
V94= car(symbol_value(VV[46])); |
V232= CMPcar((VV[89]->s.s_dbind)); |
2067 |
setq(VV[46],cdr(symbol_value(VV[46]))); |
(VV[89]->s.s_dbind)= CMPcdr((VV[89]->s.s_dbind)); |
2068 |
V93= (V94);} |
base[0]= (V232); |
2069 |
V91= make_cons(V93,Cnil); |
vs_top=(vs_base=base+0)+1; |
2070 |
V92= car(symbol_value(VV[46])); |
return;} |
2071 |
T405:; |
T796:; |
2072 |
if(!(type_of((V92))!=t_cons)){ |
base[0]= VV[127]; |
|
goto T406;} |
|
|
base[0]= nreverse((V91)); |
|
2073 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2074 |
|
(void) (*Lnk343)(); |
2075 |
return; |
return; |
|
T406:; |
|
|
{register object V96; |
|
|
V96= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46]))); |
|
|
V95= (V96);} |
|
|
V91= make_cons(V95,(V91)); |
|
|
V92= car(symbol_value(VV[46])); |
|
|
goto T405;} |
|
2076 |
} |
} |
2077 |
/* function definition for LOOP-GET-PROGN */ |
/* function definition for LOOP-GET-PROGN */ |
2078 |
|
|
2079 |
static L24() |
static L49() |
2080 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2081 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM41; VC41 |
2082 |
vs_reserve(VM24); |
vs_check; |
|
check_arg(0); |
|
2083 |
vs_top=sup; |
vs_top=sup; |
2084 |
TTL:; |
TTL:; |
2085 |
{object V97; |
{register object V233; |
2086 |
|
register object V234; |
2087 |
vs_base=vs_top; |
vs_base=vs_top; |
2088 |
(void) (*Lnk241)(); |
(void) (*Lnk346)(); |
2089 |
vs_top=sup; |
vs_top=sup; |
2090 |
V97= vs_base[0]; |
V235= vs_base[0]; |
2091 |
if((cdr((V97)))!=Cnil){ |
V233= make_cons(V235,Cnil); |
2092 |
goto T420;} |
V234= CMPcar((VV[89]->s.s_dbind)); |
2093 |
base[0]= car((V97)); |
T806:; |
2094 |
|
if(!(type_of((V234))!=t_cons)){ |
2095 |
|
goto T807;} |
2096 |
|
if((CMPcdr((V233)))!=Cnil){ |
2097 |
|
goto T811;} |
2098 |
|
base[0]= CMPcar((V233)); |
2099 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2100 |
return; |
return; |
2101 |
T420:; |
T811:; |
2102 |
base[0]= make_cons(VV[44],(V97)); |
V236= nreverse((V233)); |
2103 |
|
base[0]= make_cons(VV[14],/* INLINE-ARGS */V236); |
2104 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2105 |
return;} |
return; |
2106 |
|
T807:; |
2107 |
|
vs_base=vs_top; |
2108 |
|
(void) (*Lnk346)(); |
2109 |
|
vs_top=sup; |
2110 |
|
V237= vs_base[0]; |
2111 |
|
V233= make_cons(V237,(V233)); |
2112 |
|
V234= CMPcar((VV[89]->s.s_dbind)); |
2113 |
|
goto T806;} |
2114 |
} |
} |
2115 |
/* function definition for LOOP-GET-FORM */ |
/* function definition for LOOP-GET-FORM */ |
2116 |
|
|
2117 |
static L25() |
static L50() |
2118 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2119 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM42; VC42 |
2120 |
vs_reserve(VM25); |
vs_check; |
2121 |
{object V98; |
vs_top=sup; |
2122 |
check_arg(1); |
TTL:; |
2123 |
V98=(base[0]); |
if(((VV[89]->s.s_dbind))==Cnil){ |
2124 |
vs_top=sup; |
goto T820;} |
2125 |
TTL:; |
vs_base=vs_top; |
2126 |
{register object V99; |
(void) (*Lnk346)(); |
2127 |
vs_base=vs_top; |
return; |
2128 |
(void) (*Lnk241)(); |
T820:; |
2129 |
vs_top=sup; |
base[0]= VV[128]; |
2130 |
V99= vs_base[0]; |
vs_top=(vs_base=base+0)+1; |
2131 |
if((cdr((V99)))!=Cnil){ |
(void) (*Lnk343)(); |
2132 |
goto T424;} |
return; |
|
base[1]= car((V99)); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
return; |
|
|
T424:; |
|
|
if(!(type_of((V98))!=t_cons)){ |
|
|
goto T429;} |
|
|
V100= make_cons((V98),(V99)); |
|
|
goto T427; |
|
|
T429:; |
|
|
V100= append((V98),(V99)); |
|
|
T427:; |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI5))(VV[78],V100))); |
|
|
base[1]= make_cons(VV[44],(V99)); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
return;} |
|
|
} |
|
2133 |
} |
} |
2134 |
/* function definition for LOOP-TYPED-ARITH */ |
/* function definition for LOOP-CONSTRUCT-RETURN */ |
2135 |
|
|
2136 |
static L26() |
static L51() |
2137 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2138 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM43; VC43 |
2139 |
vs_reserve(VM26); |
vs_check; |
2140 |
{object V101; |
{object V238; |
2141 |
object V102; |
V238=(base[0]); |
|
check_arg(2); |
|
|
V101=(base[0]); |
|
|
V102=(base[1]); |
|
2142 |
vs_top=sup; |
vs_top=sup; |
2143 |
TTL:; |
TTL:; |
2144 |
base[2]= (V101); |
base[1]= list(3,VV[86],CMPcar((VV[117]->s.s_dbind)),(V238)); |
2145 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+1)+1; |
2146 |
return; |
return; |
2147 |
} |
} |
2148 |
} |
} |
2149 |
/* function definition for LOOP-TYPED-INIT */ |
/* function definition for LOOP-PSEUDO-BODY */ |
2150 |
|
|
2151 |
static L27() |
static L52() |
2152 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2153 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM44; VC44 |
2154 |
vs_reserve(VM27); |
vs_check; |
2155 |
{object V103; |
{object V239; |
2156 |
check_arg(1); |
V239=(base[0]); |
|
V103=(base[0]); |
|
2157 |
vs_top=sup; |
vs_top=sup; |
2158 |
TTL:; |
TTL:; |
2159 |
{object V104; |
if(((VV[109]->s.s_dbind))!=Cnil){ |
2160 |
V104= Cnil; |
goto T823;} |
2161 |
base[1]= (V103); |
if(((VV[114]->s.s_dbind))==Cnil){ |
2162 |
base[2]= VV[79]; |
goto T824;} |
2163 |
vs_top=(vs_base=base+1)+2; |
T823:; |
2164 |
(void) (*Lnk240)(); |
(VV[108]->s.s_dbind)= make_cons((V239),(VV[108]->s.s_dbind)); |
2165 |
vs_top=sup; |
base[1]= (VV[108]->s.s_dbind); |
|
if((vs_base[0])==Cnil){ |
|
|
goto T432;} |
|
|
base[1]= small_fixnum(0); |
|
2166 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2167 |
return; |
return; |
2168 |
T432:; |
T824:; |
2169 |
base[1]= (V103); |
(VV[107]->s.s_dbind)= make_cons((V239),(VV[107]->s.s_dbind)); |
2170 |
base[2]= symbol_value(VV[80]); |
(VV[110]->s.s_dbind)= make_cons((V239),(VV[110]->s.s_dbind)); |
2171 |
vs_top=(vs_base=base+1)+2; |
base[1]= (VV[110]->s.s_dbind); |
|
(void) (*Lnk240)(); |
|
|
vs_top=sup; |
|
|
V105= vs_base[0]; |
|
|
V104= car(V105); |
|
|
if(((V104))==Cnil){ |
|
|
goto T437;} |
|
|
{register object x= (V104),V106= VV[81]; |
|
|
while(!endp(V106)) |
|
|
if(eql(x,V106->c.c_car)){ |
|
|
goto T445; |
|
|
}else V106=V106->c.c_cdr; |
|
|
goto T444;} |
|
|
T445:; |
|
|
base[1]= VV[82]; |
|
2172 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2173 |
return; |
return; |
2174 |
T444:; |
} |
2175 |
base[1]= (*(LnkLI242))(small_fixnum(0),(V104)); |
} |
2176 |
|
/* function definition for LOOP-EMIT-BODY */ |
2177 |
|
|
2178 |
|
static L53() |
2179 |
|
{register object *base=vs_base; |
2180 |
|
register object *sup=base+VM45; VC45 |
2181 |
|
vs_check; |
2182 |
|
{object V240; |
2183 |
|
V240=(base[0]); |
2184 |
|
vs_top=sup; |
2185 |
|
TTL:; |
2186 |
|
(VV[109]->s.s_dbind)= Ct; |
2187 |
|
base[1]= (V240); |
2188 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2189 |
|
(void) (*Lnk350)(); |
2190 |
return; |
return; |
|
T437:; |
|
|
base[1]= Cnil; |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
return;} |
|
2191 |
} |
} |
2192 |
} |
} |
2193 |
/* function definition for LOOP-MAKE-VARIABLE */ |
/* function definition for LOOP-EMIT-FINAL-VALUE */ |
2194 |
|
|
2195 |
static L28() |
static L54() |
2196 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2197 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM46; VC46 |
2198 |
vs_reserve(VM28); |
vs_check; |
2199 |
{register object V107; |
{object V241; |
2200 |
register object V108; |
V241=(base[0]); |
|
register object V109; |
|
|
check_arg(3); |
|
|
V107=(base[0]); |
|
|
V108=(base[1]); |
|
|
V109=(base[2]); |
|
2201 |
vs_top=sup; |
vs_top=sup; |
2202 |
TTL:; |
TTL:; |
2203 |
if(((V107))!=Cnil){ |
base[1]= (V241); |
2204 |
goto T448;} |
vs_top=(vs_base=base+1)+1; |
2205 |
if(((V108))==Cnil){ |
(void) (*Lnk351)(); |
|
goto T446;} |
|
|
base[3]= VV[83]; |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
Lgentemp(); |
|
|
vs_top=sup; |
|
|
V107= vs_base[0]; |
|
|
V110= list(2,(V107),(V108)); |
|
|
setq(VV[49],make_cons(/* INLINE-ARGS */V110,symbol_value(VV[49]))); |
|
|
V111= list(2,VV[84],(V107)); |
|
|
setq(VV[52],make_cons(/* INLINE-ARGS */V111,symbol_value(VV[52]))); |
|
|
goto T446; |
|
|
T448:; |
|
|
if(!(type_of((V107))!=t_cons)){ |
|
|
goto T458;} |
|
|
if((symbol_value(VV[48]))==Cnil){ |
|
|
goto T462;} |
|
|
{register object x= (V107),V112= symbol_value(VV[47]); |
|
|
while(!endp(V112)) |
|
|
if(eql(x,V112->c.c_car)){ |
|
|
goto T466; |
|
|
}else V112=V112->c.c_cdr; |
|
|
goto T465;} |
|
|
T466:; |
|
|
base[3]= VV[2]; |
|
|
base[4]= VV[85]; |
|
|
base[5]= (V107); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
goto T460; |
|
|
T465:; |
|
|
setq(VV[47],make_cons((V107),symbol_value(VV[47]))); |
|
|
goto T460; |
|
|
T462:; |
|
|
{register object x= (V107),V113= symbol_value(VV[49]); |
|
|
while(!endp(V113)) |
|
|
if(type_of(V113->c.c_car)==t_cons &&eql(x,V113->c.c_car->c.c_car)){ |
|
|
goto T472; |
|
|
}else V113=V113->c.c_cdr; |
|
|
goto T460;} |
|
|
T472:; |
|
|
base[3]= VV[2]; |
|
|
base[4]= VV[86]; |
|
|
base[5]= (V107); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
T460:; |
|
|
if(!(type_of((V107))==t_symbol)){ |
|
|
goto T477;} |
|
|
goto T476; |
|
|
T477:; |
|
|
base[3]= VV[2]; |
|
|
base[4]= VV[87]; |
|
|
base[5]= (V107); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
T476:; |
|
|
base[3]= (V107); |
|
|
base[4]= (V109); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk92)(); |
|
|
vs_top=sup; |
|
|
if((V108)!=Cnil){ |
|
|
V114= (V108); |
|
|
goto T486;} |
|
|
base[3]= (V109); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
(void) (*Lnk243)(); |
|
|
vs_top=sup; |
|
|
V114= vs_base[0]; |
|
|
T486:; |
|
|
V115= list(2,(V107),V114); |
|
|
setq(VV[49],make_cons(/* INLINE-ARGS */V115,symbol_value(VV[49]))); |
|
|
goto T446; |
|
|
T458:; |
|
|
if(((V108))==Cnil){ |
|
|
goto T489;} |
|
|
if((symbol_value(VV[14]))==Cnil){ |
|
|
goto T492;} |
|
|
base[3]= (V107); |
|
|
base[4]= (V109); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk92)(); |
|
|
vs_top=sup; |
|
|
V116= list(2,(V107),(V108)); |
|
|
setq(VV[49],make_cons(/* INLINE-ARGS */V116,symbol_value(VV[49]))); |
|
|
goto T446; |
|
|
T492:; |
|
|
{object V117; |
|
|
base[3]= VV[88]; |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
Lgentemp(); |
|
|
vs_top=sup; |
|
|
V117= vs_base[0]; |
|
|
V118= list(2,(V117),(V108)); |
|
|
setq(VV[49],make_cons(/* INLINE-ARGS */V118,symbol_value(VV[49]))); |
|
|
setq(VV[53],listA(3,(V107),(V117),symbol_value(VV[53]))); |
|
|
base[3]= (V107); |
|
|
base[4]= Cnil; |
|
|
base[5]= (V109); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk236)(); |
|
2206 |
vs_top=sup; |
vs_top=sup; |
2207 |
goto T446;} |
V242= vs_base[0]; |
2208 |
T489:; |
(VV[112]->s.s_dbind)= make_cons(V242,(VV[112]->s.s_dbind)); |
2209 |
{object V119; |
if(((VV[113]->s.s_dbind))==Cnil){ |
2210 |
object V120; |
goto T839;} |
2211 |
V119= Cnil; |
base[1]= VV[129]; |
2212 |
V120= Cnil; |
base[2]= (VV[113]->s.s_dbind); |
2213 |
if(!(type_of((V109))!=t_cons)){ |
vs_top=(vs_base=base+1)+2; |
2214 |
goto T509;} |
(void) (*Lnk335)(); |
|
V120= (V109); |
|
|
V119= (V120); |
|
|
goto T507; |
|
|
T509:; |
|
|
V119= car((V109)); |
|
|
V120= cdr((V109)); |
|
|
T507:; |
|
|
base[3]= car((V107)); |
|
|
base[4]= Cnil; |
|
|
base[5]= (V119); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk236)(); |
|
2215 |
vs_top=sup; |
vs_top=sup; |
2216 |
base[3]= cdr((V107)); |
T839:; |
2217 |
base[4]= Cnil; |
(VV[113]->s.s_dbind)= CMPcar((VV[88]->s.s_dbind)); |
2218 |
base[5]= (V120); |
base[1]= (VV[113]->s.s_dbind); |
2219 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+1)+1; |
|
(void) (*Lnk236)(); |
|
|
vs_top=sup;} |
|
|
T446:; |
|
|
base[3]= (V107); |
|
|
vs_top=(vs_base=base+3)+1; |
|
2220 |
return; |
return; |
2221 |
} |
} |
2222 |
} |
} |
2223 |
/* function definition for LOOP-MAKE-ITERATION-VARIABLE */ |
/* function definition for LOOP-DISALLOW-CONDITIONAL */ |
2224 |
|
|
2225 |
static L29() |
static L55() |
2226 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2227 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM47; VC47 |
2228 |
vs_reserve(VM29); |
vs_check; |
2229 |
bds_check; |
{object V243; |
2230 |
{object V121; |
if(vs_base>=vs_top){vs_top=sup;goto T845;} |
2231 |
object V122; |
V243=(base[0]); |
2232 |
object V123; |
vs_top=sup; |
2233 |
check_arg(3); |
goto T846; |
2234 |
V121=(base[0]); |
T845:; |
2235 |
V122=(base[1]); |
V243= Cnil; |
2236 |
V123=(base[2]); |
T846:; |
2237 |
vs_top=sup; |
if(((VV[114]->s.s_dbind))==Cnil){ |
2238 |
TTL:; |
goto T849;} |
2239 |
bds_bind(VV[48],Ct); |
base[1]= VV[130]; |
2240 |
base[4]= (V121); |
base[2]= (V243); |
2241 |
base[5]= (V122); |
vs_top=(vs_base=base+1)+2; |
2242 |
base[6]= (V123); |
(void) (*Lnk343)(); |
2243 |
vs_top=(vs_base=base+4)+3; |
return; |
2244 |
(void) (*Lnk236)(); |
T849:; |
2245 |
bds_unwind1; |
base[1]= Cnil; |
2246 |
|
vs_top=(vs_base=base+1)+1; |
2247 |
return; |
return; |
2248 |
} |
} |
2249 |
} |
} |
2250 |
/* function definition for LOOP-DECLARE-VARIABLE */ |
/* function definition for LOOP-TYPED-INIT */ |
2251 |
|
|
2252 |
static L30() |
static L56() |
2253 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2254 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM48; VC48 |
2255 |
vs_reserve(VM30); |
vs_check; |
2256 |
{register object V124; |
{register object V244; |
2257 |
register object V125; |
V244=(base[0]); |
|
check_arg(2); |
|
|
V124=(base[0]); |
|
|
V125=(base[1]); |
|
2258 |
vs_top=sup; |
vs_top=sup; |
2259 |
TTL:; |
TTL:; |
2260 |
if(((V124))==Cnil){ |
if(((V244))==Cnil){ |
2261 |
goto T526;} |
goto T854;} |
2262 |
if(((V125))!=Cnil){ |
base[1]= (V244); |
2263 |
goto T527;} |
base[2]= VV[131]; |
2264 |
T526:; |
vs_top=(vs_base=base+1)+2; |
2265 |
base[2]= Cnil; |
(void) (*Lnk323)(); |
|
vs_top=(vs_base=base+2)+1; |
|
|
return; |
|
|
T527:; |
|
|
if(!(type_of((V124))==t_symbol)){ |
|
|
goto T532;} |
|
|
{register object x= (V124),V126= symbol_value(VV[50]); |
|
|
while(!endp(V126)) |
|
|
if(eql(x,V126->c.c_car)){ |
|
|
goto T532; |
|
|
}else V126=V126->c.c_cdr;} |
|
|
base[2]= (V125); |
|
|
base[3]= VV[90]; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk244)(); |
|
2266 |
vs_top=sup; |
vs_top=sup; |
2267 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2268 |
goto T539;} |
goto T854;} |
2269 |
V127= Ct; |
base[1]= (V244); |
2270 |
goto T537; |
base[2]= VV[132]; |
2271 |
T539:; |
vs_top=(vs_base=base+1)+2; |
2272 |
V127= (V125); |
(void) (*Lnk323)(); |
|
T537:; |
|
|
V128= list(3,VV[89],V127,(V124)); |
|
|
setq(VV[52],make_cons(/* INLINE-ARGS */V128,symbol_value(VV[52]))); |
|
|
base[2]= symbol_value(VV[52]); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
return; |
|
|
T532:; |
|
|
if(!(type_of((V124))==t_cons)){ |
|
|
goto T544;} |
|
|
if(!(type_of((V125))==t_cons)){ |
|
|
goto T547;} |
|
|
base[2]= car((V124)); |
|
|
base[3]= car((V125)); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk92)(); |
|
2273 |
vs_top=sup; |
vs_top=sup; |
2274 |
V124= cdr((V124)); |
if((vs_base[0])!=Cnil){ |
2275 |
V125= cdr((V125)); |
goto T860;} |
2276 |
goto TTL; |
base[1]= (V244); |
2277 |
T547:; |
base[2]= VV[133]; |
2278 |
base[2]= car((V124)); |
vs_top=(vs_base=base+1)+2; |
2279 |
base[3]= (V125); |
(void) (*Lnk323)(); |
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk92)(); |
|
2280 |
vs_top=sup; |
vs_top=sup; |
2281 |
V124= cdr((V124)); |
if((vs_base[0])==Cnil){ |
2282 |
goto TTL; |
goto T861;} |
2283 |
T544:; |
T860:; |
2284 |
base[2]= VV[2]; |
base[1]= small_fixnum(0); |
2285 |
base[3]= VV[91]; |
base[2]= (V244); |
2286 |
base[4]= list(3,VV[92],(V124),(V125)); |
vs_top=(vs_base=base+1)+2; |
2287 |
vs_top=(vs_base=base+2)+3; |
(void) (*Lnk352)(); |
|
Lerror(); |
|
2288 |
return; |
return; |
2289 |
} |
T861:; |
2290 |
} |
base[1]= small_fixnum(0); |
2291 |
/* function definition for LOOP-CONSTANTP */ |
vs_top=(vs_base=base+1)+1; |
2292 |
|
return; |
2293 |
static L31() |
T854:; |
2294 |
{register object *base=vs_base; |
base[1]= Cnil; |
|
register object *sup=base+VM31; VC31 |
|
|
vs_reserve(VM31); |
|
|
{object V129; |
|
|
check_arg(1); |
|
|
V129=(base[0]); |
|
|
vs_top=sup; |
|
|
TTL:; |
|
|
base[1]= (V129); |
|
2295 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
|
Lconstantp(); |
|
2296 |
return; |
return; |
2297 |
} |
} |
2298 |
} |
} |
2299 |
/* function definition for LOOP-MAYBE-BIND-FORM */ |
/* function definition for LOOP-OPTIONAL-TYPE */ |
2300 |
|
|
2301 |
static L32() |
static L57() |
2302 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2303 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM49; VC49 |
2304 |
vs_reserve(VM32); |
vs_check; |
2305 |
{object V130; |
if(vs_base>=vs_top){vs_top=sup;goto T871;} |
|
object V131; |
|
|
check_arg(2); |
|
|
V130=(base[0]); |
|
|
V131=(base[1]); |
|
2306 |
vs_top=sup; |
vs_top=sup; |
2307 |
TTL:; |
goto T872; |
2308 |
base[2]= (V130); |
T871:; |
2309 |
vs_top=(vs_base=base+2)+1; |
base[0]= Cnil; |
2310 |
(void) (*Lnk245)(); |
T872:; |
2311 |
|
if((VV[89]->s.s_dbind)==Cnil){ |
2312 |
|
base[1]= Cnil; |
2313 |
|
vs_top=(vs_base=base+1)+1; |
2314 |
|
return;} |
2315 |
|
base[1]= CMPcar((VV[89]->s.s_dbind)); |
2316 |
|
base[2]= base[1]; |
2317 |
|
base[3]= VV[134]; |
2318 |
|
vs_top=(vs_base=base+2)+2; |
2319 |
|
(void) (*Lnk353)(); |
2320 |
vs_top=sup; |
vs_top=sup; |
2321 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2322 |
goto T566;} |
goto T876;} |
2323 |
base[2]= (V130); |
vs_base=vs_top; |
2324 |
|
(void) (*Lnk346)(); |
2325 |
|
vs_top=sup; |
2326 |
|
vs_base=vs_top; |
2327 |
|
(void) (*Lnk346)(); |
2328 |
|
return; |
2329 |
|
T876:; |
2330 |
|
if(!(type_of(base[1])==t_symbol)){ |
2331 |
|
goto T882;} |
2332 |
|
{object V245;{object V246; |
2333 |
|
base[2]= base[1]; |
2334 |
|
base[3]= STREF(object,(VV[96]->s.s_dbind),16); |
2335 |
|
vs_top=(vs_base=base+2)+2; |
2336 |
|
Lgethash(); |
2337 |
|
vs_top=sup; |
2338 |
|
V246= vs_base[0]; |
2339 |
|
if(V246==Cnil)goto T885; |
2340 |
|
V245= V246; |
2341 |
|
goto T884; |
2342 |
|
T885:;} |
2343 |
|
base[2]= symbol_name(base[1]); |
2344 |
|
base[3]= STREF(object,(VV[96]->s.s_dbind),20); |
2345 |
|
vs_top=(vs_base=base+2)+2; |
2346 |
|
Lgethash(); |
2347 |
|
vs_top=sup; |
2348 |
|
V245= vs_base[0]; |
2349 |
|
T884:; |
2350 |
|
if(((V245))==Cnil){ |
2351 |
|
goto T892;} |
2352 |
|
vs_base=vs_top; |
2353 |
|
(void) (*Lnk346)(); |
2354 |
|
vs_top=sup; |
2355 |
|
base[2]= (V245); |
2356 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2357 |
return; |
return; |
2358 |
T566:; |
T892:; |
2359 |
base[3]= VV[93]; |
base[2]= Cnil; |
2360 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+2)+1; |
2361 |
Lgentemp(); |
return;} |
2362 |
|
T882:; |
2363 |
|
if(!(type_of(base[0])==t_cons)){ |
2364 |
|
goto T897;} |
2365 |
|
if(type_of(base[1])==t_cons){ |
2366 |
|
goto T895;} |
2367 |
|
base[2]= VV[135]; |
2368 |
|
base[3]= base[1]; |
2369 |
|
vs_top=(vs_base=base+2)+2; |
2370 |
|
(void) (*Lnk343)(); |
2371 |
vs_top=sup; |
vs_top=sup; |
2372 |
base[2]= vs_base[0]; |
goto T895; |
2373 |
base[3]= (V130); |
T897:; |
2374 |
base[4]= (V131); |
base[2]= VV[136]; |
2375 |
vs_top=(vs_base=base+2)+3; |
base[3]= base[1]; |
2376 |
(void) (*Lnk236)(); |
vs_top=(vs_base=base+2)+2; |
2377 |
|
(void) (*Lnk343)(); |
2378 |
|
vs_top=sup; |
2379 |
|
T895:; |
2380 |
|
vs_base=vs_top; |
2381 |
|
(void) (*Lnk346)(); |
2382 |
|
vs_top=sup; |
2383 |
|
base[2]= base[1]; |
2384 |
|
base[3]= base[0]; |
2385 |
|
vs_top=(vs_base=base+2)+2; |
2386 |
|
L58(base); |
2387 |
return; |
return; |
|
} |
|
2388 |
} |
} |
2389 |
/* function definition for LOOP-OPTIONAL-TYPE */ |
/* function definition for LOOP-BIND-BLOCK */ |
2390 |
|
|
2391 |
static L33() |
static L60() |
2392 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2393 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM50; VC50 |
2394 |
vs_reserve(VM33); |
vs_check; |
|
check_arg(0); |
|
2395 |
vs_top=sup; |
vs_top=sup; |
2396 |
TTL:; |
TTL:; |
2397 |
{register object V132; |
if(((VV[99]->s.s_dbind))!=Cnil){ |
2398 |
V132= car(symbol_value(VV[46])); |
goto T908;} |
2399 |
if(((((V132))==Cnil?Ct:Cnil))==Cnil){ |
if(((VV[102]->s.s_dbind))!=Cnil){ |
2400 |
goto T574;} |
goto T908;} |
2401 |
|
if(((VV[106]->s.s_dbind))==Cnil){ |
2402 |
|
goto T909;} |
2403 |
|
T908:; |
2404 |
|
V247= nreverse((VV[99]->s.s_dbind)); |
2405 |
|
V248= list(4,/* INLINE-ARGS */V247,(VV[102]->s.s_dbind),(VV[103]->s.s_dbind),(VV[106]->s.s_dbind)); |
2406 |
|
(VV[104]->s.s_dbind)= make_cons(/* INLINE-ARGS */V248,(VV[104]->s.s_dbind)); |
2407 |
|
(VV[99]->s.s_dbind)= Cnil; |
2408 |
|
(VV[102]->s.s_dbind)= Cnil; |
2409 |
|
(VV[103]->s.s_dbind)= Cnil; |
2410 |
|
(VV[106]->s.s_dbind)= Cnil; |
2411 |
base[0]= Cnil; |
base[0]= Cnil; |
2412 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2413 |
return; |
return; |
2414 |
T574:; |
T909:; |
|
if(!(((type_of((V132))!=t_cons?Ct:Cnil))==Cnil)){ |
|
|
goto T578;} |
|
|
goto T576; |
|
|
T578:;{object V133; |
|
|
base[0]= (V132); |
|
|
base[1]= VV[94]; |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk240)(); |
|
|
vs_top=sup; |
|
|
V133= vs_base[0]; |
|
|
if(V133==Cnil)goto T580; |
|
|
if((V133)!=Cnil){ |
|
|
goto T576;} |
|
|
goto T577; |
|
|
T580:;} |
|
|
base[0]= (V132); |
|
|
base[1]= symbol_value(VV[80]); |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk240)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
|
goto T576;} |
|
|
T577:; |
|
2415 |
base[0]= Cnil; |
base[0]= Cnil; |
2416 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2417 |
return; |
return; |
|
T576:; |
|
|
{object V134; |
|
|
V134= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46]))); |
|
|
base[0]= (V134); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
return;}} |
|
2418 |
} |
} |
2419 |
/* function definition for LOOP-MAKE-CONDITIONALIZATION */ |
/* function definition for LOOP-MAKE-VARIABLE */ |
2420 |
|
|
2421 |
static L34() |
static L61() |
2422 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2423 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM51; VC51 |
2424 |
vs_reserve(VM34); |
vs_check; |
2425 |
{object V135; |
{register object V249; |
2426 |
check_arg(1); |
register object V250; |
2427 |
V135=(base[0]); |
register object V251; |
2428 |
vs_top=sup; |
object V252; |
2429 |
TTL:; |
V249=(base[0]); |
2430 |
if((symbol_value(VV[62]))==Cnil){ |
V250=(base[1]); |
2431 |
goto T590;} |
V251=(base[2]); |
2432 |
base[3]= symbol_value(VV[62]); |
vs_base=vs_base+3; |
2433 |
vs_top=(vs_base=base+3)+1; |
if(vs_base>=vs_top){vs_top=sup;goto T924;} |
2434 |
Llast(); |
V252=(base[3]); |
|
vs_top=sup; |
|
|
V138= vs_base[0]; |
|
|
base[2]= car(V138); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
Llast(); |
|
2435 |
vs_top=sup; |
vs_top=sup; |
2436 |
V137= vs_base[0]; |
goto T925; |
2437 |
base[1]= car(V137); |
T924:; |
2438 |
vs_top=(vs_base=base+1)+1; |
V252= Cnil; |
2439 |
Llast(); |
T925:; |
2440 |
|
if(((V249))!=Cnil){ |
2441 |
|
goto T929;} |
2442 |
|
if(((V250))==Cnil){ |
2443 |
|
goto T927;} |
2444 |
|
base[4]= VV[139]; |
2445 |
|
vs_top=(vs_base=base+4)+1; |
2446 |
|
(void) (*Lnk324)(); |
2447 |
vs_top=sup; |
vs_top=sup; |
2448 |
V136= vs_base[0]; |
V249= vs_base[0]; |
2449 |
V139= make_cons((V135),Cnil); |
V253= list(2,(V249),(V250)); |
2450 |
if(type_of(V136)!=t_cons)FEwrong_type_argument(Scons,V136); |
(VV[99]->s.s_dbind)= make_cons(/* INLINE-ARGS */V253,(VV[99]->s.s_dbind)); |
2451 |
(V136)->c.c_cdr = /* INLINE-ARGS */V139; |
V254= list(2,VV[140],(V249)); |
2452 |
base[1]= car(symbol_value(VV[46])); |
(VV[102]->s.s_dbind)= make_cons(/* INLINE-ARGS */V254,(VV[102]->s.s_dbind)); |
2453 |
base[2]= VV[95]; |
goto T927; |
2454 |
vs_top=(vs_base=base+1)+2; |
T929:; |
2455 |
(void) (*Lnk244)(); |
if(!(type_of((V249))!=t_cons)){ |
2456 |
|
goto T939;} |
2457 |
|
if(((V252))==Cnil){ |
2458 |
|
goto T943;} |
2459 |
|
{register object x= (V249),V255= (VV[98]->s.s_dbind); |
2460 |
|
while(V255!=Cnil) |
2461 |
|
if(eql(x,V255->c.c_car)){ |
2462 |
|
goto T947; |
2463 |
|
}else V255=V255->c.c_cdr; |
2464 |
|
goto T946;} |
2465 |
|
T947:; |
2466 |
|
base[4]= VV[141]; |
2467 |
|
base[5]= (V249); |
2468 |
|
vs_top=(vs_base=base+4)+2; |
2469 |
|
(void) (*Lnk343)(); |
2470 |
vs_top=sup; |
vs_top=sup; |
2471 |
if((vs_base[0])==Cnil){ |
goto T941; |
2472 |
goto T600;} |
T946:; |
2473 |
{object V140; |
(VV[98]->s.s_dbind)= make_cons((V249),(VV[98]->s.s_dbind)); |
2474 |
V140= car(symbol_value(VV[46])); |
goto T941; |
2475 |
setq(VV[46],cdr(symbol_value(VV[46])));} |
T943:; |
2476 |
base[1]= Cnil; |
{register object x= (V249),V256= (VV[99]->s.s_dbind); |
2477 |
vs_top=(vs_base=base+1)+1; |
while(V256!=Cnil) |
2478 |
return; |
if(eql(x,V256->c.c_car->c.c_car) &&V256->c.c_car != Cnil){ |
2479 |
T600:; |
goto T952; |
2480 |
base[1]= car(symbol_value(VV[46])); |
}else V256=V256->c.c_cdr; |
2481 |
base[2]= VV[96]; |
goto T941;} |
2482 |
vs_top=(vs_base=base+1)+2; |
T952:; |
2483 |
(void) (*Lnk244)(); |
base[4]= VV[142]; |
2484 |
|
base[5]= (V249); |
2485 |
|
vs_top=(vs_base=base+4)+2; |
2486 |
|
(void) (*Lnk343)(); |
2487 |
vs_top=sup; |
vs_top=sup; |
2488 |
if((vs_base[0])==Cnil){ |
T941:; |
2489 |
goto T609;} |
if(type_of((V249))==t_symbol){ |
2490 |
{object V141; |
goto T955;} |
2491 |
V141= car(symbol_value(VV[46])); |
base[4]= VV[143]; |
2492 |
setq(VV[46],cdr(symbol_value(VV[46])));} |
base[5]= (V249); |
2493 |
{object V142; |
vs_top=(vs_base=base+4)+2; |
2494 |
base[1]= symbol_value(VV[62]); |
(void) (*Lnk343)(); |
|
vs_top=(vs_base=base+1)+1; |
|
|
Llast(); |
|
2495 |
vs_top=sup; |
vs_top=sup; |
2496 |
V143= vs_base[0]; |
T955:; |
2497 |
V142= car(V143); |
base[4]= (V249); |
2498 |
{object V144; |
base[5]= (V251); |
2499 |
V144= ((cddr((V142)))==Cnil?Ct:Cnil); |
vs_top=(vs_base=base+4)+2; |
2500 |
if(((V144))==Cnil){ |
(void) (*Lnk354)(); |
|
goto T623;} |
|
|
goto T617; |
|
|
T623:; |
|
|
if((cdr(symbol_value(VV[62])))!=Cnil){ |
|
|
goto T626;} |
|
|
base[1]= VV[2]; |
|
|
base[2]= VV[97]; |
|
|
base[3]= list(3,VV[96],car(symbol_value(VV[46])),cadr(symbol_value(VV[46]))); |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
Lerror(); |
|
2501 |
vs_top=sup; |
vs_top=sup; |
2502 |
goto T617; |
if((V250)!=Cnil){ |
2503 |
T626:; |
V257= (V250); |
2504 |
V145= nreverse(symbol_value(VV[62])); |
goto T964;} |
2505 |
setq(VV[62],cdr(/* INLINE-ARGS */V145)); |
base[4]= (V251); |
2506 |
base[2]= car(symbol_value(VV[62])); |
vs_top=(vs_base=base+4)+1; |
2507 |
vs_top=(vs_base=base+2)+1; |
(void) (*Lnk326)(); |
|
Llast(); |
|
2508 |
vs_top=sup; |
vs_top=sup; |
2509 |
V147= vs_base[0]; |
V257= vs_base[0]; |
2510 |
base[1]= car(V147); |
T964:; |
2511 |
vs_top=(vs_base=base+1)+1; |
V258= list(2,(V249),V257); |
2512 |
Llast(); |
(VV[99]->s.s_dbind)= make_cons(/* INLINE-ARGS */V258,(VV[99]->s.s_dbind)); |
2513 |
|
goto T927; |
2514 |
|
T939:; |
2515 |
|
if(((V250))==Cnil){ |
2516 |
|
goto T967;} |
2517 |
|
if(((VV[63]->s.s_dbind))==Cnil){ |
2518 |
|
goto T970;} |
2519 |
|
base[4]= (V249); |
2520 |
|
base[5]= (V251); |
2521 |
|
vs_top=(vs_base=base+4)+2; |
2522 |
|
(void) (*Lnk354)(); |
2523 |
vs_top=sup; |
vs_top=sup; |
2524 |
V146= vs_base[0]; |
V259= list(2,(V249),(V250)); |
2525 |
V148= make_cons((V142),Cnil); |
(VV[99]->s.s_dbind)= make_cons(/* INLINE-ARGS */V259,(VV[99]->s.s_dbind)); |
2526 |
if(type_of(V146)!=t_cons)FEwrong_type_argument(Scons,V146); |
goto T927; |
2527 |
(V146)->c.c_cdr = /* INLINE-ARGS */V148; |
T970:; |
2528 |
setq(VV[62],nreverse(symbol_value(VV[62])));}} |
{object V260; |
2529 |
T617:; |
base[4]= VV[144]; |
2530 |
base[2]= symbol_value(VV[62]); |
vs_top=(vs_base=base+4)+1; |
2531 |
vs_top=(vs_base=base+2)+1; |
(void) (*Lnk324)(); |
|
Llast(); |
|
2532 |
vs_top=sup; |
vs_top=sup; |
2533 |
V150= vs_base[0]; |
V260= vs_base[0]; |
2534 |
base[1]= car(V150); |
V261= list(2,(V260),(V250)); |
2535 |
vs_top=(vs_base=base+1)+1; |
(VV[99]->s.s_dbind)= make_cons(/* INLINE-ARGS */V261,(VV[99]->s.s_dbind)); |
2536 |
Llast(); |
(VV[103]->s.s_dbind)= listA(3,(V249),(V260),(VV[103]->s.s_dbind)); |
2537 |
|
goto T927;} |
2538 |
|
T967:; |
2539 |
|
{object V262; |
2540 |
|
object V263; |
2541 |
|
V262= Cnil; |
2542 |
|
V263= Cnil; |
2543 |
|
if(!(type_of((V251))!=t_cons)){ |
2544 |
|
goto T983;} |
2545 |
|
V263= (V251); |
2546 |
|
V262= (V263); |
2547 |
|
goto T981; |
2548 |
|
T983:; |
2549 |
|
V262= CMPcar((V251)); |
2550 |
|
V263= CMPcdr((V251)); |
2551 |
|
T981:; |
2552 |
|
base[4]= CMPcar((V249)); |
2553 |
|
base[5]= Cnil; |
2554 |
|
base[6]= (V262); |
2555 |
|
base[7]= (V252); |
2556 |
|
vs_top=(vs_base=base+4)+4; |
2557 |
|
(void) (*Lnk355)(); |
2558 |
vs_top=sup; |
vs_top=sup; |
2559 |
V149= vs_base[0]; |
base[4]= CMPcdr((V249)); |
2560 |
V151= make_cons(Ct,Cnil); |
base[5]= Cnil; |
2561 |
V152= make_cons(/* INLINE-ARGS */V151,Cnil); |
base[6]= (V263); |
2562 |
if(type_of(V149)!=t_cons)FEwrong_type_argument(Scons,V149); |
base[7]= (V252); |
2563 |
(V149)->c.c_cdr = /* INLINE-ARGS */V152; |
vs_top=(vs_base=base+4)+4; |
2564 |
base[1]= Cnil; |
(void) (*Lnk355)(); |
2565 |
vs_top=(vs_base=base+1)+1; |
vs_top=sup;} |
2566 |
|
T927:; |
2567 |
|
base[4]= (V249); |
2568 |
|
vs_top=(vs_base=base+4)+1; |
2569 |
return; |
return; |
2570 |
T609:; |
} |
2571 |
{register object V153; |
} |
2572 |
register object V154; |
/* function definition for LOOP-MAKE-ITERATION-VARIABLE */ |
2573 |
V153= car(symbol_value(VV[62])); |
|
2574 |
V154= cdr(symbol_value(VV[62])); |
static L62() |
2575 |
T648:; |
{register object *base=vs_base; |
2576 |
if(((V154))!=Cnil){ |
register object *sup=base+VM52; VC52 |
2577 |
goto T649;} |
vs_check; |
2578 |
goto T644; |
{object V264; |
2579 |
T649:; |
object V265; |
2580 |
base[2]= (V153); |
object V266; |
2581 |
vs_top=(vs_base=base+2)+1; |
V264=(base[0]); |
2582 |
Llast(); |
V265=(base[1]); |
2583 |
vs_top=sup; |
V266=(base[2]); |
|
V156= vs_base[0]; |
|
|
base[1]= car(V156); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
Llast(); |
|
2584 |
vs_top=sup; |
vs_top=sup; |
2585 |
V155= vs_base[0]; |
TTL:; |
2586 |
V157= make_cons(car((V154)),Cnil); |
base[3]= (V264); |
2587 |
if(type_of(V155)!=t_cons)FEwrong_type_argument(Scons,V155); |
base[4]= (V265); |
2588 |
(V155)->c.c_cdr = /* INLINE-ARGS */V157; |
base[5]= (V266); |
2589 |
V153= car((V154)); |
base[6]= Ct; |
2590 |
V154= cdr((V154)); |
vs_top=(vs_base=base+3)+4; |
2591 |
goto T648;} |
(void) (*Lnk355)(); |
|
T644:; |
|
|
{object V158; |
|
|
V158= car(symbol_value(VV[62])); |
|
|
setq(VV[62],Cnil); |
|
|
base[1]= (V158); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
return;} |
|
|
T590:; |
|
|
base[1]= (V135); |
|
|
vs_top=(vs_base=base+1)+1; |
|
2592 |
return; |
return; |
2593 |
} |
} |
2594 |
} |
} |
2595 |
/* function definition for LOOP-PSEUDO-BODY */ |
/* function definition for LOOP-DECLARE-VARIABLE */ |
2596 |
|
|
2597 |
static L35() |
static L63() |
2598 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2599 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM53; VC53 |
2600 |
vs_reserve(VM35); |
vs_check; |
2601 |
{object V159; |
{register object V267; |
2602 |
check_arg(1); |
register object V268; |
2603 |
V159=(base[0]); |
V267=(base[0]); |
2604 |
|
V268=(base[1]); |
2605 |
vs_top=sup; |
vs_top=sup; |
2606 |
TTL:; |
TTL:; |
2607 |
{register object V160; |
if(((V267))==Cnil){ |
2608 |
base[2]= (V159); |
goto T1003;} |
2609 |
vs_top=(vs_base=base+2)+1; |
if(((V268))==Cnil){ |
2610 |
(void) (*Lnk246)(); |
goto T1003;} |
2611 |
vs_top=sup; |
if(!(((V268))==(Ct))){ |
2612 |
V160= vs_base[0]; |
goto T1004;} |
2613 |
if(((V160))==Cnil){ |
T1003:; |
2614 |
goto T668;} |
base[2]= Cnil; |
|
if((symbol_value(VV[59]))==Cnil){ |
|
|
goto T671;} |
|
|
setq(VV[39],make_cons((V160),symbol_value(VV[39]))); |
|
|
base[2]= symbol_value(VV[39]); |
|
2615 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2616 |
return; |
return; |
2617 |
T671:; |
T1004:; |
2618 |
setq(VV[37],make_cons((V160),symbol_value(VV[37]))); |
if(!(type_of((V267))==t_symbol)){ |
2619 |
setq(VV[38],make_cons((V160),symbol_value(VV[38]))); |
goto T1011;} |
2620 |
base[2]= symbol_value(VV[38]); |
if(((V268))==(Ct)){ |
2621 |
|
goto T1014;} |
2622 |
|
{register object x= (V267),V269= (VV[100]->s.s_dbind); |
2623 |
|
while(V269!=Cnil) |
2624 |
|
if(eql(x,V269->c.c_car)){ |
2625 |
|
goto T1014; |
2626 |
|
}else V269=V269->c.c_cdr;} |
2627 |
|
V271= list(3,VV[31],V268,(V267)); |
2628 |
|
(VV[102]->s.s_dbind)= make_cons(/* INLINE-ARGS */V271,(VV[102]->s.s_dbind)); |
2629 |
|
base[2]= (VV[102]->s.s_dbind); |
2630 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2631 |
return; |
return; |
2632 |
T668:; |
T1014:; |
2633 |
base[2]= Cnil; |
base[2]= Cnil; |
2634 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2635 |
return;} |
return; |
2636 |
|
T1011:; |
2637 |
|
if(!(type_of((V267))==t_cons)){ |
2638 |
|
goto T1020;} |
2639 |
|
if(!(type_of((V268))==t_cons)){ |
2640 |
|
goto T1023;} |
2641 |
|
base[2]= CMPcar((V267)); |
2642 |
|
base[3]= CMPcar((V268)); |
2643 |
|
vs_top=(vs_base=base+2)+2; |
2644 |
|
(void) (*Lnk354)(); |
2645 |
|
vs_top=sup; |
2646 |
|
V267= CMPcdr((V267)); |
2647 |
|
V268= CMPcdr((V268)); |
2648 |
|
goto TTL; |
2649 |
|
T1023:; |
2650 |
|
base[2]= CMPcar((V267)); |
2651 |
|
base[3]= (V268); |
2652 |
|
vs_top=(vs_base=base+2)+2; |
2653 |
|
(void) (*Lnk354)(); |
2654 |
|
vs_top=sup; |
2655 |
|
V267= CMPcdr((V267)); |
2656 |
|
goto TTL; |
2657 |
|
T1020:; |
2658 |
|
base[2]= VV[145]; |
2659 |
|
base[3]= (V267); |
2660 |
|
vs_top=(vs_base=base+2)+2; |
2661 |
|
Lerror(); |
2662 |
|
return; |
2663 |
} |
} |
2664 |
} |
} |
2665 |
/* function definition for LOOP-EMIT-BODY */ |
/* function definition for LOOP-MAYBE-BIND-FORM */ |
2666 |
|
|
2667 |
static L36() |
static L64() |
2668 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2669 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM54; VC54 |
2670 |
vs_reserve(VM36); |
vs_check; |
2671 |
{object V161; |
{object V272; |
2672 |
check_arg(1); |
object V273; |
2673 |
V161=(base[0]); |
V272=(base[0]); |
2674 |
|
V273=(base[1]); |
2675 |
vs_top=sup; |
vs_top=sup; |
2676 |
TTL:; |
TTL:; |
2677 |
setq(VV[59],Ct); |
base[2]= (V272); |
2678 |
base[1]= (V161); |
vs_top=(vs_base=base+2)+1; |
2679 |
vs_top=(vs_base=base+1)+1; |
(void) (*Lnk356)(); |
2680 |
(void) (*Lnk247)(); |
vs_top=sup; |
2681 |
|
if((vs_base[0])==Cnil){ |
2682 |
|
goto T1040;} |
2683 |
|
base[2]= (V272); |
2684 |
|
vs_top=(vs_base=base+2)+1; |
2685 |
|
return; |
2686 |
|
T1040:; |
2687 |
|
base[3]= VV[146]; |
2688 |
|
vs_top=(vs_base=base+3)+1; |
2689 |
|
(void) (*Lnk324)(); |
2690 |
|
vs_top=sup; |
2691 |
|
base[2]= vs_base[0]; |
2692 |
|
base[3]= (V272); |
2693 |
|
base[4]= (V273); |
2694 |
|
vs_top=(vs_base=base+2)+3; |
2695 |
|
(void) (*Lnk355)(); |
2696 |
return; |
return; |
2697 |
} |
} |
2698 |
} |
} |
2699 |
/* function definition for LOOP-DO-NAMED */ |
/* function definition for LOOP-DO-IF */ |
2700 |
|
|
2701 |
static L37() |
static L65() |
2702 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2703 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM55; VC55 |
2704 |
vs_reserve(VM37); |
vs_check; |
2705 |
check_arg(0); |
bds_check; |
2706 |
|
{object V274; |
2707 |
|
object V275; |
2708 |
|
V274=(base[0]); |
2709 |
|
V275=(base[1]); |
2710 |
vs_top=sup; |
vs_top=sup; |
2711 |
TTL:; |
TTL:; |
2712 |
{register object V162; |
{object V276; |
2713 |
{object V163; |
vs_base=vs_top; |
2714 |
V163= car(symbol_value(VV[46])); |
(void) (*Lnk357)(); |
|
setq(VV[46],cdr(symbol_value(VV[46]))); |
|
|
V162= (V163);} |
|
|
if(((V162))==Cnil){ |
|
|
goto T685;} |
|
|
if(type_of((V162))==t_symbol){ |
|
|
goto T684;} |
|
|
T685:; |
|
|
base[0]= VV[2]; |
|
|
base[1]= VV[98]; |
|
|
base[2]= (V162); |
|
|
vs_top=(vs_base=base+0)+3; |
|
|
Lerror(); |
|
2715 |
vs_top=sup; |
vs_top=sup; |
2716 |
T684:; |
V276= vs_base[0]; |
2717 |
if((symbol_value(VV[37]))!=Cnil){ |
bds_bind(VV[114],Ct); |
2718 |
goto T693;} |
base[3]= Cnil; |
2719 |
if((symbol_value(VV[39]))!=Cnil){ |
{object V277; |
2720 |
goto T693;} |
object V278; |
2721 |
if((symbol_value(VV[61]))==Cnil){ |
base[4]= (V274); |
2722 |
goto T692;} |
vs_top=(vs_base=base+4)+1; |
2723 |
T693:; |
L66(base); |
|
base[0]= VV[2]; |
|
|
base[1]= VV[99]; |
|
|
base[2]= (V162); |
|
|
vs_top=(vs_base=base+0)+3; |
|
|
Lerror(); |
|
2724 |
vs_top=sup; |
vs_top=sup; |
2725 |
T692:; |
V277= vs_base[0]; |
2726 |
setq(VV[22],make_cons((V162),symbol_value(VV[22]))); |
base[4]= CMPcar((VV[89]->s.s_dbind)); |
2727 |
if((cdr(symbol_value(VV[22])))==Cnil){ |
base[5]= VV[147]; |
2728 |
goto T703;} |
vs_top=(vs_base=base+4)+2; |
2729 |
base[0]= VV[2]; |
(void) (*Lnk353)(); |
2730 |
base[1]= VV[100]; |
vs_top=sup; |
2731 |
base[2]= symbol_value(VV[22]); |
if((vs_base[0])==Cnil){ |
2732 |
vs_top=(vs_base=base+0)+3; |
goto T1052;} |
2733 |
Lerror(); |
vs_base=vs_top; |
2734 |
return; |
(void) (*Lnk346)(); |
2735 |
T703:; |
vs_top=sup; |
2736 |
base[0]= Cnil; |
base[4]= VV[147]; |
2737 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+4)+1; |
2738 |
return;} |
L66(base); |
2739 |
|
vs_top=sup; |
2740 |
|
V279= vs_base[0]; |
2741 |
|
V278= make_cons(V279,Cnil); |
2742 |
|
goto T1050; |
2743 |
|
T1052:; |
2744 |
|
V278= Cnil; |
2745 |
|
T1050:; |
2746 |
|
base[4]= CMPcar((VV[89]->s.s_dbind)); |
2747 |
|
base[5]= VV[148]; |
2748 |
|
vs_top=(vs_base=base+4)+2; |
2749 |
|
(void) (*Lnk353)(); |
2750 |
|
vs_top=sup; |
2751 |
|
if((vs_base[0])==Cnil){ |
2752 |
|
goto T1059;} |
2753 |
|
vs_base=vs_top; |
2754 |
|
(void) (*Lnk346)(); |
2755 |
|
vs_top=sup; |
2756 |
|
T1059:; |
2757 |
|
if((base[3])==Cnil){ |
2758 |
|
goto T1064;} |
2759 |
|
V276= list(3,VV[11],base[3],(V276)); |
2760 |
|
T1064:; |
2761 |
|
if(((V275))==Cnil){ |
2762 |
|
goto T1071;} |
2763 |
|
V280= list(2,VV[36],(V276)); |
2764 |
|
goto T1069; |
2765 |
|
T1071:; |
2766 |
|
V280= (V276); |
2767 |
|
T1069:; |
2768 |
|
base[4]= listA(4,VV[71],V280,(V277),(V278)); |
2769 |
|
vs_top=(vs_base=base+4)+1; |
2770 |
|
(void) (*Lnk350)(); |
2771 |
|
bds_unwind1; |
2772 |
|
return;}} |
2773 |
|
} |
2774 |
} |
} |
2775 |
/* function definition for LOOP-DO-INITIALLY */ |
/* function definition for LOOP-DO-INITIALLY */ |
2776 |
|
|
2777 |
static L38() |
static L67() |
2778 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2779 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM56; VC56 |
2780 |
vs_reserve(VM38); |
vs_check; |
|
check_arg(0); |
|
2781 |
vs_top=sup; |
vs_top=sup; |
2782 |
TTL:; |
TTL:; |
2783 |
|
base[0]= VV[153]; |
2784 |
|
vs_top=(vs_base=base+0)+1; |
2785 |
|
(void) (*Lnk358)(); |
2786 |
|
vs_top=sup; |
2787 |
vs_base=vs_top; |
vs_base=vs_top; |
2788 |
(void) (*Lnk248)(); |
(void) (*Lnk359)(); |
2789 |
vs_top=sup; |
vs_top=sup; |
2790 |
V164= vs_base[0]; |
V281= vs_base[0]; |
2791 |
setq(VV[57],make_cons(V164,symbol_value(VV[57]))); |
(VV[105]->s.s_dbind)= make_cons(V281,(VV[105]->s.s_dbind)); |
2792 |
base[0]= symbol_value(VV[57]); |
base[0]= (VV[105]->s.s_dbind); |
2793 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2794 |
return; |
return; |
2795 |
} |
} |
2796 |
/* function definition for LOOP-NODECLARE */ |
/* function definition for LOOP-DO-FINALLY */ |
2797 |
|
|
2798 |
static L39() |
static L68() |
2799 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2800 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM57; VC57 |
2801 |
vs_reserve(VM39); |
vs_check; |
|
check_arg(0); |
|
2802 |
vs_top=sup; |
vs_top=sup; |
2803 |
TTL:; |
TTL:; |
2804 |
{register object V165; |
base[0]= VV[154]; |
2805 |
{object V166; |
vs_top=(vs_base=base+0)+1; |
2806 |
V166= car(symbol_value(VV[46])); |
(void) (*Lnk358)(); |
|
setq(VV[46],cdr(symbol_value(VV[46]))); |
|
|
V165= (V166);} |
|
|
if(!(((V165))==Cnil)){ |
|
|
goto T716;} |
|
|
goto T715; |
|
|
T716:; |
|
|
if(!(type_of((V165))==t_cons)){ |
|
|
goto T718;} |
|
|
goto T715; |
|
|
T718:; |
|
|
base[1]= VV[2]; |
|
|
base[2]= VV[101]; |
|
|
base[3]= (V165); |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
Lerror(); |
|
2807 |
vs_top=sup; |
vs_top=sup; |
2808 |
T715:; |
vs_base=vs_top; |
2809 |
setq(VV[50],append((V165),symbol_value(VV[50]))); |
(void) (*Lnk359)(); |
2810 |
base[1]= symbol_value(VV[50]); |
vs_top=sup; |
2811 |
vs_top=(vs_base=base+1)+1; |
V282= vs_base[0]; |
2812 |
return;} |
(VV[111]->s.s_dbind)= make_cons(V282,(VV[111]->s.s_dbind)); |
2813 |
|
base[0]= (VV[111]->s.s_dbind); |
2814 |
|
vs_top=(vs_base=base+0)+1; |
2815 |
|
return; |
2816 |
} |
} |
2817 |
/* function definition for LOOP-DO-FINALLY */ |
/* function definition for LOOP-DO-DO */ |
2818 |
|
|
2819 |
static L40() |
static L69() |
2820 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2821 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM58; VC58 |
2822 |
vs_reserve(VM40); |
vs_check; |
|
check_arg(0); |
|
2823 |
vs_top=sup; |
vs_top=sup; |
2824 |
TTL:; |
TTL:; |
2825 |
vs_base=vs_top; |
vs_base=vs_top; |
2826 |
(void) (*Lnk248)(); |
(void) (*Lnk359)(); |
2827 |
vs_top=sup; |
vs_top=sup; |
2828 |
V167= vs_base[0]; |
base[0]= vs_base[0]; |
|
setq(VV[60],make_cons(V167,symbol_value(VV[60]))); |
|
|
base[0]= symbol_value(VV[60]); |
|
2829 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2830 |
|
(void) (*Lnk360)(); |
2831 |
return; |
return; |
2832 |
} |
} |
2833 |
/* function definition for LOOP-DO-DO */ |
/* function definition for LOOP-DO-NAMED */ |
2834 |
|
|
2835 |
static L41() |
static L70() |
2836 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2837 |
register object *sup=base+VM41; VC41 |
register object *sup=base+VM59; VC59 |
2838 |
vs_reserve(VM41); |
vs_check; |
|
check_arg(0); |
|
2839 |
vs_top=sup; |
vs_top=sup; |
2840 |
TTL:; |
TTL:; |
2841 |
|
{register object V283; |
2842 |
vs_base=vs_top; |
vs_base=vs_top; |
2843 |
(void) (*Lnk248)(); |
(void) (*Lnk346)(); |
2844 |
vs_top=sup; |
vs_top=sup; |
2845 |
base[0]= vs_base[0]; |
V283= vs_base[0]; |
2846 |
|
if(type_of((V283))==t_symbol){ |
2847 |
|
goto T1083;} |
2848 |
|
base[0]= VV[155]; |
2849 |
|
base[1]= (V283); |
2850 |
|
vs_top=(vs_base=base+0)+2; |
2851 |
|
(void) (*Lnk343)(); |
2852 |
|
vs_top=sup; |
2853 |
|
T1083:; |
2854 |
|
if(((VV[107]->s.s_dbind))!=Cnil){ |
2855 |
|
goto T1089;} |
2856 |
|
if(((VV[108]->s.s_dbind))!=Cnil){ |
2857 |
|
goto T1089;} |
2858 |
|
if(((VV[112]->s.s_dbind))!=Cnil){ |
2859 |
|
goto T1089;} |
2860 |
|
if(((VV[114]->s.s_dbind))==Cnil){ |
2861 |
|
goto T1088;} |
2862 |
|
T1089:; |
2863 |
|
base[0]= VV[156]; |
2864 |
|
base[1]= (V283); |
2865 |
|
vs_top=(vs_base=base+0)+2; |
2866 |
|
(void) (*Lnk343)(); |
2867 |
|
vs_top=sup; |
2868 |
|
T1088:; |
2869 |
|
if(((VV[117]->s.s_dbind))==Cnil){ |
2870 |
|
goto T1099;} |
2871 |
|
base[0]= VV[157]; |
2872 |
|
base[1]= CMPcar((VV[117]->s.s_dbind)); |
2873 |
|
base[2]= (V283); |
2874 |
|
vs_top=(vs_base=base+0)+3; |
2875 |
|
(void) (*Lnk343)(); |
2876 |
|
vs_top=sup; |
2877 |
|
T1099:; |
2878 |
|
(VV[117]->s.s_dbind)= list(2,(V283),Cnil); |
2879 |
|
base[0]= (VV[117]->s.s_dbind); |
2880 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2881 |
(void) (*Lnk249)(); |
return;} |
|
return; |
|
2882 |
} |
} |
2883 |
/* function definition for LOOP-DO-RETURN */ |
/* function definition for LOOP-DO-RETURN */ |
2884 |
|
|
2885 |
static L42() |
static L71() |
2886 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2887 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM60; VC60 |
2888 |
vs_reserve(VM42); |
vs_check; |
|
check_arg(0); |
|
2889 |
vs_top=sup; |
vs_top=sup; |
2890 |
TTL:; |
TTL:; |
2891 |
base[2]= VV[24]; |
vs_base=vs_top; |
2892 |
vs_top=(vs_base=base+2)+1; |
(void) (*Lnk357)(); |
|
(void) (*Lnk250)(); |
|
2893 |
vs_top=sup; |
vs_top=sup; |
2894 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
2895 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2896 |
(void) (*Lnk251)(); |
(void) (*Lnk351)(); |
2897 |
vs_top=sup; |
vs_top=sup; |
2898 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2899 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2900 |
(void) (*Lnk247)(); |
(void) (*Lnk350)(); |
2901 |
return; |
return; |
2902 |
} |
} |
2903 |
/* function definition for LOOP-DO-COLLECT */ |
/* function definition for MAKE-LOOP-COLLECTOR */ |
2904 |
|
|
2905 |
static L43() |
static L72() |
2906 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2907 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM61; VC61 |
2908 |
vs_reserve(VM43); |
vs_check; |
2909 |
{object V168; |
{object V284; |
2910 |
check_arg(1); |
object V285; |
2911 |
V168=(base[0]); |
object V286; |
2912 |
|
object V287; |
2913 |
|
object V288; |
2914 |
|
object V289; |
2915 |
|
parse_key(vs_base,FALSE,FALSE,6,VV[162],VV[163],VV[164],VV[361],VV[165],VV[362]); |
2916 |
|
vs_top=sup; |
2917 |
|
V284=(base[0]); |
2918 |
|
V285=(base[1]); |
2919 |
|
V286=(base[2]); |
2920 |
|
V287=(base[3]); |
2921 |
|
V288=(base[4]); |
2922 |
|
V289=(base[5]); |
2923 |
|
base[12]= VV[158]; |
2924 |
|
base[13]= (V284); |
2925 |
|
base[14]= (V285); |
2926 |
|
base[15]= (V286); |
2927 |
|
base[16]= (V287); |
2928 |
|
base[17]= (V288); |
2929 |
|
base[18]= (V289); |
2930 |
|
vs_top=(vs_base=base+12)+7; |
2931 |
|
siLmake_structure(); |
2932 |
|
return; |
2933 |
|
} |
2934 |
|
} |
2935 |
|
/* function definition for LOOP-GET-COLLECTION-INFO */ |
2936 |
|
|
2937 |
|
static L73() |
2938 |
|
{register object *base=vs_base; |
2939 |
|
register object *sup=base+VM62; VC62 |
2940 |
|
vs_check; |
2941 |
|
{object V290; |
2942 |
|
object V291; |
2943 |
|
object V292; |
2944 |
|
V290=(base[0]); |
2945 |
|
V291=(base[1]); |
2946 |
|
V292=(base[2]); |
2947 |
vs_top=sup; |
vs_top=sup; |
2948 |
TTL:; |
TTL:; |
2949 |
{register object V169; |
{object V293; |
2950 |
register object V170; |
register object V294; |
2951 |
register object V171; |
register object V295; |
2952 |
object V172; |
vs_base=vs_top; |
2953 |
register object V173; |
(void) (*Lnk357)(); |
|
register object V174; |
|
|
object V175; |
|
|
object V176; |
|
|
{object V177= (V168); |
|
|
if((V177!= VV[118]) |
|
|
&& (V177!= VV[252]))goto T731; |
|
|
V176= VV[102]; |
|
|
goto T730; |
|
|
T731:; |
|
|
if((V177!= VV[253]) |
|
|
&& (V177!= VV[103]) |
|
|
&& (V177!= VV[254]))goto T732; |
|
|
V176= VV[103]; |
|
|
goto T730; |
|
|
T732:; |
|
|
if((V177!= VV[255]) |
|
|
&& (V177!= VV[104]))goto T733; |
|
|
V176= VV[104]; |
|
|
goto T730; |
|
|
T733:; |
|
|
base[1]= VV[105]; |
|
|
base[2]= (V168); |
|
|
vs_top=(vs_base=base+1)+2; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
V176= vs_base[0];} |
|
|
T730:; |
|
|
V169= Cnil; |
|
|
V170= Cnil; |
|
|
V171= Cnil; |
|
|
V172= Cnil; |
|
|
V173= Cnil; |
|
|
V174= Cnil; |
|
|
V175= Cnil; |
|
|
base[1]= (V168); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk250)(); |
|
2954 |
vs_top=sup; |
vs_top=sup; |
2955 |
V170= vs_base[0]; |
V293= vs_base[0]; |
2956 |
|
if((STREF(object,(VV[96]->s.s_dbind),24))==Cnil){ |
2957 |
|
goto T1117;} |
2958 |
|
V294= Cnil; |
2959 |
|
goto T1116; |
2960 |
|
T1117:; |
2961 |
vs_base=vs_top; |
vs_base=vs_top; |
2962 |
(void) (*Lnk256)(); |
(void) (*Lnk363)(); |
2963 |
vs_top=sup; |
vs_top=sup; |
2964 |
V173= vs_base[0]; |
V294= vs_base[0]; |
2965 |
base[1]= car(symbol_value(VV[46])); |
T1116:; |
2966 |
base[2]= VV[106]; |
base[3]= CMPcar((VV[89]->s.s_dbind)); |
2967 |
vs_top=(vs_base=base+1)+2; |
base[4]= VV[159]; |
2968 |
(void) (*Lnk244)(); |
vs_top=(vs_base=base+3)+2; |
2969 |
|
(void) (*Lnk353)(); |
2970 |
vs_top=sup; |
vs_top=sup; |
2971 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2972 |
goto T741;} |
goto T1121;} |
2973 |
{object V178; |
vs_base=vs_top; |
2974 |
V178= car(symbol_value(VV[46])); |
(void) (*Lnk346)(); |
|
setq(VV[46],cdr(symbol_value(VV[46])));} |
|
|
{object V179; |
|
|
V179= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46]))); |
|
|
V169= (V179);} |
|
|
V175= (V169); |
|
|
T741:; |
|
|
{register object x= (V169),V180= symbol_value(VV[64]); |
|
|
while(!endp(V180)) |
|
|
if(type_of(V180->c.c_car)==t_cons &&eql(x,V180->c.c_car->c.c_car)){ |
|
|
V174= (V180->c.c_car); |
|
|
goto T759; |
|
|
}else V180=V180->c.c_cdr; |
|
|
V174= Cnil;} |
|
|
T759:; |
|
|
if(((V174))==Cnil){ |
|
|
goto T757;} |
|
|
V174= cdr((V174)); |
|
|
if(((V176))==(car((V174)))){ |
|
|
goto T762;} |
|
|
base[1]= VV[2]; |
|
|
base[2]= VV[107]; |
|
|
base[3]= list(2,(V176),car((V174))); |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
goto T760; |
|
|
T762:; |
|
|
if(((V173))==Cnil){ |
|
|
goto T760;} |
|
|
if(((V173))==(cadr((V174)))){ |
|
|
goto T760;} |
|
|
base[1]= VV[108]; |
|
|
base[2]= (V173); |
|
|
base[3]= cadr((V174)); |
|
|
base[4]= car((V174)); |
|
|
vs_top=(vs_base=base+1)+4; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
T760:; |
|
|
V174= cdr((V174)); |
|
|
V173= car((V174)); |
|
|
V174= cdr((V174)); |
|
|
V169= car((V174)); |
|
|
V174= cdr((V174)); |
|
|
V172= car((V174)); |
|
|
V171= cadr((V174)); |
|
|
if(((V176))==(VV[102])){ |
|
|
goto T787;} |
|
|
goto T755; |
|
|
T787:; |
|
|
if(((type_of((V170))!=t_cons?Ct:Cnil))==Cnil){ |
|
|
goto T789;} |
|
|
goto T755; |
|
|
T789:; |
|
|
if(((V171))==Cnil){ |
|
|
goto T791;} |
|
|
goto T755; |
|
|
T791:; |
|
|
V181= cdr((V174)); |
|
|
base[2]= VV[109]; |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
Lgentemp(); |
|
|
vs_top=sup; |
|
|
base[1]= vs_base[0]; |
|
|
base[2]= Cnil; |
|
|
base[3]= (V173); |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
(void) (*Lnk236)(); |
|
|
vs_top=sup; |
|
|
V171= vs_base[0]; |
|
|
if(type_of(/* INLINE-ARGS */V181)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V181); |
|
|
(/* INLINE-ARGS */V181)->c.c_car = (V171); |
|
|
goto T755; |
|
|
T757:; |
|
|
if(((V173))!=Cnil){ |
|
|
goto T798;} |
|
|
{object V182= (V168); |
|
|
if((V182!= VV[255]))goto T802; |
|
|
V173= VV[110]; |
|
|
goto T801; |
|
|
T802:; |
|
|
if((V182!= VV[252]) |
|
|
&& (V182!= VV[118]) |
|
|
&& (V182!= VV[104]))goto T803; |
|
|
V173= VV[111]; |
|
|
goto T801; |
|
|
T803:; |
|
|
V173= Cnil;} |
|
|
T801:; |
|
|
T798:; |
|
|
if(((V169))!=Cnil){ |
|
|
goto T804;} |
|
|
base[2]= VV[112]; |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
Lgentemp(); |
|
|
vs_top=sup; |
|
|
V169= vs_base[0]; |
|
|
base[1]= (V169); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk251)(); |
|
|
vs_top=sup; |
|
|
V183= vs_base[0]; |
|
|
setq(VV[61],make_cons(V183,symbol_value(VV[61]))); |
|
|
T804:; |
|
|
base[1]= (V169); |
|
|
base[2]= Cnil; |
|
|
base[3]= (V173); |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
(void) (*Lnk257)(); |
|
|
vs_top=sup; |
|
|
if(!(((V176))==(VV[102]))){ |
|
|
goto T818;} |
|
|
if(type_of((V170))!=t_cons){ |
|
|
goto T820;} |
|
|
base[2]= VV[112]; |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
Lgentemp(); |
|
|
vs_top=sup; |
|
|
base[1]= vs_base[0]; |
|
|
base[2]= Cnil; |
|
|
base[3]= (V173); |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
(void) (*Lnk236)(); |
|
|
vs_top=sup; |
|
|
V171= vs_base[0]; |
|
|
T820:; |
|
|
base[2]= VV[113]; |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
Lgentemp(); |
|
|
vs_top=sup; |
|
|
base[1]= vs_base[0]; |
|
|
base[2]= Ct; |
|
|
base[3]= Cnil; |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
(void) (*Lnk236)(); |
|
|
vs_top=sup; |
|
|
V172= vs_base[0]; |
|
|
goto T816; |
|
|
T818:; |
|
|
if(!(((V176))==(VV[103]))){ |
|
|
goto T816;} |
|
|
base[2]= VV[112]; |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
Lgentemp(); |
|
|
vs_top=sup; |
|
|
base[1]= vs_base[0]; |
|
|
base[2]= Cnil; |
|
|
base[3]= Cnil; |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
(void) (*Lnk236)(); |
|
|
vs_top=sup; |
|
|
V172= vs_base[0]; |
|
|
base[2]= VV[112]; |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
Lgentemp(); |
|
|
vs_top=sup; |
|
|
base[1]= vs_base[0]; |
|
|
base[2]= Cnil; |
|
|
base[3]= Cnil; |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
(void) (*Lnk236)(); |
|
|
vs_top=sup; |
|
|
V171= vs_base[0]; |
|
|
T816:; |
|
|
V184= list(6,(V175),(V176),(V173),(V169),(V172),(V171)); |
|
|
setq(VV[64],make_cons(/* INLINE-ARGS */V184,symbol_value(VV[64]))); |
|
|
T755:; |
|
|
{object V185= (V168); |
|
|
if((V185!= VV[255]))goto T848; |
|
|
base[2]= VV[114]; |
|
|
base[3]= (V173); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk258)(); |
|
2975 |
vs_top=sup; |
vs_top=sup; |
2976 |
V186= vs_base[0]; |
vs_base=vs_top; |
2977 |
V171= list(3,VV[15],(V169),list(2,V186,(V169))); |
(void) (*Lnk346)(); |
|
if(((V170))==(Ct)){ |
|
|
goto T854;} |
|
|
if(!(equal((V170),VV[115]))){ |
|
|
goto T855;} |
|
|
T854:; |
|
|
base[1]= (V171); |
|
|
goto T847; |
|
|
T855:; |
|
|
base[1]= list(3,VV[34],(V170),(V171)); |
|
|
goto T847; |
|
|
T848:; |
|
|
if((V185!= VV[104]))goto T859; |
|
|
base[2]= VV[116]; |
|
|
base[3]= (V173); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk258)(); |
|
2978 |
vs_top=sup; |
vs_top=sup; |
2979 |
V187= vs_base[0]; |
V295= vs_base[0]; |
2980 |
base[1]= list(3,VV[15],(V169),list(3,V187,(V170),(V169))); |
goto T1119; |
2981 |
goto T847; |
T1121:; |
2982 |
T859:; |
V295= Cnil; |
2983 |
if((V185!= VV[118]) |
T1119:; |
2984 |
&& (V185!= VV[252]))goto T863; |
if(type_of((V295))==t_symbol){ |
2985 |
{object V188; |
goto T1126;} |
2986 |
object V189; |
base[3]= VV[160]; |
2987 |
V188= Cnil; |
base[4]= (V295); |
2988 |
V189= Cnil; |
vs_top=(vs_base=base+3)+2; |
2989 |
if((V171)==Cnil){ |
(void) (*Lnk343)(); |
|
goto T864;} |
|
|
V190= list(3,VV[15],(V171),(V170)); |
|
|
V188= make_cons(/* INLINE-ARGS */V190,Cnil); |
|
|
V170= (V171); |
|
|
T864:; |
|
|
V189= list(2,(V169),(V170)); |
|
|
base[2]= (V173); |
|
|
base[3]= VV[117]; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk240)(); |
|
2990 |
vs_top=sup; |
vs_top=sup; |
2991 |
if((vs_base[0])==Cnil){ |
T1126:; |
2992 |
goto T874;} |
if(((V294))!=Cnil){ |
2993 |
if(!(((V168))==(VV[118]))){ |
goto T1131;}{object V296; |
2994 |
goto T881;} |
vs_base=vs_top; |
2995 |
base[2]= VV[119]; |
(void) (*Lnk363)(); |
|
goto T879; |
|
|
T881:; |
|
|
base[2]= VV[120]; |
|
|
T879:; |
|
|
base[3]= (V173); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk258)(); |
|
2996 |
vs_top=sup; |
vs_top=sup; |
2997 |
V192= vs_base[0]; |
V296= vs_base[0]; |
2998 |
V193= list(3,VV[35],(V172),make_cons(V192,(V189))); |
if(V296==Cnil)goto T1135; |
2999 |
V191= list(3,VV[34],/* INLINE-ARGS */V193,listA(4,VV[15],(V172),Cnil,(V189))); |
V294= V296; |
3000 |
goto T872; |
goto T1134; |
3001 |
T874:; |
T1135:;} |
3002 |
V194= list(3,(V172),list(3,VV[15],(V172),Cnil),(V170)); |
V294= (V292); |
3003 |
V191= list(3,VV[15],(V169),list(3,VV[45],/* INLINE-ARGS */V194,list(2,Ct,make_cons((V168),(V189))))); |
T1134:; |
3004 |
T872:; |
T1131:; |
3005 |
V188= make_cons(V191,(V188)); |
{register object V297; |
3006 |
if((cdr((V188)))==Cnil){ |
base[3]= (V295); |
3007 |
goto T885;} |
base[4]= (VV[118]->s.s_dbind); |
3008 |
V195= nreverse((V188)); |
base[5]= VV[161]; |
3009 |
base[1]= make_cons(VV[44],/* INLINE-ARGS */V195); |
base[6]= (VV[364]->s.s_gfdef); |
3010 |
goto T847; |
vs_top=(vs_base=base+3)+4; |
3011 |
T885:; |
(void) (*Lnk365)(); |
|
base[1]= car((V188)); |
|
|
goto T847;} |
|
|
T863:; |
|
|
{object V196= (V168); |
|
|
if((V196!= VV[103]))goto T888; |
|
|
V170= list(2,VV[103],(V170)); |
|
|
goto T887; |
|
|
T888:; |
|
|
if((V196!= VV[254]))goto T890;{object V197; |
|
|
if(((type_of((V170))!=t_cons?Ct:Cnil))==Cnil){ |
|
|
goto T893;} |
|
|
V197= Cnil; |
|
|
goto T892; |
|
|
T893:; |
|
|
V197= ((car((V170)))==(VV[103])?Ct:Cnil); |
|
|
T892:; |
|
|
if(V197==Cnil)goto T891; |
|
|
goto T887; |
|
|
T891:;} |
|
|
V170= list(2,VV[0],(V170)); |
|
|
goto T887; |
|
|
T890:;} |
|
|
T887:; |
|
|
{object V198; |
|
|
V199= list(2,VV[21],list(3,VV[122],(V172),(V171))); |
|
|
V198= list(4,VV[121],(V172),/* INLINE-ARGS */V199,list(3,VV[15],(V169),(V171))); |
|
|
if(type_of((V170))!=t_cons){ |
|
|
goto T898;} |
|
|
if(!((car((V170)))==(VV[103]))){ |
|
|
goto T898;} |
|
|
if((cdr((V170)))==Cnil){ |
|
|
goto T898;} |
|
|
base[2]= cddr((V170)); |
|
|
base[3]= (V198); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk259)(); |
|
3012 |
vs_top=sup; |
vs_top=sup; |
3013 |
V200= vs_base[0]; |
V297= vs_base[0]; |
3014 |
base[1]= list(5,VV[15],(V171),(V170),(V172),V200); |
if(((V297))!=Cnil){ |
3015 |
goto T847; |
goto T1144;} |
3016 |
T898:; |
base[3]= VV[162]; |
3017 |
V201= list(3,VV[15],(V171),(V170)); |
base[4]= (V295); |
3018 |
base[1]= list(3,VV[34],/* INLINE-ARGS */V201,list(3,VV[15],(V172),list(2,VV[123],(V198))));}} |
base[5]= VV[163]; |
3019 |
T847:; |
base[6]= (V291); |
3020 |
vs_top=(vs_base=base+1)+1; |
base[7]= VV[164]; |
3021 |
(void) (*Lnk249)(); |
base[8]= make_cons((V290),Cnil); |
3022 |
return;} |
base[9]= VV[165]; |
3023 |
|
base[10]= (V294); |
3024 |
|
vs_top=(vs_base=base+3)+8; |
3025 |
|
(void) (*Lnk366)(); |
3026 |
|
vs_top=sup; |
3027 |
|
V297= vs_base[0]; |
3028 |
|
(VV[118]->s.s_dbind)= make_cons((V297),(VV[118]->s.s_dbind)); |
3029 |
|
goto T1142; |
3030 |
|
T1144:; |
3031 |
|
if((STREF(object,(V297),4))==((V291))){ |
3032 |
|
goto T1156;} |
3033 |
|
base[3]= VV[166]; |
3034 |
|
base[4]= (V295); |
3035 |
|
base[5]= CMPcar(STREF(object,(V297),8)); |
3036 |
|
base[6]= (V290); |
3037 |
|
vs_top=(vs_base=base+3)+4; |
3038 |
|
(void) (*Lnk343)(); |
3039 |
|
vs_top=sup; |
3040 |
|
T1156:; |
3041 |
|
if(equal((V294),STREF(object,(V297),16))){ |
3042 |
|
goto T1163;} |
3043 |
|
base[3]= VV[167]; |
3044 |
|
base[4]= (V295); |
3045 |
|
base[5]= (V294); |
3046 |
|
base[6]= STREF(object,(V297),16); |
3047 |
|
vs_top=(vs_base=base+3)+4; |
3048 |
|
(void) (*Lnk335)(); |
3049 |
|
vs_top=sup; |
3050 |
|
if(!((STREF(object,(V297),16))==(Ct))){ |
3051 |
|
goto T1163;} |
3052 |
|
V298= Ct; |
3053 |
|
STSET(object,(V297),16, (V294)); |
3054 |
|
(void)((V294)); |
3055 |
|
T1163:; |
3056 |
|
{object V300; |
3057 |
|
V300= make_cons((V290),STREF(object,V297,8)); |
3058 |
|
V301= Ct; |
3059 |
|
STSET(object,V297,8, (V300)); |
3060 |
|
(void)((V300));} |
3061 |
|
T1142:; |
3062 |
|
base[3]= (V297); |
3063 |
|
base[4]= (V293); |
3064 |
|
vs_top=(vs_base=base+3)+2; |
3065 |
|
return;}} |
3066 |
} |
} |
3067 |
} |
} |
3068 |
/* function definition for LOOP-CDRIFY */ |
/* function definition for LOOP-LIST-COLLECTION */ |
3069 |
|
|
3070 |
static L44() |
static L74() |
3071 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3072 |
register object *sup=base+VM44; VC44 |
register object *sup=base+VM63; VC63 |
3073 |
vs_reserve(VM44); |
vs_check; |
3074 |
{object V202; |
{object V302; |
3075 |
register object V203; |
V302=(base[0]); |
|
check_arg(2); |
|
|
V202=(base[0]); |
|
|
V203=(base[1]); |
|
3076 |
vs_top=sup; |
vs_top=sup; |
3077 |
TTL:; |
TTL:; |
3078 |
{register int V204; |
{register object V303; |
3079 |
V204= length((V202)); |
register object V304; |
3080 |
T909:; |
base[1]= (V302); |
3081 |
if(!((V204)<(4))){ |
base[2]= VV[5]; |
3082 |
goto T910;} |
base[3]= VV[5]; |
3083 |
if(!((V204)==0)){ |
vs_top=(vs_base=base+1)+3; |
3084 |
goto T914;} |
(void) (*Lnk367)(); |
3085 |
base[2]= (V203); |
if(vs_base>=vs_top){vs_top=sup;goto T1180;} |
3086 |
vs_top=(vs_base=base+2)+1; |
V303= vs_base[0]; |
3087 |
return; |
vs_base++; |
3088 |
T914:; |
if(vs_base>=vs_top){vs_top=sup;goto T1181;} |
3089 |
if(!((V204)==(1))){ |
V304= vs_base[0]; |
3090 |
goto T918;} |
vs_top=sup; |
3091 |
V205= VV[21]; |
goto T1182; |
3092 |
goto T916; |
T1180:; |
3093 |
T918:; |
V303= Cnil; |
3094 |
if(!((V204)==(2))){ |
T1181:; |
3095 |
goto T921;} |
V304= Cnil; |
3096 |
V205= VV[124]; |
T1182:; |
3097 |
goto T916; |
{register object V305; |
3098 |
T921:; |
V305= STREF(object,(V303),12); |
3099 |
V205= VV[125]; |
if(((V305))!=Cnil){ |
3100 |
T916:; |
goto T1184;} |
3101 |
base[2]= list(2,V205,(V203)); |
base[1]= VV[168]; |
3102 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+1)+1; |
3103 |
return; |
(void) (*Lnk324)(); |
3104 |
T910:; |
vs_top=sup; |
3105 |
V203= list(2,VV[126],(V203)); |
V306= vs_base[0]; |
3106 |
V204= (V204)-(4); |
base[1]= VV[169]; |
3107 |
goto T909;} |
vs_top=(vs_base=base+1)+1; |
3108 |
|
(void) (*Lnk324)(); |
3109 |
|
vs_top=sup; |
3110 |
|
V307= vs_base[0]; |
3111 |
|
if((STREF(object,(V303),0))!=Cnil){ |
3112 |
|
goto T1194;} |
3113 |
|
V308= Cnil; |
3114 |
|
goto T1193; |
3115 |
|
T1194:; |
3116 |
|
V308= make_cons(STREF(object,(V303),0),Cnil); |
3117 |
|
T1193:; |
3118 |
|
V305= listA(3,V306,V307,V308); |
3119 |
|
V309= Ct; |
3120 |
|
STSET(object,(V303),12, (V305)); |
3121 |
|
(void)((V305)); |
3122 |
|
V310= list(2,VV[170],(V305)); |
3123 |
|
(VV[106]->s.s_dbind)= make_cons(/* INLINE-ARGS */V310,(VV[106]->s.s_dbind)); |
3124 |
|
if((STREF(object,(V303),0))!=Cnil){ |
3125 |
|
goto T1184;} |
3126 |
|
base[1]= listA(3,VV[171],CMPcar((V305)),CMPcddr((V305))); |
3127 |
|
vs_top=(vs_base=base+1)+1; |
3128 |
|
(void) (*Lnk368)(); |
3129 |
|
vs_top=sup; |
3130 |
|
T1184:; |
3131 |
|
{object V311= (V302); |
3132 |
|
if((V311!= VV[5]))goto T1202; |
3133 |
|
V304= list(2,VV[5],(V304)); |
3134 |
|
goto T1201; |
3135 |
|
T1202:; |
3136 |
|
if((V311!= VV[369]))goto T1204; |
3137 |
|
goto T1201; |
3138 |
|
T1204:; |
3139 |
|
if((V311!= VV[370]))goto T1205; |
3140 |
|
if(!(type_of((V304))==t_cons)){ |
3141 |
|
goto T1206;} |
3142 |
|
if((CMPcar((V304)))==(VV[5])){ |
3143 |
|
goto T1201;} |
3144 |
|
T1206:; |
3145 |
|
V304= list(2,VV[172],(V304)); |
3146 |
|
goto T1201; |
3147 |
|
T1205:; |
3148 |
|
FEerror("The ECASE key value ~s is illegal.",1,V311);} |
3149 |
|
T1201:; |
3150 |
|
base[1]= list(3,VV[173],(V305),(V304)); |
3151 |
|
vs_top=(vs_base=base+1)+1; |
3152 |
|
(void) (*Lnk360)(); |
3153 |
|
return;}} |
3154 |
} |
} |
3155 |
} |
} |
3156 |
/* function definition for LOOP-DO-WHILE */ |
/* function definition for LOOP-SUM-COLLECTION */ |
3157 |
|
|
3158 |
static L45() |
static L75() |
3159 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3160 |
register object *sup=base+VM45; VC45 |
register object *sup=base+VM64; VC64 |
3161 |
vs_reserve(VM45); |
vs_check; |
3162 |
{object V206; |
{object V312; |
3163 |
object V207; |
object V313; |
3164 |
check_arg(2); |
object V314; |
3165 |
V206=(base[0]); |
V312=(base[0]); |
3166 |
V207=(base[1]); |
V313=(base[1]); |
3167 |
|
V314=(base[2]); |
3168 |
vs_top=sup; |
vs_top=sup; |
3169 |
TTL:; |
TTL:; |
3170 |
{object V208; |
{register object V315; |
3171 |
base[3]= (V207); |
object V316; |
3172 |
vs_top=(vs_base=base+3)+1; |
base[3]= (V312); |
3173 |
(void) (*Lnk250)(); |
base[4]= VV[174]; |
3174 |
|
base[5]= (V314); |
3175 |
|
vs_top=(vs_base=base+3)+3; |
3176 |
|
(void) (*Lnk367)(); |
3177 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1216;} |
3178 |
|
V315= vs_base[0]; |
3179 |
|
vs_base++; |
3180 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1217;} |
3181 |
|
V316= vs_base[0]; |
3182 |
|
vs_top=sup; |
3183 |
|
goto T1218; |
3184 |
|
T1216:; |
3185 |
|
V315= Cnil; |
3186 |
|
T1217:; |
3187 |
|
V316= Cnil; |
3188 |
|
T1218:; |
3189 |
|
base[3]= STREF(object,(V315),16); |
3190 |
|
base[4]= (V313); |
3191 |
|
vs_top=(vs_base=base+3)+2; |
3192 |
|
(void) (*Lnk371)(); |
3193 |
|
vs_top=sup; |
3194 |
|
{register object V317; |
3195 |
|
V317= STREF(object,(V315),12); |
3196 |
|
if(((V317))!=Cnil){ |
3197 |
|
goto T1223;}{object V319; |
3198 |
|
V319= STREF(object,(V315),0); |
3199 |
|
if(V319==Cnil)goto T1230; |
3200 |
|
base[3]= V319; |
3201 |
|
goto T1229; |
3202 |
|
T1230:;} |
3203 |
|
base[4]= VV[175]; |
3204 |
|
vs_top=(vs_base=base+4)+1; |
3205 |
|
(void) (*Lnk324)(); |
3206 |
vs_top=sup; |
vs_top=sup; |
3207 |
V208= vs_base[0]; |
base[3]= vs_base[0]; |
3208 |
if((symbol_value(VV[62]))==Cnil){ |
T1229:; |
3209 |
goto T931;} |
base[4]= Cnil; |
3210 |
base[3]= VV[2]; |
base[5]= STREF(object,(V315),16); |
|
base[4]= VV[127]; |
|
|
base[5]= list(2,(V207),(V208)); |
|
3211 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3212 |
Lerror(); |
(void) (*Lnk355)(); |
3213 |
vs_top=sup; |
vs_top=sup; |
3214 |
T931:; |
V318= vs_base[0]; |
3215 |
if(((V206))==Cnil){ |
V317= make_cons(V318,Cnil); |
3216 |
goto T940;} |
V320= Ct; |
3217 |
V209= VV[34]; |
STSET(object,(V315),12, (V317)); |
3218 |
goto T938; |
(void)((V317)); |
3219 |
T940:; |
if((STREF(object,(V315),0))!=Cnil){ |
3220 |
V209= VV[43]; |
goto T1223;} |
3221 |
T938:; |
base[3]= CMPcar(STREF(object,(V315),12)); |
|
base[3]= list(3,V209,(V208),VV[128]); |
|
3222 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3223 |
(void) (*Lnk247)(); |
(void) (*Lnk368)(); |
|
return;} |
|
|
} |
|
|
} |
|
|
/* function definition for LOOP-DO-WHEN */ |
|
|
|
|
|
static L46() |
|
|
{register object *base=vs_base; |
|
|
register object *sup=base+VM46; VC46 |
|
|
vs_reserve(VM46); |
|
|
{object V210; |
|
|
object V211; |
|
|
check_arg(2); |
|
|
V210=(base[0]); |
|
|
V211=(base[1]); |
|
|
vs_top=sup; |
|
|
TTL:; |
|
|
{object V212; |
|
|
register object V213; |
|
|
base[2]= (V211); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk250)(); |
|
|
vs_top=sup; |
|
|
V212= vs_base[0]; |
|
|
V213= Cnil; |
|
|
base[2]= cadr(symbol_value(VV[46])); |
|
|
base[3]= VV[129]; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk244)(); |
|
3224 |
vs_top=sup; |
vs_top=sup; |
3225 |
if((vs_base[0])==Cnil){ |
T1223:; |
3226 |
goto T946;} |
if(!(((V312))==(VV[176]))){ |
3227 |
vs_base=vs_top; |
goto T1240;} |
3228 |
(void) (*Lnk260)(); |
V321= CMPcar((V317)); |
3229 |
|
base[4]= Ct; |
3230 |
|
base[5]= CMPcar((V317)); |
3231 |
|
base[6]= list(2,VV[177],CMPcar((V317))); |
3232 |
|
vs_top=(vs_base=base+4)+3; |
3233 |
|
(void) (*Lnk328)(); |
3234 |
vs_top=sup; |
vs_top=sup; |
3235 |
V214= vs_base[0]; |
V322= vs_base[0]; |
3236 |
V213= list(3,VV[15],V214,(V212)); |
base[3]= list(3,VV[8],(V316),list(3,VV[11],/* INLINE-ARGS */V321,V322)); |
3237 |
V215= car(symbol_value(VV[46]));{object V216; |
goto T1238; |
3238 |
V216= symbol_value(VV[63]); |
T1240:; |
3239 |
setq(VV[46],listA(3,/* INLINE-ARGS */V215,V216,cddr(symbol_value(VV[46]))));} |
V323= CMPcar((V317)); |
3240 |
goto T944; |
base[4]= Ct; |
3241 |
T946:; |
base[5]= CMPcar((V317)); |
3242 |
V213= (V212); |
base[6]= CMPcar((V317)); |
3243 |
T944:; |
vs_top=(vs_base=base+4)+3; |
3244 |
if((V210)==Cnil){ |
(void) (*Lnk328)(); |
3245 |
goto T955;} |
vs_top=sup; |
3246 |
V213= list(2,VV[130],(V213)); |
V324= vs_base[0]; |
3247 |
T955:;{object V217; |
base[3]= list(3,VV[11],/* INLINE-ARGS */V323,list(3,VV[178],V324,(V316))); |
3248 |
V217= symbol_value(VV[62]); |
T1238:; |
3249 |
V218= list(2,VV[45],make_cons((V213),Cnil)); |
vs_top=(vs_base=base+3)+1; |
3250 |
V219= make_cons(/* INLINE-ARGS */V218,Cnil); |
(void) (*Lnk360)(); |
3251 |
setq(VV[62],nconc(V217,/* INLINE-ARGS */V219));} |
return;}} |
|
base[2]= symbol_value(VV[62]); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
return;} |
|
3252 |
} |
} |
3253 |
} |
} |
3254 |
/* function definition for LOOP-DO-WITH */ |
/* function definition for LOOP-MAXMIN-COLLECTION */ |
3255 |
|
|
3256 |
static L47() |
static L76() |
3257 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3258 |
register object *sup=base+VM47; VC47 |
register object *sup=base+VM65; VC65 |
3259 |
vs_reserve(VM47); |
vs_check; |
3260 |
check_arg(0); |
{object V325; |
3261 |
|
V325=(base[0]); |
3262 |
vs_top=sup; |
vs_top=sup; |
3263 |
TTL:; |
TTL:; |
3264 |
{register object V220; |
{register object V326; |
3265 |
register object V221; |
object V327; |
3266 |
register object V222; |
base[1]= (V325); |
3267 |
register object V223; |
base[2]= VV[179]; |
3268 |
V220= Cnil; |
base[3]= (VV[180]->s.s_dbind); |
3269 |
V221= Cnil; |
vs_top=(vs_base=base+1)+3; |
3270 |
V222= Cnil; |
(void) (*Lnk367)(); |
3271 |
V223= Cnil; |
if(vs_base>=vs_top){vs_top=sup;goto T1254;} |
3272 |
T960:; |
V326= vs_base[0]; |
3273 |
{register object V224; |
vs_base++; |
3274 |
V224= car(symbol_value(VV[46])); |
if(vs_base>=vs_top){vs_top=sup;goto T1255;} |
3275 |
setq(VV[46],cdr(symbol_value(VV[46]))); |
V327= vs_base[0]; |
|
V220= (V224);} |
|
|
V221= car(symbol_value(VV[46])); |
|
|
base[0]= (V221); |
|
|
base[1]= VV[131]; |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk244)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T972;} |
|
|
{register object V225; |
|
|
V225= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46])));} |
|
|
base[0]= list(3,VV[132],(V220),VV[131]); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
(void) (*Lnk250)(); |
|
|
vs_top=sup; |
|
|
V222= vs_base[0]; |
|
|
V223= Cnil; |
|
|
goto T970; |
|
|
T972:; |
|
|
base[0]= (V221); |
|
|
base[1]= VV[95]; |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk244)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
|
goto T984;} |
|
|
base[0]= (V221); |
|
|
base[1]= VV[27]; |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk231)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
|
goto T984;} |
|
|
base[0]= (V221); |
|
|
base[1]= VV[28]; |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk231)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T985;} |
|
|
T984:; |
|
|
V222= Cnil; |
|
|
V223= Cnil; |
|
|
goto T970; |
|
|
T985:; |
|
|
vs_base=vs_top; |
|
|
(void) (*Lnk256)(); |
|
|
vs_top=sup; |
|
|
V223= vs_base[0]; |
|
|
V221= car(symbol_value(VV[46])); |
|
|
base[0]= (V221); |
|
|
base[1]= VV[131]; |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk244)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T1005;} |
|
|
{register object V226; |
|
|
V226= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46])));} |
|
|
base[0]= list(4,VV[132],(V220),(V223),VV[131]); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
(void) (*Lnk250)(); |
|
|
vs_top=sup; |
|
|
V222= vs_base[0]; |
|
|
goto T970; |
|
|
T1005:; |
|
|
if((symbol_value(VV[46]))==Cnil){ |
|
|
goto T1016;} |
|
|
base[0]= (V221); |
|
|
base[1]= VV[27]; |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk231)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
|
goto T1016;} |
|
|
base[0]= (V221); |
|
|
base[1]= VV[28]; |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk231)(); |
|
3276 |
vs_top=sup; |
vs_top=sup; |
3277 |
if((vs_base[0])!=Cnil){ |
goto T1256; |
3278 |
goto T1016;} |
T1254:; |
3279 |
base[0]= (V221); |
V326= Cnil; |
3280 |
base[1]= VV[95]; |
T1255:; |
3281 |
vs_top=(vs_base=base+0)+2; |
V327= Cnil; |
3282 |
(void) (*Lnk244)(); |
T1256:; |
3283 |
|
base[1]= STREF(object,(V326),16); |
3284 |
|
base[2]= (VV[180]->s.s_dbind); |
3285 |
|
vs_top=(vs_base=base+1)+2; |
3286 |
|
(void) (*Lnk371)(); |
3287 |
vs_top=sup; |
vs_top=sup; |
3288 |
if((vs_base[0])!=Cnil){ |
{register object V328; |
3289 |
goto T1016;} |
V328= STREF(object,(V326),20); |
3290 |
base[0]= VV[2]; |
if(((V328))!=Cnil){ |
3291 |
base[1]= VV[133]; |
goto T1261;}{object V329; |
3292 |
base[2]= (V221); |
V329= STREF(object,(V326),0); |
3293 |
vs_top=(vs_base=base+0)+3; |
if(V329==Cnil)goto T1267; |
3294 |
Lerror(); |
base[1]= V329; |
3295 |
|
goto T1266; |
3296 |
|
T1267:;} |
3297 |
|
base[2]= VV[181]; |
3298 |
|
vs_top=(vs_base=base+2)+1; |
3299 |
|
(void) (*Lnk324)(); |
3300 |
vs_top=sup; |
vs_top=sup; |
3301 |
goto T970; |
base[1]= vs_base[0]; |
3302 |
T1016:; |
T1266:; |
3303 |
V222= Cnil; |
base[2]= STREF(object,(V326),16); |
3304 |
T970:; |
vs_top=(vs_base=base+1)+2; |
3305 |
base[0]= (V220); |
(void) (*Lnk372)(); |
|
base[1]= (V222); |
|
|
base[2]= (V223); |
|
|
vs_top=(vs_base=base+0)+3; |
|
|
(void) (*Lnk236)(); |
|
3306 |
vs_top=sup; |
vs_top=sup; |
3307 |
base[0]= car(symbol_value(VV[46])); |
V328= vs_base[0]; |
3308 |
base[1]= VV[95]; |
V330= Ct; |
3309 |
vs_top=(vs_base=base+0)+2; |
STSET(object,(V326),20, (V328)); |
3310 |
(void) (*Lnk244)(); |
(void)((V328)); |
3311 |
|
if((STREF(object,(V326),0))!=Cnil){ |
3312 |
|
goto T1261;} |
3313 |
|
base[1]= STREF(object,(V328),0); |
3314 |
|
vs_top=(vs_base=base+1)+1; |
3315 |
|
(void) (*Lnk368)(); |
3316 |
|
vs_top=sup; |
3317 |
|
T1261:; |
3318 |
|
base[1]= (V325); |
3319 |
|
base[2]= (V328); |
3320 |
|
vs_top=(vs_base=base+1)+2; |
3321 |
|
(void) (*Lnk373)(); |
3322 |
vs_top=sup; |
vs_top=sup; |
3323 |
if((vs_base[0])!=Cnil){ |
V331= list(2,VV[182],(V328)); |
3324 |
goto T1040;} |
(VV[106]->s.s_dbind)= make_cons(/* INLINE-ARGS */V331,(VV[106]->s.s_dbind)); |
3325 |
goto T958; |
base[1]= list(4,VV[183],(V328),(V325),(V327)); |
3326 |
T1040:; |
vs_top=(vs_base=base+1)+1; |
3327 |
{register object V227; |
(void) (*Lnk360)(); |
3328 |
V227= car(symbol_value(VV[46])); |
return;}} |
3329 |
setq(VV[46],cdr(symbol_value(VV[46])));} |
} |
|
goto T960;} |
|
|
T958:; |
|
|
vs_base=vs_top; |
|
|
(void) (*Lnk238)(); |
|
|
return; |
|
3330 |
} |
} |
3331 |
/* function definition for LOOP-DO-ALWAYS */ |
/* function definition for LOOP-DO-ALWAYS */ |
3332 |
|
|
3333 |
static L48() |
static L77() |
3334 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3335 |
register object *sup=base+VM48; VC48 |
register object *sup=base+VM66; VC66 |
3336 |
vs_reserve(VM48); |
vs_check; |
3337 |
{object V228; |
{object V332; |
3338 |
check_arg(1); |
object V333; |
3339 |
V228=(base[0]); |
V332=(base[0]); |
3340 |
vs_top=sup; |
V333=(base[1]); |
|
TTL:; |
|
|
{object V229; |
|
|
base[1]= VV[134]; |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk250)(); |
|
|
vs_top=sup; |
|
|
V229= vs_base[0]; |
|
|
if(((V228))==Cnil){ |
|
|
goto T1055;} |
|
|
V230= VV[34]; |
|
|
goto T1053; |
|
|
T1055:; |
|
|
V230= VV[43]; |
|
|
T1053:; |
|
|
base[2]= Cnil; |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk251)(); |
|
3341 |
vs_top=sup; |
vs_top=sup; |
3342 |
V231= vs_base[0]; |
TTL:; |
3343 |
base[1]= list(3,V230,(V229),V231); |
{object V334; |
3344 |
vs_top=(vs_base=base+1)+1; |
vs_base=vs_top; |
3345 |
(void) (*Lnk249)(); |
(void) (*Lnk357)(); |
3346 |
vs_top=sup; |
vs_top=sup; |
3347 |
base[1]= Ct; |
V334= vs_base[0]; |
3348 |
vs_top=(vs_base=base+1)+1; |
if(((V332))==Cnil){ |
3349 |
(void) (*Lnk251)(); |
goto T1281;} |
3350 |
|
vs_base=vs_top; |
3351 |
|
(void) (*Lnk358)(); |
3352 |
vs_top=sup; |
vs_top=sup; |
3353 |
V232= vs_base[0]; |
T1281:; |
3354 |
setq(VV[61],make_cons(V232,symbol_value(VV[61]))); |
if(((V333))==Cnil){ |
3355 |
base[1]= symbol_value(VV[61]); |
goto T1288;} |
3356 |
vs_top=(vs_base=base+1)+1; |
V335= VV[8]; |
3357 |
|
goto T1286; |
3358 |
|
T1288:; |
3359 |
|
V335= VV[184]; |
3360 |
|
T1286:; |
3361 |
|
base[3]= Cnil; |
3362 |
|
vs_top=(vs_base=base+3)+1; |
3363 |
|
(void) (*Lnk351)(); |
3364 |
|
vs_top=sup; |
3365 |
|
V336= vs_base[0]; |
3366 |
|
base[2]= list(3,V335,(V334),V336); |
3367 |
|
vs_top=(vs_base=base+2)+1; |
3368 |
|
(void) (*Lnk360)(); |
3369 |
|
vs_top=sup; |
3370 |
|
base[2]= Ct; |
3371 |
|
vs_top=(vs_base=base+2)+1; |
3372 |
|
(void) (*Lnk368)(); |
3373 |
return;} |
return;} |
3374 |
} |
} |
3375 |
} |
} |
3376 |
/* function definition for LOOP-DO-THEREIS */ |
/* function definition for LOOP-DO-THEREIS */ |
3377 |
|
|
3378 |
static L49() |
static L78() |
3379 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3380 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM67; VC67 |
3381 |
vs_reserve(VM49); |
vs_check; |
3382 |
check_arg(0); |
{object V337; |
3383 |
|
V337=(base[0]); |
3384 |
vs_top=sup; |
vs_top=sup; |
3385 |
TTL:; |
TTL:; |
3386 |
|
if(((V337))==Cnil){ |
3387 |
|
goto T1293;} |
3388 |
vs_base=vs_top; |
vs_base=vs_top; |
3389 |
(void) (*Lnk260)(); |
(void) (*Lnk358)(); |
3390 |
vs_top=sup; |
vs_top=sup; |
3391 |
V233= vs_base[0]; |
T1293:; |
3392 |
base[1]= VV[135]; |
vs_base=vs_top; |
3393 |
vs_top=(vs_base=base+1)+1; |
(void) (*Lnk374)(); |
|
(void) (*Lnk250)(); |
|
3394 |
vs_top=sup; |
vs_top=sup; |
3395 |
V234= vs_base[0]; |
V338= vs_base[0]; |
3396 |
V235= list(3,VV[15],V233,V234); |
vs_base=vs_top; |
3397 |
base[1]= symbol_value(VV[63]); |
(void) (*Lnk357)(); |
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk251)(); |
|
3398 |
vs_top=sup; |
vs_top=sup; |
3399 |
V236= vs_base[0]; |
V339= vs_base[0]; |
3400 |
base[0]= list(3,VV[34],/* INLINE-ARGS */V235,V236); |
V340= list(3,VV[11],V338,V339); |
3401 |
vs_top=(vs_base=base+0)+1; |
base[2]= (VV[115]->s.s_dbind); |
3402 |
(void) (*Lnk249)(); |
vs_top=(vs_base=base+2)+1; |
3403 |
|
(void) (*Lnk351)(); |
3404 |
|
vs_top=sup; |
3405 |
|
V341= vs_base[0]; |
3406 |
|
base[1]= list(3,VV[8],/* INLINE-ARGS */V340,V341); |
3407 |
|
vs_top=(vs_base=base+1)+1; |
3408 |
|
(void) (*Lnk360)(); |
3409 |
return; |
return; |
3410 |
|
} |
3411 |
} |
} |
3412 |
/* function definition for LOOP-SIMPLEP */ |
/* function definition for LOOP-DO-WHILE */ |
3413 |
|
|
3414 |
static L50() |
static L79() |
3415 |
{register object *VOL base=vs_base; |
{register object *base=vs_base; |
3416 |
register object *VOL sup=base+VM50; VC50 |
register object *sup=base+VM68; VC68 |
3417 |
vs_reserve(VM50); |
vs_check; |
3418 |
{VOL object V237; |
{object V342; |
3419 |
check_arg(1); |
object V343; |
3420 |
V237=(base[0]); |
V342=(base[0]); |
3421 |
|
V343=(base[1]); |
3422 |
vs_top=sup; |
vs_top=sup; |
3423 |
TTL:; |
TTL:; |
3424 |
if(((V237))!=Cnil){ |
{object V344; |
3425 |
goto T1069;} |
vs_base=vs_top; |
3426 |
base[1]= small_fixnum(0); |
(void) (*Lnk357)(); |
|
vs_top=(vs_base=base+1)+1; |
|
|
return; |
|
|
T1069:; |
|
|
frs_push(FRS_CATCH,VV[136]); |
|
|
if(nlj_active) |
|
|
{nlj_active=FALSE;frs_pop(); |
|
|
return;} |
|
|
else{ |
|
|
{int V238; |
|
|
base[1]= (V237); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk261)(); |
|
3427 |
vs_top=sup; |
vs_top=sup; |
3428 |
V238= fix(vs_base[0]); |
V344= vs_base[0]; |
3429 |
if((V238)<(20)){ |
base[3]= (V343); |
3430 |
goto T1074;} |
vs_top=(vs_base=base+3)+1; |
3431 |
frs_pop(); |
(void) (*Lnk358)(); |
3432 |
base[1]= Cnil; |
vs_top=sup; |
3433 |
vs_top=(vs_base=base+1)+1; |
if(((V342))==Cnil){ |
3434 |
return; |
goto T1307;} |
3435 |
T1074:; |
V345= VV[8]; |
3436 |
frs_pop(); |
goto T1305; |
3437 |
base[1]= make_fixnum(V238); |
T1307:; |
3438 |
vs_top=(vs_base=base+1)+1; |
V345= VV[184]; |
3439 |
return;}} |
T1305:; |
3440 |
|
base[3]= list(3,V345,(V344),VV[185]); |
3441 |
|
vs_top=(vs_base=base+3)+1; |
3442 |
|
(void) (*Lnk350)(); |
3443 |
|
return;} |
3444 |
} |
} |
3445 |
} |
} |
3446 |
/* function definition for LOOP-SIMPLEP-1 */ |
/* function definition for LOOP-DO-WITH */ |
3447 |
|
|
3448 |
static L51() |
static L80() |
3449 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3450 |
register object *sup=base+VM51; VC51 |
register object *sup=base+VM69; VC69 |
3451 |
vs_reserve(VM51); |
vs_check; |
|
{register object V239; |
|
|
check_arg(1); |
|
|
V239=(base[0]); |
|
3452 |
vs_top=sup; |
vs_top=sup; |
3453 |
TTL:; |
TTL:; |
3454 |
{register int V240; |
base[0]= VV[186]; |
3455 |
V240= 0; |
vs_top=(vs_base=base+0)+1; |
3456 |
base[1]= (V239); |
(void) (*Lnk358)(); |
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk245)(); |
|
3457 |
vs_top=sup; |
vs_top=sup; |
3458 |
if((vs_base[0])==Cnil){ |
{register object V346; |
3459 |
goto T1078;} |
register object V347; |
3460 |
base[1]= small_fixnum(0); |
register object V348; |
3461 |
vs_top=(vs_base=base+1)+1; |
V346= Cnil; |
3462 |
return; |
V347= Cnil; |
3463 |
T1078:; |
V348= Cnil; |
3464 |
if(!(type_of((V239))!=t_cons)){ |
T1312:; |
3465 |
goto T1082;} |
vs_base=vs_top; |
3466 |
base[1]= small_fixnum(1); |
(void) (*Lnk346)(); |
|
vs_top=(vs_base=base+1)+1; |
|
|
return; |
|
|
T1082:; |
|
|
if(!((car((V239)))==(VV[45]))){ |
|
|
goto T1085;} |
|
|
{register object V241; |
|
|
V241= cdr((V239)); |
|
|
T1090:; |
|
|
if(((V241))!=Cnil){ |
|
|
goto T1091;} |
|
|
goto T1087; |
|
|
T1091:; |
|
|
{register object V242; |
|
|
V242= car((V241)); |
|
|
T1098:; |
|
|
if(((V242))!=Cnil){ |
|
|
goto T1099;} |
|
|
goto T1095; |
|
|
T1099:; |
|
|
base[2]= car((V242)); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk261)(); |
|
3467 |
vs_top=sup; |
vs_top=sup; |
3468 |
base[1]= vs_base[0]; |
V346= vs_base[0]; |
3469 |
base[2]= make_fixnum(V240); |
base[0]= (V346); |
3470 |
base[3]= small_fixnum(1); |
vs_top=(vs_base=base+0)+1; |
3471 |
vs_top=(vs_base=base+1)+3; |
(void) (*Lnk363)(); |
|
Lplus(); |
|
3472 |
vs_top=sup; |
vs_top=sup; |
3473 |
V240= fix(vs_base[0]); |
V348= vs_base[0]; |
3474 |
V242= cdr((V242)); |
base[0]= CMPcar((VV[89]->s.s_dbind)); |
3475 |
goto T1098;} |
base[1]= VV[187]; |
3476 |
T1095:; |
vs_top=(vs_base=base+0)+2; |
3477 |
V241= cdr((V241)); |
(void) (*Lnk353)(); |
|
goto T1090;} |
|
|
T1087:; |
|
|
base[1]= make_fixnum(V240); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
return; |
|
|
T1085:; |
|
|
if(!(type_of(car((V239)))==t_symbol)){ |
|
|
goto T1116;} |
|
|
{register object V243; |
|
|
object V244; |
|
|
V243= car((V239)); |
|
|
V244= Cnil; |
|
|
V244= get((V243),VV[136],Cnil); |
|
|
if(((V244))==Cnil){ |
|
|
goto T1121;} |
|
|
if(!(type_of((V244))==t_fixnum)){ |
|
|
goto T1125;} |
|
|
V240= fix((V244)); |
|
|
goto T1119; |
|
|
T1125:; |
|
|
V240= fix(( |
|
|
(type_of((V244)) == t_sfun ?(*(object (*)())(((V244))->sfn.sfn_self)): |
|
|
(fcall.fun=((V244)),fcall.argd=1,fcalln))((V239)))); |
|
|
V239= Cnil; |
|
|
goto T1119; |
|
|
T1121:; |
|
|
{object V245; |
|
|
{register object x= (V243),V246= VV[137]; |
|
|
while(!endp(V246)) |
|
|
if(eql(x,V246->c.c_car)){ |
|
|
V245= V246; |
|
|
goto T1131; |
|
|
}else V246=V246->c.c_cdr; |
|
|
V245= Cnil;} |
|
|
T1131:; |
|
|
if(((V245))==Cnil){ |
|
|
goto T1133;} |
|
|
goto T1119; |
|
|
T1133:; |
|
|
{register object x= (V243),V247= VV[138]; |
|
|
while(!endp(V247)) |
|
|
if(eql(x,V247->c.c_car)){ |
|
|
goto T1137; |
|
|
}else V247=V247->c.c_cdr; |
|
|
goto T1136;} |
|
|
T1137:; |
|
|
V240= 1; |
|
|
goto T1119; |
|
|
T1136:; |
|
|
{register object x= (V243),V248= VV[139]; |
|
|
while(!endp(V248)) |
|
|
if(eql(x,V248->c.c_car)){ |
|
|
goto T1141; |
|
|
}else V248=V248->c.c_cdr; |
|
|
goto T1140;} |
|
|
T1141:; |
|
|
V240= 2; |
|
|
goto T1119; |
|
|
T1140:; |
|
|
{register object x= (V243),V249= VV[140]; |
|
|
while(!endp(V249)) |
|
|
if(eql(x,V249->c.c_car)){ |
|
|
goto T1145; |
|
|
}else V249=V249->c.c_cdr; |
|
|
goto T1144;} |
|
|
T1145:; |
|
|
V240= 3; |
|
|
goto T1119; |
|
|
T1144:; |
|
|
{register object x= (V243),V250= VV[141]; |
|
|
while(!endp(V250)) |
|
|
if(eql(x,V250->c.c_car)){ |
|
|
goto T1149; |
|
|
}else V250=V250->c.c_cdr; |
|
|
goto T1148;} |
|
|
T1149:; |
|
|
V240= 4; |
|
|
goto T1119; |
|
|
T1148:; |
|
|
{register object x= (V243),V251= symbol_value(VV[136]); |
|
|
while(!endp(V251)) |
|
|
if(eql(x,V251->c.c_car)){ |
|
|
goto T1153; |
|
|
}else V251=V251->c.c_cdr; |
|
|
goto T1152;} |
|
|
T1153:; |
|
|
V240= 2; |
|
|
goto T1119; |
|
|
T1152:; |
|
|
{object V252; |
|
|
object V253; |
|
|
base[1]= (V239); |
|
|
base[2]= symbol_value(VV[33]); |
|
|
vs_top=(vs_base=base+1)+2; |
|
|
Lmacroexpand_1(); |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1158;} |
|
|
V252= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1159;} |
|
|
V253= vs_base[0]; |
|
3478 |
vs_top=sup; |
vs_top=sup; |
3479 |
goto T1160; |
if((vs_base[0])==Cnil){ |
3480 |
T1158:; |
goto T1323;} |
3481 |
V252= Cnil; |
vs_base=vs_top; |
3482 |
T1159:; |
(void) (*Lnk346)(); |
|
V253= Cnil; |
|
|
T1160:; |
|
|
if(((V253))==Cnil){ |
|
|
goto T1162;} |
|
|
base[1]= (V252); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk261)(); |
|
3483 |
vs_top=sup; |
vs_top=sup; |
3484 |
V240= fix(vs_base[0]); |
vs_base=vs_top; |
3485 |
V239= Cnil; |
(void) (*Lnk357)(); |
|
goto T1119; |
|
|
T1162:; |
|
|
{frame_ptr fr; |
|
|
fr=frs_sch_catch(VV[136]); |
|
|
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[136]); |
|
|
base[1]= Cnil; |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
unwind(fr,VV[136]);}}} |
|
|
T1119:; |
|
|
{register object V254; |
|
|
V254= cdr((V239)); |
|
|
T1172:; |
|
|
if(((V254))!=Cnil){ |
|
|
goto T1173;} |
|
|
goto T1169; |
|
|
T1173:; |
|
|
base[2]= car((V254)); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk261)(); |
|
3486 |
vs_top=sup; |
vs_top=sup; |
3487 |
base[1]= vs_base[0]; |
V347= vs_base[0]; |
3488 |
base[2]= small_fixnum(1); |
goto T1321; |
3489 |
base[3]= make_fixnum(V240); |
T1323:; |
3490 |
vs_top=(vs_base=base+1)+3; |
V347= Cnil; |
3491 |
Lplus(); |
T1321:; |
3492 |
|
base[0]= (V346); |
3493 |
|
base[1]= (V347); |
3494 |
|
base[2]= (V348); |
3495 |
|
vs_top=(vs_base=base+0)+3; |
3496 |
|
(void) (*Lnk355)(); |
3497 |
vs_top=sup; |
vs_top=sup; |
3498 |
V240= fix(vs_base[0]); |
base[0]= CMPcar((VV[89]->s.s_dbind)); |
3499 |
V254= cdr((V254)); |
base[1]= VV[152]; |
3500 |
goto T1172;} |
vs_top=(vs_base=base+0)+2; |
3501 |
T1169:; |
(void) (*Lnk353)(); |
3502 |
base[1]= make_fixnum(V240); |
vs_top=sup; |
3503 |
vs_top=(vs_base=base+1)+1; |
if((vs_base[0])==Cnil){ |
3504 |
return;} |
goto T1334;} |
3505 |
T1116:; |
vs_base=vs_top; |
3506 |
{frame_ptr fr; |
(void) (*Lnk346)(); |
3507 |
fr=frs_sch_catch(VV[136]); |
vs_top=sup; |
3508 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[136]); |
goto T1332; |
3509 |
base[1]= Cnil; |
T1334:; |
3510 |
vs_top=(vs_base=base+1)+1; |
vs_base=vs_top; |
3511 |
unwind(fr,VV[136]);}} |
(void) (*Lnk345)(); |
3512 |
} |
return; |
3513 |
|
T1332:; |
3514 |
|
goto T1312;} |
3515 |
} |
} |
3516 |
/* function definition for LOOP-HACK-ITERATION */ |
/* function definition for LOOP-HACK-ITERATION */ |
3517 |
|
|
3518 |
static L52() |
static L81() |
3519 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3520 |
register object *sup=base+VM52; VC52 |
register object *sup=base+VM70; VC70 |
3521 |
vs_reserve(VM52); |
vs_check; |
3522 |
bds_check; |
{register object V349; |
3523 |
{register object V255; |
V349=(base[0]); |
|
check_arg(1); |
|
|
V255=(base[0]); |
|
3524 |
vs_top=sup; |
vs_top=sup; |
3525 |
TTL:; |
TTL:; |
3526 |
{object V256; |
{register object V350; |
3527 |
register object V257; |
register object V351; |
3528 |
register object V258; |
register object V352; |
3529 |
object V259; |
register object V353; |
3530 |
register object V260; |
register object V354; |
3531 |
register object V261; |
register object V355; |
3532 |
object V262; |
register object V356; |
3533 |
object V263; |
register object V357; |
3534 |
object V264; |
register object V358; |
3535 |
object V265; |
object V359; |
3536 |
register object V266; |
V350= Cnil; |
3537 |
object V267; |
V351= Cnil; |
3538 |
object V268; |
V352= Cnil; |
3539 |
object V269; |
V353= Cnil; |
3540 |
V256= (V255); |
V354= Cnil; |
3541 |
V257= symbol_value(VV[46]); |
V355= Cnil; |
3542 |
V258= Cnil; |
V356= Cnil; |
3543 |
V259= Cnil; |
V357= Cnil; |
3544 |
V260= Cnil; |
V358= Cnil; |
3545 |
V261= Cnil; |
V359= Cnil; |
3546 |
V262= Cnil; |
T1341:; |
3547 |
V263= Cnil; |
base[2]= CMPcar((V349)); |
3548 |
V264= Cnil; |
vs_top=(vs_base=base+2)+1; |
3549 |
V265= Cnil; |
Lsymbol_function(); |
3550 |
V266= Cnil; |
vs_top=sup; |
3551 |
V267= Cnil; |
base[1]= vs_base[0]; |
3552 |
V268= Cnil; |
{object V360; |
3553 |
V269= Cnil; |
V360= CMPcdr((V349)); |
|
T1188:; |
|
|
base[1]= cadr((V255)); |
|
|
{object V270; |
|
|
V270= cddr((V255)); |
|
3554 |
vs_top=base+2; |
vs_top=base+2; |
3555 |
while(!endp(V270)) |
while(V360!=Cnil) |
3556 |
{vs_push(car(V270));V270=cdr(V270);} |
{vs_push((V360)->c.c_car);V360=(V360)->c.c_cdr;} |
3557 |
vs_base=base+2;} |
vs_base=base+2;} |
3558 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
3559 |
vs_top=sup; |
vs_top=sup; |
3560 |
V267= vs_base[0]; |
V359= vs_base[0]; |
3561 |
V266= (V267); |
V358= (V359); |
3562 |
if((car((V266)))!=Cnil){ |
if((CMPcar((V358)))!=Cnil){ |
3563 |
goto T1197;} |
goto T1351;} |
3564 |
goto T1196; |
goto T1350; |
3565 |
T1197:; |
T1351:; |
3566 |
V258= make_cons(car((V266)),(V258)); |
V350= make_cons(CMPcar((V358)),(V350)); |
3567 |
T1196:; |
T1350:; |
3568 |
V266= cdr((V266)); |
V358= CMPcdr((V358)); |
3569 |
base[1]= car((V266)); |
base[1]= CMPcar((V358)); |
3570 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3571 |
Lcopy_list(); |
Lcopy_list(); |
3572 |
vs_top=sup; |
vs_top=sup; |
3573 |
V271= vs_base[0]; |
V361= vs_base[0]; |
3574 |
V259= nconc((V259),V271); |
V351= nconc((V351),V361); |
3575 |
V266= cdr((V266)); |
V358= CMPcdr((V358)); |
3576 |
if((car((V266)))!=Cnil){ |
if((CMPcar((V358)))!=Cnil){ |
3577 |
goto T1206;} |
goto T1360;} |
3578 |
goto T1205; |
goto T1359; |
3579 |
T1206:; |
T1360:; |
3580 |
V260= make_cons(car((V266)),(V260)); |
V352= make_cons(CMPcar((V358)),(V352)); |
3581 |
T1205:; |
T1359:; |
3582 |
V266= cdr((V266)); |
V358= CMPcdr((V358)); |
3583 |
base[1]= car((V266)); |
base[1]= CMPcar((V358)); |
3584 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3585 |
Lcopy_list(); |
Lcopy_list(); |
3586 |
vs_top=sup; |
vs_top=sup; |
3587 |
V272= vs_base[0]; |
V362= vs_base[0]; |
3588 |
V261= nconc((V261),V272); |
V353= nconc((V353),V362); |
3589 |
V266= cdr((V266)); |
V358= CMPcdr((V358)); |
3590 |
if(symbol_value(VV[62])!=Cnil){ |
if(((VV[109]->s.s_dbind))==Cnil){ |
3591 |
if((symbol_value(VV[62]))!=Cnil){ |
goto T1371;} |
3592 |
goto T1218;} |
base[1]= VV[188]; |
3593 |
goto T1219;} |
vs_top=(vs_base=base+1)+1; |
3594 |
if((symbol_value(VV[59]))!=Cnil){ |
(void) (*Lnk343)(); |
3595 |
goto T1218;} |
vs_top=sup; |
3596 |
T1219:; |
T1371:; |
3597 |
goto T1217; |
if(((V358))!=Cnil){ |
3598 |
T1218:; |
goto T1375;} |
3599 |
if((V266)!=Cnil){ |
V358= (V359); |
3600 |
if(((V266))!=Cnil){ |
T1375:; |
3601 |
goto T1220;} |
if((CMPcar((V358)))==Cnil){ |
3602 |
goto T1221;} |
goto T1379;} |
3603 |
if((V258)!=Cnil){ |
V354= make_cons(CMPcar((V358)),(V354)); |
3604 |
if(((V258))!=Cnil){ |
T1379:; |
3605 |
goto T1220;} |
V358= CMPcdr((V358)); |
3606 |
goto T1221;} |
base[1]= CMPcar((V358)); |
|
if((V260)!=Cnil){ |
|
|
if(((V260))!=Cnil){ |
|
|
goto T1220;} |
|
|
goto T1221;} |
|
|
if(((V261))!=Cnil){ |
|
|
goto T1220;} |
|
|
T1221:; |
|
|
goto T1217; |
|
|
T1220:; |
|
|
{object V273; |
|
|
V273= list(4,car((V255)),car((V257)),cadr((V257)),caddr((V257))); |
|
|
if((symbol_value(VV[59]))==Cnil){ |
|
|
goto T1224;} |
|
|
base[1]= VV[2]; |
|
|
base[2]= VV[142]; |
|
|
base[3]= (V273); |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
goto T1217; |
|
|
T1224:; |
|
|
base[1]= VV[2]; |
|
|
base[2]= VV[143]; |
|
|
base[3]= (V273); |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
Lerror(); |
|
|
vs_top=sup;} |
|
|
T1217:; |
|
|
if((V266)!=Cnil){ |
|
|
goto T1232;} |
|
|
V266= (V267); |
|
|
T1232:; |
|
|
if((car((V266)))!=Cnil){ |
|
|
goto T1235;} |
|
|
goto T1234; |
|
|
T1235:; |
|
|
V262= make_cons(car((V266)),(V262)); |
|
|
T1234:; |
|
|
V266= cdr((V266)); |
|
|
base[1]= car((V266)); |
|
3607 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3608 |
Lcopy_list(); |
Lcopy_list(); |
3609 |
vs_top=sup; |
vs_top=sup; |
3610 |
V274= vs_base[0]; |
V363= vs_base[0]; |
3611 |
V263= nconc((V263),V274); |
V355= nconc((V355),V363); |
3612 |
V266= cdr((V266)); |
V358= CMPcdr((V358)); |
3613 |
if((car((V266)))!=Cnil){ |
if((CMPcar((V358)))==Cnil){ |
3614 |
goto T1244;} |
goto T1388;} |
3615 |
goto T1243; |
V356= make_cons(CMPcar((V358)),(V356)); |
3616 |
T1244:; |
T1388:; |
3617 |
V264= make_cons(car((V266)),(V264)); |
base[1]= CMPcadr((V358)); |
|
T1243:; |
|
|
base[1]= cadr((V266)); |
|
3618 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3619 |
Lcopy_list(); |
Lcopy_list(); |
3620 |
vs_top=sup; |
vs_top=sup; |
3621 |
V275= vs_base[0]; |
V364= vs_base[0]; |
3622 |
V265= nconc((V265),V275); |
V357= nconc((V357),V364); |
3623 |
base[1]= car(symbol_value(VV[46])); |
base[1]= CMPcar((VV[89]->s.s_dbind)); |
3624 |
base[2]= VV[95]; |
base[2]= VV[152]; |
|
vs_top=(vs_base=base+1)+2; |
|
|
(void) (*Lnk244)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T1253;} |
|
|
if((symbol_value(VV[62]))==Cnil){ |
|
|
goto T1252;} |
|
|
base[1]= cadr(symbol_value(VV[46])); |
|
|
base[2]= VV[28]; |
|
3625 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3626 |
(void) (*Lnk231)(); |
(void) (*Lnk353)(); |
3627 |
vs_top=sup; |
vs_top=sup; |
3628 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
3629 |
goto T1252;} |
goto T1397;} |
3630 |
T1253:; |
base[1]= (V357); |
|
base[1]= (V262); |
|
3631 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3632 |
(void) (*Lnk262)(); |
(void) (*Lnk334)(); |
3633 |
vs_top=sup; |
vs_top=sup; |
3634 |
V276= vs_base[0]; |
V365= vs_base[0]; |
3635 |
base[1]= (V263); |
base[1]= (V356); |
3636 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3637 |
(void) (*Lnk226)(); |
L82(base); |
3638 |
vs_top=sup; |
vs_top=sup; |
3639 |
V277= vs_base[0]; |
V366= vs_base[0]; |
3640 |
base[1]= (V264); |
base[1]= (V355); |
3641 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3642 |
(void) (*Lnk262)(); |
(void) (*Lnk333)(); |
3643 |
vs_top=sup; |
vs_top=sup; |
3644 |
V278= vs_base[0]; |
V367= vs_base[0]; |
3645 |
base[1]= (V265); |
base[1]= (V354); |
3646 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3647 |
(void) (*Lnk227)(); |
L82(base); |
3648 |
vs_top=sup; |
vs_top=sup; |
3649 |
V279= vs_base[0]; |
V368= vs_base[0]; |
3650 |
V268= list(4,V276,V277,V278,V279); |
(VV[107]->s.s_dbind)= listA(5,V365,V366,V367,V368,(VV[107]->s.s_dbind)); |
3651 |
base[1]= (V258); |
base[1]= (V353); |
3652 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3653 |
(void) (*Lnk262)(); |
(void) (*Lnk334)(); |
3654 |
vs_top=sup; |
vs_top=sup; |
3655 |
V280= vs_base[0]; |
V369= vs_base[0]; |
3656 |
base[1]= (V259); |
base[1]= (V352); |
3657 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3658 |
(void) (*Lnk226)(); |
L82(base); |
3659 |
vs_top=sup; |
vs_top=sup; |
3660 |
V281= vs_base[0]; |
V370= vs_base[0]; |
3661 |
base[1]= (V260); |
base[1]= (V351); |
3662 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3663 |
(void) (*Lnk262)(); |
(void) (*Lnk333)(); |
3664 |
vs_top=sup; |
vs_top=sup; |
3665 |
V282= vs_base[0]; |
V371= vs_base[0]; |
3666 |
base[1]= (V261); |
base[1]= (V350); |
3667 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3668 |
(void) (*Lnk227)(); |
L82(base); |
3669 |
vs_top=sup; |
vs_top=sup; |
3670 |
V283= vs_base[0]; |
V372= vs_base[0]; |
3671 |
V269= list(4,V280,V281,V282,V283); |
(VV[110]->s.s_dbind)= listA(5,V369,V370,V371,V372,(VV[110]->s.s_dbind)); |
|
if((symbol_value(VV[62]))!=Cnil){ |
|
|
goto T1285;} |
|
|
base[1]= (V268); |
|
|
base[2]= symbol_value(VV[37]); |
|
|
vs_top=(vs_base=base+1)+2; |
|
|
Lreconc(); |
|
|
vs_top=sup; |
|
|
setq(VV[37],vs_base[0]); |
|
|
base[1]= (V269); |
|
|
base[2]= symbol_value(VV[38]); |
|
|
vs_top=(vs_base=base+1)+2; |
|
|
Lreconc(); |
|
|
vs_top=sup; |
|
|
setq(VV[38],vs_base[0]); |
|
|
goto T1283; |
|
|
T1285:; |
|
|
base[3]= symbol_value(VV[62]); |
|
|
{object V284; |
|
|
object V285= base[3]; |
|
|
if(endp(V285)){ |
|
|
base[1]= Cnil; |
|
|
goto T1295;} |
|
|
base[2]=V284=MMcons(Cnil,Cnil); |
|
|
T1296:; |
|
|
V287= car((V285->c.c_car)); |
|
|
{object V289; |
|
|
object V290= cdr((V285->c.c_car)); |
|
|
if(endp(V290)){ |
|
|
V288= Cnil; |
|
|
goto T1298;} |
|
|
base[4]=V289=MMcons(Cnil,Cnil); |
|
|
T1299:; |
|
|
base[5]= (V290->c.c_car); |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
Lcopy_list(); |
|
|
vs_top=sup; |
|
|
(V289->c.c_car)= vs_base[0]; |
|
|
if(endp(V290=MMcdr(V290))){ |
|
|
V288= base[4]; |
|
|
goto T1298;} |
|
|
V289=MMcdr(V289)=MMcons(Cnil,Cnil); |
|
|
goto T1299;} |
|
|
T1298:; |
|
|
(V284->c.c_car)= make_cons(/* INLINE-ARGS */V287,V288); |
|
|
if(endp(V285=MMcdr(V285))){ |
|
|
base[1]= base[2]; |
|
|
goto T1295;} |
|
|
V284=MMcdr(V284)=MMcons(Cnil,Cnil); |
|
|
goto T1296;} |
|
|
T1295:; |
|
|
bds_bind(VV[62],base[1]); |
|
|
V293= (VFUN_NARGS=2,(*(LnkLI234))(Cnil,(V268))); |
|
|
base[2]= make_cons(VV[44],/* INLINE-ARGS */V293); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk246)(); |
|
|
vs_top=sup; |
|
|
V292= vs_base[0]; |
|
|
setq(VV[37],make_cons(V292,symbol_value(VV[37]))); |
|
|
V294= symbol_value(VV[37]); |
|
|
bds_unwind1; |
|
|
V296= (VFUN_NARGS=2,(*(LnkLI234))(Cnil,(V269))); |
|
|
base[1]= make_cons(VV[44],/* INLINE-ARGS */V296); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk246)(); |
|
|
vs_top=sup; |
|
|
V295= vs_base[0]; |
|
|
setq(VV[38],make_cons(V295,symbol_value(VV[38]))); |
|
|
T1283:; |
|
3672 |
vs_base=vs_top; |
vs_base=vs_top; |
3673 |
(void) (*Lnk238)(); |
(void) (*Lnk345)(); |
3674 |
vs_top=sup; |
vs_top=sup; |
3675 |
base[1]= Cnil; |
base[1]= Cnil; |
3676 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3677 |
return; |
return; |
3678 |
T1252:; |
T1397:; |
3679 |
{object V297; |
vs_base=vs_top; |
3680 |
V297= car(symbol_value(VV[46])); |
(void) (*Lnk346)(); |
3681 |
setq(VV[46],cdr(symbol_value(VV[46])));} |
vs_top=sup; |
3682 |
base[1]= car(symbol_value(VV[46])); |
if((STREF(object,(VV[96]->s.s_dbind),28))!=Cnil){ |
3683 |
base[2]= VV[28]; |
goto T1424;} |
3684 |
|
base[1]= CMPcar((VV[89]->s.s_dbind)); |
3685 |
|
base[2]= STREF(object,(VV[96]->s.s_dbind),4); |
3686 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3687 |
(void) (*Lnk231)(); |
(void) (*Lnk347)(); |
3688 |
|
vs_top=sup; |
3689 |
|
V358= vs_base[0]; |
3690 |
|
if(((V358))==Cnil){ |
3691 |
|
goto T1424;} |
3692 |
|
vs_base=vs_top; |
3693 |
|
(void) (*Lnk346)(); |
3694 |
vs_top=sup; |
vs_top=sup; |
3695 |
V266= vs_base[0]; |
V349= (V358); |
3696 |
if(((V266))==Cnil){ |
T1424:; |
3697 |
goto T1316;} |
goto T1341;} |
|
{object V298; |
|
|
V298= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46])));} |
|
|
V256= (V266); |
|
|
V255= (V256); |
|
|
goto T1314; |
|
|
T1316:; |
|
|
V255= (V256); |
|
|
T1314:; |
|
|
V257= symbol_value(VV[46]); |
|
|
goto T1188;} |
|
3698 |
} |
} |
3699 |
} |
} |
3700 |
/* function definition for LOOP-DO-FOR */ |
/* function definition for LOOP-DO-FOR */ |
3701 |
|
|
3702 |
static L53() |
static L83() |
3703 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3704 |
register object *sup=base+VM53; VC53 |
register object *sup=base+VM71; VC71 |
3705 |
vs_reserve(VM53); |
vs_check; |
|
check_arg(0); |
|
3706 |
vs_top=sup; |
vs_top=sup; |
3707 |
TTL:; |
TTL:; |
3708 |
{object V299; |
{object V373; |
3709 |
object V300; |
object V374; |
3710 |
object V301; |
object V375; |
3711 |
object V302; |
object V376; |
3712 |
object V303; |
object V377; |
3713 |
{object V304; |
vs_base=vs_top; |
3714 |
V304= car(symbol_value(VV[46])); |
(void) (*Lnk346)(); |
|
setq(VV[46],cdr(symbol_value(VV[46]))); |
|
|
V299= (V304);} |
|
|
vs_base=vs_top; |
|
|
(void) (*Lnk256)(); |
|
|
vs_top=sup; |
|
|
V300= vs_base[0]; |
|
|
{object V305; |
|
|
V305= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46]))); |
|
|
V301= (V305);} |
|
|
V302= Cnil; |
|
|
V303= Cnil; |
|
|
base[0]= list(3,VV[144],(V299),(V301)); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
(void) (*Lnk250)(); |
|
3715 |
vs_top=sup; |
vs_top=sup; |
3716 |
V302= vs_base[0];{object V306; |
V373= vs_base[0]; |
3717 |
base[0]= (V301); |
base[3]= (V373); |
3718 |
base[1]= VV[145]; |
vs_top=(vs_base=base+3)+1; |
3719 |
vs_top=(vs_base=base+0)+2; |
(void) (*Lnk363)(); |
|
(void) (*Lnk231)(); |
|
3720 |
vs_top=sup; |
vs_top=sup; |
3721 |
V303= vs_base[0]; |
V374= vs_base[0]; |
3722 |
V306= (V303); |
vs_base=vs_top; |
3723 |
if(V306==Cnil)goto T1342; |
(void) (*Lnk346)(); |
|
goto T1341; |
|
|
T1342:;} |
|
|
base[0]= VV[2]; |
|
|
base[1]= VV[146]; |
|
|
base[2]= list(3,VV[144],(V299),(V301)); |
|
|
vs_top=(vs_base=base+0)+3; |
|
|
Lerror(); |
|
3724 |
vs_top=sup; |
vs_top=sup; |
3725 |
T1341:; |
V375= vs_base[0]; |
3726 |
base[0]= cadr((V303)); |
V376= Cnil; |
3727 |
base[1]= (V299); |
V377= Cnil; |
3728 |
base[2]= (V302); |
vs_base=vs_top; |
3729 |
base[3]= (V300); |
(void) (*Lnk357)(); |
3730 |
{object V307; |
vs_top=sup; |
3731 |
V307= cddr((V303)); |
V376= vs_base[0]; |
3732 |
vs_top=base+4; |
if(!(type_of((V375))==t_symbol)){ |
3733 |
while(!endp(V307)) |
goto T1445;} |
3734 |
{vs_push(car(V307));V307=cdr(V307);} |
base[3]= (V375); |
3735 |
vs_base=base+1;} |
base[4]= STREF(object,(VV[96]->s.s_dbind),8); |
3736 |
super_funcall_no_event(base[0]); |
vs_top=(vs_base=base+3)+2; |
3737 |
|
(void) (*Lnk347)(); |
3738 |
|
vs_top=sup; |
3739 |
|
V377= vs_base[0]; |
3740 |
|
if(((V377))!=Cnil){ |
3741 |
|
goto T1444;} |
3742 |
|
T1445:; |
3743 |
|
base[3]= VV[191]; |
3744 |
|
base[4]= (V375); |
3745 |
|
vs_top=(vs_base=base+3)+2; |
3746 |
|
(void) (*Lnk343)(); |
3747 |
|
vs_top=sup; |
3748 |
|
T1444:; |
3749 |
|
base[3]= CMPcar((V377)); |
3750 |
|
base[4]= (V373); |
3751 |
|
base[5]= (V376); |
3752 |
|
base[6]= (V374); |
3753 |
|
{object V378; |
3754 |
|
V378= CMPcdr((V377)); |
3755 |
|
vs_top=base+7; |
3756 |
|
while(V378!=Cnil) |
3757 |
|
{vs_push((V378)->c.c_car);V378=(V378)->c.c_cdr;} |
3758 |
|
vs_base=base+4;} |
3759 |
|
super_funcall_no_event(base[3]); |
3760 |
return;} |
return;} |
3761 |
} |
} |
3762 |
/* function definition for LOOP-DO-REPEAT */ |
/* function definition for LOOP-DO-REPEAT */ |
3763 |
|
|
3764 |
static L54() |
static L84() |
3765 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3766 |
register object *sup=base+VM54; VC54 |
register object *sup=base+VM72; VC72 |
3767 |
vs_reserve(VM54); |
vs_check; |
|
check_arg(0); |
|
3768 |
vs_top=sup; |
vs_top=sup; |
3769 |
TTL:; |
TTL:; |
3770 |
{object V308; |
{register object V379; |
3771 |
base[1]= VV[147]; |
register object V380; |
3772 |
vs_top=(vs_base=base+1)+1; |
vs_base=vs_top; |
3773 |
Lgentemp(); |
(void) (*Lnk357)(); |
3774 |
vs_top=sup; |
vs_top=sup; |
3775 |
base[0]= vs_base[0]; |
V379= vs_base[0]; |
3776 |
base[2]= VV[148]; |
vs_base=vs_top; |
3777 |
vs_top=(vs_base=base+2)+1; |
(void) (*Lnk363)(); |
|
(void) (*Lnk250)(); |
|
3778 |
vs_top=sup; |
vs_top=sup; |
3779 |
base[1]= vs_base[0]; |
base[0]= vs_base[0]; |
3780 |
base[2]= VV[110]; |
base[1]= (VV[180]->s.s_dbind); |
3781 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+2; |
3782 |
(void) (*Lnk236)(); |
(void) (*Lnk371)(); |
3783 |
vs_top=sup; |
vs_top=sup; |
3784 |
V308= vs_base[0]; |
V380= vs_base[0]; |
3785 |
base[0]= VV[149]; |
if(!(type_of((V379))==t_cons)){ |
3786 |
base[1]= VV[110]; |
goto T1463;} |
3787 |
|
if(!((CMPcar((V379)))==(VV[192]))){ |
3788 |
|
goto T1463;} |
3789 |
|
base[0]= CMPcadr((V379)); |
3790 |
|
base[1]= (V380); |
3791 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3792 |
(void) (*Lnk258)(); |
(void) (*Lnk323)(); |
3793 |
vs_top=sup; |
vs_top=sup; |
3794 |
V309= vs_base[0]; |
if((vs_base[0])==Cnil){ |
3795 |
V310= list(2,VV[130],list(2,V309,(V308))); |
goto T1463;} |
3796 |
base[0]= VV[150]; |
V380= CMPcadr((V379)); |
3797 |
base[1]= VV[110]; |
T1463:; |
3798 |
|
{object V381; |
3799 |
|
object V382; |
3800 |
|
object V383; |
3801 |
|
base[0]= (V379); |
3802 |
|
base[1]= (V380); |
3803 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3804 |
(void) (*Lnk258)(); |
(void) (*Lnk375)(); |
3805 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1476;} |
3806 |
|
V381= vs_base[0]; |
3807 |
|
vs_base++; |
3808 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1477;} |
3809 |
|
V382= vs_base[0]; |
3810 |
|
vs_base++; |
3811 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1478;} |
3812 |
|
V383= vs_base[0]; |
3813 |
vs_top=sup; |
vs_top=sup; |
3814 |
V311= vs_base[0]; |
goto T1479; |
3815 |
base[0]= list(4,/* INLINE-ARGS */V310,Cnil,Cnil,list(2,(V308),list(2,V311,(V308)))); |
T1476:; |
3816 |
|
V381= Cnil; |
3817 |
|
T1477:; |
3818 |
|
V382= Cnil; |
3819 |
|
T1478:; |
3820 |
|
V383= Cnil; |
3821 |
|
T1479:; |
3822 |
|
if(((V382))==Cnil){ |
3823 |
|
goto T1481;} |
3824 |
|
if(!(number_compare((V383),small_fixnum(1))<=0)){ |
3825 |
|
goto T1481;} |
3826 |
|
base[0]= listA(6,Ct,Cnil,Cnil,Cnil,(number_compare((V383),small_fixnum(0))<=0?Ct:Cnil),VV[193]); |
3827 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3828 |
return;} |
return; |
3829 |
|
T1481:; |
3830 |
|
{register object V384; |
3831 |
|
base[1]= VV[194]; |
3832 |
|
vs_top=(vs_base=base+1)+1; |
3833 |
|
(void) (*Lnk324)(); |
3834 |
|
vs_top=sup; |
3835 |
|
base[0]= vs_base[0]; |
3836 |
|
base[1]= (V381); |
3837 |
|
base[2]= (V380); |
3838 |
|
vs_top=(vs_base=base+0)+3; |
3839 |
|
(void) (*Lnk355)(); |
3840 |
|
vs_top=sup; |
3841 |
|
V384= vs_base[0]; |
3842 |
|
if(((V382))==Cnil){ |
3843 |
|
goto T1491;} |
3844 |
|
V385= list(2,VV[36],list(2,VV[195],list(3,VV[11],(V384),list(2,VV[196],(V384))))); |
3845 |
|
base[0]= make_cons(/* INLINE-ARGS */V385,VV[197]); |
3846 |
|
vs_top=(vs_base=base+0)+1; |
3847 |
|
return; |
3848 |
|
T1491:; |
3849 |
|
V386= list(2,VV[198],list(3,VV[11],(V384),list(2,VV[196],(V384)))); |
3850 |
|
base[0]= make_cons(/* INLINE-ARGS */V386,VV[199]); |
3851 |
|
vs_top=(vs_base=base+0)+1; |
3852 |
|
return;}}} |
3853 |
} |
} |
3854 |
/* function definition for LOOP-WHEN-IT-VARIABLE */ |
/* function definition for LOOP-WHEN-IT-VARIABLE */ |
3855 |
|
|
3856 |
static L55() |
static L85() |
3857 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3858 |
register object *sup=base+VM55; VC55 |
register object *sup=base+VM73; VC73 |
3859 |
vs_reserve(VM55); |
vs_check; |
|
check_arg(0); |
|
3860 |
vs_top=sup; |
vs_top=sup; |
3861 |
TTL:; |
TTL:; |
3862 |
if(symbol_value(VV[63])!=Cnil){ |
if((VV[115]->s.s_dbind)!=Cnil){ |
3863 |
base[0]= symbol_value(VV[63]); |
base[0]= (VV[115]->s.s_dbind); |
3864 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3865 |
return;} |
return;} |
3866 |
base[1]= VV[151]; |
base[1]= VV[200]; |
3867 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3868 |
Lgentemp(); |
(void) (*Lnk324)(); |
3869 |
vs_top=sup; |
vs_top=sup; |
3870 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3871 |
base[1]= Cnil; |
base[1]= Cnil; |
3872 |
base[2]= Cnil; |
base[2]= Cnil; |
3873 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3874 |
(void) (*Lnk236)(); |
(void) (*Lnk355)(); |
3875 |
vs_top=sup; |
vs_top=sup; |
3876 |
setq(VV[63],vs_base[0]); |
(VV[115]->s.s_dbind)= vs_base[0]; |
3877 |
base[0]= symbol_value(VV[63]); |
base[0]= (VV[115]->s.s_dbind); |
3878 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3879 |
return; |
return; |
3880 |
} |
} |
3881 |
/* function definition for LOOP-FOR-EQUALS */ |
/* function definition for LOOP-ANSI-FOR-EQUALS */ |
3882 |
|
|
3883 |
static L56() |
static L86() |
3884 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3885 |
register object *sup=base+VM56; VC56 |
register object *sup=base+VM74; VC74 |
3886 |
vs_reserve(VM56); |
vs_check; |
3887 |
{register object V312; |
{register object V387; |
3888 |
object V313; |
object V388; |
3889 |
object V314; |
object V389; |
3890 |
check_arg(3); |
V387=(base[0]); |
3891 |
V312=(base[0]); |
V388=(base[1]); |
3892 |
V313=(base[1]); |
V389=(base[2]); |
|
V314=(base[2]); |
|
3893 |
vs_top=sup; |
vs_top=sup; |
3894 |
TTL:; |
TTL:; |
3895 |
base[3]= car(symbol_value(VV[46])); |
base[3]= (V387); |
3896 |
base[4]= VV[152]; |
base[4]= Cnil; |
3897 |
|
base[5]= (V389); |
3898 |
|
vs_top=(vs_base=base+3)+3; |
3899 |
|
(void) (*Lnk376)(); |
3900 |
|
vs_top=sup; |
3901 |
|
base[3]= CMPcar((VV[89]->s.s_dbind)); |
3902 |
|
base[4]= VV[201]; |
3903 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3904 |
(void) (*Lnk244)(); |
(void) (*Lnk353)(); |
3905 |
vs_top=sup; |
vs_top=sup; |
3906 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3907 |
goto T1373;} |
goto T1503;} |
3908 |
{object V315; |
vs_base=vs_top; |
3909 |
V315= car(symbol_value(VV[46])); |
(void) (*Lnk346)(); |
|
setq(VV[46],cdr(symbol_value(VV[46])));} |
|
|
base[3]= (V312); |
|
|
base[4]= (V313); |
|
|
base[5]= (V314); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk257)(); |
|
3910 |
vs_top=sup; |
vs_top=sup; |
3911 |
base[3]= list(5,VV[144],(V312),VV[131],(V313),VV[152]); |
vs_base=vs_top; |
3912 |
vs_top=(vs_base=base+3)+1; |
(void) (*Lnk357)(); |
|
(void) (*Lnk250)(); |
|
3913 |
vs_top=sup; |
vs_top=sup; |
3914 |
V316= vs_base[0]; |
V390= vs_base[0]; |
3915 |
base[3]= listA(3,Cnil,list(2,(V312),V316),VV[153]); |
V391= list(2,(V387),V390); |
3916 |
|
base[3]= listA(7,Cnil,/* INLINE-ARGS */V391,Cnil,Cnil,Cnil,list(2,(V387),(V388)),VV[202]); |
3917 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3918 |
return; |
return; |
3919 |
T1373:; |
T1503:; |
3920 |
base[3]= (V312); |
base[3]= listA(3,Cnil,list(2,(V387),(V388)),VV[203]); |
3921 |
|
vs_top=(vs_base=base+3)+1; |
3922 |
|
return; |
3923 |
|
} |
3924 |
|
} |
3925 |
|
/* function definition for LOOP-FOR-ACROSS */ |
3926 |
|
|
3927 |
|
static L87() |
3928 |
|
{register object *base=vs_base; |
3929 |
|
register object *sup=base+VM75; VC75 |
3930 |
|
vs_check; |
3931 |
|
{object V392; |
3932 |
|
object V393; |
3933 |
|
object V394; |
3934 |
|
V392=(base[0]); |
3935 |
|
V393=(base[1]); |
3936 |
|
V394=(base[2]); |
3937 |
|
vs_top=sup; |
3938 |
|
TTL:; |
3939 |
|
base[3]= (V392); |
3940 |
base[4]= Cnil; |
base[4]= Cnil; |
3941 |
base[5]= (V314); |
base[5]= (V394); |
3942 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3943 |
(void) (*Lnk257)(); |
(void) (*Lnk376)(); |
3944 |
vs_top=sup; |
vs_top=sup; |
3945 |
{object V317; |
{object V395; |
3946 |
V317= list(2,(V312),(V313)); |
register object V396; |
3947 |
if((symbol_value(VV[59]))==Cnil){ |
base[3]= VV[204]; |
|
goto T1393;} |
|
|
base[4]= (V317); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk227)(); |
|
|
vs_top=sup; |
|
|
base[3]= vs_base[0]; |
|
3948 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3949 |
(void) (*Lnk249)(); |
(void) (*Lnk324)(); |
3950 |
vs_top=sup; |
vs_top=sup; |
3951 |
base[3]= VV[154]; |
V395= vs_base[0]; |
3952 |
vs_top=(vs_base=base+3)+1; |
base[3]= VV[205]; |
|
return; |
|
|
T1393:; |
|
|
{object V318; |
|
|
V318= listA(3,Cnil,(V317),VV[155]); |
|
|
if(((V318))==Cnil){ |
|
|
goto T1400;} |
|
|
base[3]= (V318); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return; |
|
|
T1400:; |
|
|
base[3]= Cnil; |
|
3953 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3954 |
return;}} |
(void) (*Lnk324)(); |
3955 |
|
vs_top=sup; |
3956 |
|
V396= vs_base[0]; |
3957 |
|
{register object V397; |
3958 |
|
object V398; |
3959 |
|
object V399; |
3960 |
|
base[3]= (V393); |
3961 |
|
base[4]= VV[206]; |
3962 |
|
vs_top=(vs_base=base+3)+2; |
3963 |
|
(void) (*Lnk375)(); |
3964 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1520;} |
3965 |
|
V397= vs_base[0]; |
3966 |
|
vs_base++; |
3967 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1521;} |
3968 |
|
V398= vs_base[0]; |
3969 |
|
vs_base++; |
3970 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1522;} |
3971 |
|
V399= vs_base[0]; |
3972 |
|
vs_top=sup; |
3973 |
|
goto T1523; |
3974 |
|
T1520:; |
3975 |
|
V397= Cnil; |
3976 |
|
T1521:; |
3977 |
|
V398= Cnil; |
3978 |
|
T1522:; |
3979 |
|
V399= Cnil; |
3980 |
|
T1523:; |
3981 |
|
base[3]= (V395); |
3982 |
|
base[4]= (V397); |
3983 |
|
if(!(type_of((V397))==t_cons)){ |
3984 |
|
goto T1529;} |
3985 |
|
if(!((CMPcar((V397)))==(VV[192]))){ |
3986 |
|
goto T1529;} |
3987 |
|
base[5]= CMPcadr((V397)); |
3988 |
|
goto T1527; |
3989 |
|
T1529:; |
3990 |
|
base[5]= VV[206]; |
3991 |
|
T1527:; |
3992 |
|
vs_top=(vs_base=base+3)+3; |
3993 |
|
(void) (*Lnk355)(); |
3994 |
|
vs_top=sup; |
3995 |
|
base[3]= (V396); |
3996 |
|
base[4]= small_fixnum(0); |
3997 |
|
base[5]= VV[207]; |
3998 |
|
vs_top=(vs_base=base+3)+3; |
3999 |
|
(void) (*Lnk355)(); |
4000 |
|
vs_top=sup; |
4001 |
|
{int V400; |
4002 |
|
object V401; |
4003 |
|
register object V402; |
4004 |
|
object V403; |
4005 |
|
object V404; |
4006 |
|
object V405; |
4007 |
|
V400= 0; |
4008 |
|
if(((V398))!=Cnil){ |
4009 |
|
goto T1540;} |
4010 |
|
{object V406; |
4011 |
|
base[7]= VV[208]; |
4012 |
|
vs_top=(vs_base=base+7)+1; |
4013 |
|
(void) (*Lnk324)(); |
4014 |
|
vs_top=sup; |
4015 |
|
V406= vs_base[0]; |
4016 |
|
V407= list(3,VV[11],(V406),list(2,VV[209],(V395))); |
4017 |
|
(VV[105]->s.s_dbind)= make_cons(/* INLINE-ARGS */V407,(VV[105]->s.s_dbind)); |
4018 |
|
base[7]= (V406); |
4019 |
|
base[8]= small_fixnum(0); |
4020 |
|
base[9]= VV[207]; |
4021 |
|
vs_top=(vs_base=base+7)+3; |
4022 |
|
(void) (*Lnk355)(); |
4023 |
|
vs_top=sup; |
4024 |
|
V401= vs_base[0]; |
4025 |
|
goto T1538;} |
4026 |
|
T1540:; |
4027 |
|
V400= length((V399)); |
4028 |
|
V401= CMPmake_fixnum(V400); |
4029 |
|
T1538:; |
4030 |
|
V402= list(3,VV[210],(V396),(V401)); |
4031 |
|
V403= (V402); |
4032 |
|
V404= list(2,(V392),list(3,VV[211],(V395),(V396))); |
4033 |
|
V405= list(2,(V396),list(2,VV[177],(V396))); |
4034 |
|
if(((V398))==Cnil){ |
4035 |
|
goto T1554;} |
4036 |
|
V402= ((V400)==(0)?Ct:Cnil); |
4037 |
|
if(!((V400)<=(1))){ |
4038 |
|
goto T1554;} |
4039 |
|
V403= Ct; |
4040 |
|
T1554:; |
4041 |
|
if(((((V402))==((V403))?Ct:Cnil))==Cnil){ |
4042 |
|
goto T1563;} |
4043 |
|
V408= Cnil; |
4044 |
|
goto T1562; |
4045 |
|
T1563:; |
4046 |
|
V408= list(4,(V402),(V404),Cnil,(V405)); |
4047 |
|
T1562:; |
4048 |
|
base[7]= listA(5,(V403),(V404),Cnil,(V405),V408); |
4049 |
|
vs_top=(vs_base=base+7)+1; |
4050 |
|
return;}}} |
4051 |
} |
} |
4052 |
} |
} |
4053 |
/* function definition for LOOP-FOR-FIRST */ |
/* function definition for LOOP-LIST-STEP */ |
4054 |
|
|
4055 |
static L57() |
static L88() |
4056 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4057 |
register object *sup=base+VM57; VC57 |
register object *sup=base+VM76; VC76 |
4058 |
vs_reserve(VM57); |
vs_check; |
4059 |
{register object V319; |
{object V409; |
4060 |
object V320; |
V409=(base[0]); |
|
object V321; |
|
|
check_arg(3); |
|
|
V319=(base[0]); |
|
|
V320=(base[1]); |
|
|
V321=(base[2]); |
|
4061 |
vs_top=sup; |
vs_top=sup; |
4062 |
TTL:;{object V322; |
TTL:; |
4063 |
base[3]= car(symbol_value(VV[46])); |
{register object V410; |
4064 |
base[4]= VV[152]; |
base[1]= CMPcar((VV[89]->s.s_dbind)); |
4065 |
vs_top=(vs_base=base+3)+2; |
base[2]= VV[212]; |
4066 |
(void) (*Lnk244)(); |
vs_top=(vs_base=base+1)+2; |
4067 |
|
(void) (*Lnk353)(); |
4068 |
vs_top=sup; |
vs_top=sup; |
4069 |
V322= vs_base[0]; |
if((vs_base[0])==Cnil){ |
4070 |
if(V322==Cnil)goto T1403; |
goto T1567;} |
4071 |
goto T1402; |
vs_base=vs_top; |
4072 |
T1403:;} |
(void) (*Lnk346)(); |
|
base[3]= VV[2]; |
|
|
base[4]= VV[156]; |
|
|
base[5]= car(symbol_value(VV[46])); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
Lerror(); |
|
4073 |
vs_top=sup; |
vs_top=sup; |
4074 |
T1402:; |
vs_base=vs_top; |
4075 |
{object V323; |
(void) (*Lnk357)(); |
|
V323= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46])));} |
|
|
base[3]= (V319); |
|
|
base[4]= Cnil; |
|
|
base[5]= (V321); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
(void) (*Lnk257)(); |
|
4076 |
vs_top=sup; |
vs_top=sup; |
4077 |
base[3]= list(5,VV[144],(V319),VV[157],(V320),VV[152]); |
V410= vs_base[0]; |
4078 |
vs_top=(vs_base=base+3)+1; |
goto T1565; |
4079 |
(void) (*Lnk250)(); |
T1567:; |
4080 |
|
V410= VV[213]; |
4081 |
|
T1565:; |
4082 |
|
if(!(type_of((V410))==t_cons)){ |
4083 |
|
goto T1573;} |
4084 |
|
if(!((CMPcar((V410)))==(VV[214]))){ |
4085 |
|
goto T1573;} |
4086 |
|
base[1]= VV[215]; |
4087 |
|
vs_top=(vs_base=base+1)+1; |
4088 |
|
(void) (*Lnk335)(); |
4089 |
vs_top=sup; |
vs_top=sup; |
4090 |
V324= vs_base[0]; |
base[1]= list(3,VV[216],(V410),(V409)); |
4091 |
V325= list(2,(V319),V324); |
base[2]= Cnil; |
4092 |
base[3]= listA(7,Cnil,/* INLINE-ARGS */V325,Cnil,Cnil,Cnil,list(2,(V319),(V320)),VV[158]); |
vs_top=(vs_base=base+1)+2; |
|
vs_top=(vs_base=base+3)+1; |
|
4093 |
return; |
return; |
4094 |
|
T1573:; |
4095 |
|
if(!(type_of((V410))==t_cons)){ |
4096 |
|
goto T1582;} |
4097 |
|
if(!((CMPcar((V410)))==(VV[83]))){ |
4098 |
|
goto T1582;} |
4099 |
|
base[1]= list(2,CMPcadr((V410)),(V409)); |
4100 |
|
base[2]= CMPcadr((V410)); |
4101 |
|
vs_top=(vs_base=base+1)+2; |
4102 |
|
return; |
4103 |
|
T1582:; |
4104 |
|
base[3]= VV[217]; |
4105 |
|
vs_top=(vs_base=base+3)+1; |
4106 |
|
(void) (*Lnk324)(); |
4107 |
|
vs_top=sup; |
4108 |
|
base[2]= vs_base[0]; |
4109 |
|
base[3]= (V410); |
4110 |
|
base[4]= VV[83]; |
4111 |
|
vs_top=(vs_base=base+2)+3; |
4112 |
|
(void) (*Lnk355)(); |
4113 |
|
vs_top=sup; |
4114 |
|
V411= vs_base[0]; |
4115 |
|
base[1]= list(3,VV[216],V411,(V409)); |
4116 |
|
base[2]= Cnil; |
4117 |
|
vs_top=(vs_base=base+1)+2; |
4118 |
|
return;} |
4119 |
} |
} |
4120 |
} |
} |
4121 |
/* function definition for LOOP-LIST-STEPPER */ |
/* function definition for LOOP-FOR-ON */ |
4122 |
|
|
4123 |
static L58() |
static L89() |
4124 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4125 |
register object *sup=base+VM58; VC58 |
register object *sup=base+VM77; VC77 |
4126 |
vs_reserve(VM58); |
vs_check; |
4127 |
{register object V326; |
{register object V412; |
4128 |
object V327; |
object V413; |
4129 |
object V328; |
object V414; |
4130 |
object V329; |
V412=(base[0]); |
4131 |
check_arg(4); |
V413=(base[1]); |
4132 |
V326=(base[0]); |
V414=(base[2]); |
|
V327=(base[1]); |
|
|
V328=(base[2]); |
|
|
V329=(base[3]); |
|
4133 |
vs_top=sup; |
vs_top=sup; |
4134 |
TTL:; |
TTL:; |
4135 |
{register object V330; |
{object V415; |
4136 |
register object V331; |
object V416; |
4137 |
object V332; |
object V417; |
4138 |
object V333; |
base[3]= (V413); |
4139 |
register object V334; |
vs_top=(vs_base=base+3)+1; |
4140 |
register object V335; |
(void) (*Lnk375)(); |
4141 |
base[4]= car(symbol_value(VV[46])); |
if(vs_base>=vs_top){vs_top=sup;goto T1597;} |
4142 |
base[5]= VV[159]; |
V415= vs_base[0]; |
4143 |
vs_top=(vs_base=base+4)+2; |
vs_base++; |
4144 |
(void) (*Lnk244)(); |
if(vs_base>=vs_top){vs_top=sup;goto T1598;} |
4145 |
|
V416= vs_base[0]; |
4146 |
|
vs_base++; |
4147 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1599;} |
4148 |
|
V417= vs_base[0]; |
4149 |
vs_top=sup; |
vs_top=sup; |
4150 |
if((vs_base[0])==Cnil){ |
goto T1600; |
4151 |
goto T1422;} |
T1597:; |
4152 |
{object V336; |
V415= Cnil; |
4153 |
V336= car(symbol_value(VV[46])); |
T1598:; |
4154 |
setq(VV[46],cdr(symbol_value(VV[46])));} |
V416= Cnil; |
4155 |
if(!(((V329))==(VV[20]))){ |
T1599:; |
4156 |
goto T1433;} |
V417= Cnil; |
4157 |
V337= VV[160]; |
T1600:; |
4158 |
goto T1431; |
{register object V418; |
4159 |
T1433:; |
V418= (V412); |
4160 |
V337= VV[161]; |
if(((V412))==Cnil){ |
4161 |
T1431:; |
goto T1603;} |
4162 |
base[4]= list(5,VV[144],(V326),V337,(V327),VV[159]); |
if(!(type_of((V412))==t_symbol)){ |
4163 |
vs_top=(vs_base=base+4)+1; |
goto T1603;} |
4164 |
(void) (*Lnk250)(); |
base[3]= (V412); |
4165 |
|
base[4]= (V415); |
4166 |
|
base[5]= (V414); |
4167 |
|
vs_top=(vs_base=base+3)+3; |
4168 |
|
(void) (*Lnk376)(); |
4169 |
vs_top=sup; |
vs_top=sup; |
4170 |
V330= vs_base[0]; |
goto T1601; |
4171 |
goto T1420; |
T1603:; |
4172 |
T1422:; |
vs_base=vs_top; |
4173 |
V330= VV[162]; |
(void) (*Lnk324)(); |
|
T1420:; |
|
|
V331= Cnil; |
|
|
V332= Cnil; |
|
|
V333= Cnil; |
|
|
V334= Cnil; |
|
|
V335= Cnil; |
|
|
if(type_of((V330))!=t_cons){ |
|
|
goto T1437;} |
|
|
{register object x= car((V330)),V338= VV[163]; |
|
|
while(!endp(V338)) |
|
|
if(eql(x,V338->c.c_car)){ |
|
|
goto T1438; |
|
|
}else V338=V338->c.c_cdr;} |
|
|
T1437:; |
|
|
base[4]= VV[165]; |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
Lgentemp(); |
|
4174 |
vs_top=sup; |
vs_top=sup; |
4175 |
V332= vs_base[0]; |
V418= vs_base[0]; |
4176 |
V333= list(2,VV[164],(V332)); |
base[3]= (V418); |
4177 |
goto T1436; |
base[4]= (V415); |
4178 |
T1438:; |
base[5]= VV[5]; |
4179 |
V333= make_cons(cadr((V330)),Cnil); |
vs_top=(vs_base=base+3)+3; |
4180 |
T1436:; |
(void) (*Lnk355)(); |
|
if(!(type_of((V326))!=t_cons)){ |
|
|
goto T1446;} |
|
|
if(((V329))!=Cnil){ |
|
|
goto T1446;} |
|
|
base[4]= (V326); |
|
|
base[5]= (V327); |
|
|
base[6]= (V328); |
|
|
vs_top=(vs_base=base+4)+3; |
|
|
(void) (*Lnk257)(); |
|
4181 |
vs_top=sup; |
vs_top=sup; |
4182 |
V331= vs_base[0]; |
base[3]= (V412); |
4183 |
goto T1444; |
base[4]= Cnil; |
4184 |
T1446:; |
base[5]= (V414); |
4185 |
base[4]= (V326); |
vs_top=(vs_base=base+3)+3; |
4186 |
base[5]= Cnil; |
(void) (*Lnk376)(); |
|
base[6]= (V328); |
|
|
vs_top=(vs_base=base+4)+3; |
|
|
(void) (*Lnk257)(); |
|
4187 |
vs_top=sup; |
vs_top=sup; |
4188 |
base[5]= VV[166]; |
T1601:; |
4189 |
vs_top=(vs_base=base+5)+1; |
{object V419; |
4190 |
Lgentemp(); |
object V420; |
4191 |
|
base[3]= (V418); |
4192 |
|
vs_top=(vs_base=base+3)+1; |
4193 |
|
(void) (*Lnk377)(); |
4194 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1620;} |
4195 |
|
V419= vs_base[0]; |
4196 |
|
vs_base++; |
4197 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1621;} |
4198 |
|
V420= vs_base[0]; |
4199 |
vs_top=sup; |
vs_top=sup; |
4200 |
base[4]= vs_base[0]; |
goto T1622; |
4201 |
base[5]= (V327); |
T1620:; |
4202 |
base[6]= Cnil; |
V419= Cnil; |
4203 |
|
T1621:; |
4204 |
|
V420= Cnil; |
4205 |
|
T1622:; |
4206 |
|
{register object V421; |
4207 |
|
object V422; |
4208 |
|
base[4]= (((V412))==((V418))?Ct:Cnil); |
4209 |
|
base[5]= (V418); |
4210 |
|
base[6]= list(2,VV[218],(V418)); |
4211 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4212 |
(void) (*Lnk236)(); |
(void) (*Lnk328)(); |
4213 |
vs_top=sup; |
vs_top=sup; |
4214 |
V331= vs_base[0]; |
V421= vs_base[0]; |
4215 |
if(((V329))==Cnil){ |
V422= (V421); |
4216 |
goto T1467;} |
if(((V416))==Cnil){ |
4217 |
V339= list(2,(V329),(V331)); |
goto T1628;} |
4218 |
goto T1465; |
if(!(type_of((V417))==t_cons||((V417))==Cnil)){ |
4219 |
T1467:; |
goto T1628;} |
4220 |
V339= (V331); |
V421= (((V417))==Cnil?Ct:Cnil); |
4221 |
T1465:; |
T1628:; |
4222 |
V335= list(2,(V326),V339); |
if(!(((V412))==((V418)))){ |
4223 |
T1444:; |
goto T1635;} |
4224 |
base[4]= (V333); |
base[4]= Ct; |
4225 |
vs_top=(vs_base=base+4)+1; |
base[5]= (V418); |
4226 |
Llast(); |
base[6]= (V419); |
|
vs_top=sup; |
|
|
V340= vs_base[0]; |
|
|
V341= make_cons((V331),Cnil); |
|
|
if(type_of(V340)!=t_cons)FEwrong_type_argument(Scons,V340); |
|
|
(V340)->c.c_cdr = /* INLINE-ARGS */V341; |
|
|
if((V332)==Cnil){ |
|
|
goto T1472;} |
|
|
base[4]= (V332); |
|
|
base[5]= (V330); |
|
|
base[6]= Cnil; |
|
4227 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4228 |
(void) (*Lnk236)(); |
(void) (*Lnk328)(); |
4229 |
vs_top=sup; |
vs_top=sup; |
4230 |
T1472:; |
V423= vs_base[0]; |
4231 |
V330= list(2,(V331),(V333)); |
base[4]= list(8,Cnil,list(2,(V418),V423),(V422),Cnil,Cnil,Cnil,(V421),Cnil); |
|
V334= list(2,VV[167],(V331)); |
|
|
if(((V335))!=Cnil){ |
|
|
goto T1481;} |
|
|
base[4]= list(8,Cnil,(V330),(V334),Cnil,Cnil,Cnil,(V334),Cnil); |
|
4232 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4233 |
return; |
return; |
4234 |
T1481:; |
T1635:; |
4235 |
if(!((car((V333)))==(VV[21]))){ |
{object V424; |
4236 |
goto T1484;} |
object V425; |
4237 |
base[4]= list(4,(V334),(V335),Cnil,(V330)); |
V424= list(2,(V412),(V418)); |
4238 |
vs_top=(vs_base=base+4)+1; |
V425= list(2,(V418),(V419)); |
4239 |
return; |
if(((((V421))==((V422))?Ct:Cnil))==Cnil){ |
4240 |
T1484:; |
goto T1644;} |
4241 |
base[4]= list(8,list(2,VV[167],make_cons(VV[15],(V330))),Cnil,Cnil,(V335),(V334),Cnil,Cnil,(V335)); |
V426= Cnil; |
4242 |
|
goto T1643; |
4243 |
|
T1644:; |
4244 |
|
V426= list(4,(V421),(V424),Cnil,(V425)); |
4245 |
|
T1643:; |
4246 |
|
base[4]= listA(5,(V422),(V424),Cnil,(V425),V426); |
4247 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4248 |
return;} |
return;}}}}} |
4249 |
} |
} |
4250 |
} |
} |
4251 |
/* function definition for LOOP-FOR-ARITHMETIC */ |
/* function definition for LOOP-FOR-IN */ |
4252 |
|
|
4253 |
static L59() |
static L90() |
4254 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4255 |
register object *sup=base+VM59; VC59 |
register object *sup=base+VM78; VC78 |
4256 |
vs_reserve(VM59); |
vs_check; |
4257 |
{object V342; |
{object V427; |
4258 |
object V343; |
object V428; |
4259 |
object V344; |
object V429; |
4260 |
object V345; |
V427=(base[0]); |
4261 |
check_arg(4); |
V428=(base[1]); |
4262 |
V342=(base[0]); |
V429=(base[2]); |
|
V343=(base[1]); |
|
|
V344=(base[2]); |
|
|
V345=(base[3]); |
|
4263 |
vs_top=sup; |
vs_top=sup; |
4264 |
TTL:; |
TTL:; |
4265 |
base[4]= (V342); |
{object V430; |
4266 |
if((V344)!=Cnil){ |
object V431; |
4267 |
base[5]= (V344); |
object V432; |
4268 |
goto T1487;} |
base[3]= (V428); |
4269 |
base[5]= VV[110]; |
vs_top=(vs_base=base+3)+1; |
4270 |
T1487:; |
(void) (*Lnk375)(); |
4271 |
base[6]= Cnil; |
if(vs_base>=vs_top){vs_top=sup;goto T1648;} |
4272 |
base[7]= Cnil; |
V430= vs_base[0]; |
4273 |
base[8]= Cnil; |
vs_base++; |
4274 |
base[9]= Cnil; |
if(vs_base>=vs_top){vs_top=sup;goto T1649;} |
4275 |
base[10]= Cnil; |
V431= vs_base[0]; |
4276 |
base[11]= Cnil; |
vs_base++; |
4277 |
base[12]= list(4,VV[144],(V342),(V345),(V343)); |
if(vs_base>=vs_top){vs_top=sup;goto T1650;} |
4278 |
V346= list(2,(V345),(V343)); |
V432= vs_base[0]; |
|
base[14]= VV[168]; |
|
|
base[15]= Cnil; |
|
|
vs_top=(vs_base=base+14)+2; |
|
|
(void) (*Lnk263)(); |
|
4279 |
vs_top=sup; |
vs_top=sup; |
4280 |
V347= vs_base[0]; |
goto T1651; |
4281 |
base[13]= make_cons(/* INLINE-ARGS */V346,V347); |
T1648:; |
4282 |
vs_top=(vs_base=base+4)+10; |
V430= Cnil; |
4283 |
(void) (*Lnk264)(); |
T1649:; |
4284 |
|
V431= Cnil; |
4285 |
|
T1650:; |
4286 |
|
V432= Cnil; |
4287 |
|
T1651:; |
4288 |
|
{register object V433; |
4289 |
|
base[3]= VV[219]; |
4290 |
|
vs_top=(vs_base=base+3)+1; |
4291 |
|
(void) (*Lnk324)(); |
4292 |
|
vs_top=sup; |
4293 |
|
V433= vs_base[0]; |
4294 |
|
base[3]= (V427); |
4295 |
|
base[4]= Cnil; |
4296 |
|
base[5]= (V429); |
4297 |
|
vs_top=(vs_base=base+3)+3; |
4298 |
|
(void) (*Lnk376)(); |
4299 |
|
vs_top=sup; |
4300 |
|
base[3]= (V433); |
4301 |
|
base[4]= (V430); |
4302 |
|
base[5]= VV[5]; |
4303 |
|
vs_top=(vs_base=base+3)+3; |
4304 |
|
(void) (*Lnk355)(); |
4305 |
|
vs_top=sup; |
4306 |
|
{object V434; |
4307 |
|
object V435; |
4308 |
|
base[3]= (V433); |
4309 |
|
vs_top=(vs_base=base+3)+1; |
4310 |
|
(void) (*Lnk377)(); |
4311 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1664;} |
4312 |
|
V434= vs_base[0]; |
4313 |
|
vs_base++; |
4314 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1665;} |
4315 |
|
V435= vs_base[0]; |
4316 |
|
vs_top=sup; |
4317 |
|
goto T1666; |
4318 |
|
T1664:; |
4319 |
|
V434= Cnil; |
4320 |
|
T1665:; |
4321 |
|
V435= Cnil; |
4322 |
|
T1666:; |
4323 |
|
{register object V436; |
4324 |
|
object V437; |
4325 |
|
object V438; |
4326 |
|
object V439; |
4327 |
|
V436= list(2,VV[220],(V433)); |
4328 |
|
V437= (V436); |
4329 |
|
V438= list(2,(V427),list(2,VV[65],(V433))); |
4330 |
|
V439= list(2,(V433),(V434)); |
4331 |
|
if(((V431))==Cnil){ |
4332 |
|
goto T1671;} |
4333 |
|
if(!(type_of((V432))==t_cons||((V432))==Cnil)){ |
4334 |
|
goto T1671;} |
4335 |
|
V436= (((V432))==Cnil?Ct:Cnil); |
4336 |
|
T1671:; |
4337 |
|
if(((((V436))==((V437))?Ct:Cnil))==Cnil){ |
4338 |
|
goto T1678;} |
4339 |
|
V440= Cnil; |
4340 |
|
goto T1677; |
4341 |
|
T1678:; |
4342 |
|
V440= list(4,(V436),(V438),Cnil,(V439)); |
4343 |
|
T1677:; |
4344 |
|
base[6]= listA(5,(V437),(V438),Cnil,(V439),V440); |
4345 |
|
vs_top=(vs_base=base+6)+1; |
4346 |
|
return;}}}} |
4347 |
|
} |
4348 |
|
} |
4349 |
|
/* function definition for MAKE-LOOP-PATH */ |
4350 |
|
|
4351 |
|
static L91() |
4352 |
|
{register object *base=vs_base; |
4353 |
|
register object *sup=base+VM79; VC79 |
4354 |
|
vs_check; |
4355 |
|
{object V441; |
4356 |
|
object V442; |
4357 |
|
object V443; |
4358 |
|
object V444; |
4359 |
|
object V445; |
4360 |
|
parse_key(vs_base,FALSE,FALSE,5,VV[223],VV[226],VV[227],VV[224],VV[225]); |
4361 |
|
vs_top=sup; |
4362 |
|
V441=(base[0]); |
4363 |
|
V442=(base[1]); |
4364 |
|
V443=(base[2]); |
4365 |
|
V444=(base[3]); |
4366 |
|
V445=(base[4]); |
4367 |
|
base[10]= VV[221]; |
4368 |
|
base[11]= (V441); |
4369 |
|
base[12]= (V442); |
4370 |
|
base[13]= (V443); |
4371 |
|
base[14]= (V444); |
4372 |
|
base[15]= (V445); |
4373 |
|
vs_top=(vs_base=base+10)+6; |
4374 |
|
siLmake_structure(); |
4375 |
return; |
return; |
4376 |
} |
} |
4377 |
} |
} |
4378 |
/* function definition for LOOP-NAMED-VARIABLE */ |
/* function definition for ADD-LOOP-PATH */ |
4379 |
|
|
4380 |
static L60() |
static L92() |
4381 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4382 |
register object *sup=base+VM60; VC60 |
register object *sup=base+VM80; VC80 |
4383 |
vs_reserve(VM60); |
vs_check; |
4384 |
{object V348; |
bds_check; |
4385 |
check_arg(1); |
{object V446; |
4386 |
V348=(base[0]); |
object V447; |
4387 |
|
register object V448; |
4388 |
|
object V449; |
4389 |
|
object V450; |
4390 |
|
object V451; |
4391 |
|
parse_key(vs_base+3,FALSE,FALSE,3,VV[226],VV[227],VV[225]); |
4392 |
|
V446=(base[0]); |
4393 |
|
V447=(base[1]); |
4394 |
|
V448=(base[2]); |
4395 |
|
vs_top=sup; |
4396 |
|
V449=(base[3]); |
4397 |
|
V450=(base[4]); |
4398 |
|
V451=(base[5]); |
4399 |
|
if(type_of((V446))==t_cons||((V446))==Cnil){ |
4400 |
|
goto T1686;} |
4401 |
|
V446= make_cons((V446),Cnil); |
4402 |
|
T1686:; |
4403 |
|
bds_bind(VV[44],small_fixnum(4)); |
4404 |
|
bds_bind(VV[45],small_fixnum(4)); |
4405 |
|
T1692:; |
4406 |
|
base[11]= (V448); |
4407 |
|
base[12]= VV[39]; |
4408 |
|
vs_top=(vs_base=base+11)+2; |
4409 |
|
(void) (*Lnk378)(); |
4410 |
vs_top=sup; |
vs_top=sup; |
4411 |
TTL:; |
if((vs_base[0])==Cnil){ |
4412 |
{object V349; |
goto T1693;} |
4413 |
base[1]= (V348); |
bds_unwind1; |
4414 |
base[2]= symbol_value(VV[51]); |
bds_unwind1; |
4415 |
vs_top=(vs_base=base+1)+2; |
goto T1690; |
4416 |
(void) (*Lnk231)(); |
T1693:; |
4417 |
|
base[11]= VV[47]; |
4418 |
|
base[12]= VV[48]; |
4419 |
|
base[13]= VV[222]; |
4420 |
|
base[14]= (V448); |
4421 |
|
base[15]= VV[39]; |
4422 |
|
vs_top=(vs_base=base+11)+5; |
4423 |
|
Lcerror(); |
4424 |
|
vs_top=sup; |
4425 |
|
base[11]= (VV[50]->s.s_dbind); |
4426 |
|
base[12]= VV[51]; |
4427 |
|
base[13]= VV[222]; |
4428 |
|
vs_top=(vs_base=base+11)+3; |
4429 |
|
Lformat(); |
4430 |
vs_top=sup; |
vs_top=sup; |
4431 |
V349= vs_base[0]; |
base[11]= (VV[50]->s.s_dbind); |
4432 |
if(((V349))!=Cnil){ |
vs_top=(vs_base=base+11)+1; |
4433 |
goto T1503;} |
Lfinish_output(); |
4434 |
base[1]= VV[112]; |
vs_top=sup; |
4435 |
vs_top=(vs_base=base+1)+1; |
vs_base=vs_top; |
4436 |
Lgentemp(); |
Lread(); |
4437 |
return; |
vs_top=sup; |
4438 |
T1503:; |
V448= vs_base[0]; |
4439 |
setq(VV[51],(VFUN_NARGS=2,(*(LnkLI234))((V349),symbol_value(VV[51])))); |
base[11]= (VV[50]->s.s_dbind); |
4440 |
base[1]= cdr((V349)); |
base[12]= VV[52]; |
4441 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+11)+2; |
4442 |
|
Lformat(); |
4443 |
|
vs_top=sup; |
4444 |
|
goto T1692; |
4445 |
|
T1690:; |
4446 |
|
{object V452; |
4447 |
|
object V453; |
4448 |
|
V452= STREF(object,(V448),12); |
4449 |
|
base[9]= VV[223]; |
4450 |
|
{object V454; |
4451 |
|
object V455= (V446); |
4452 |
|
if(V455==Cnil){ |
4453 |
|
base[10]= Cnil; |
4454 |
|
goto T1721;} |
4455 |
|
base[11]=V454=MMcons(Cnil,Cnil); |
4456 |
|
T1722:; |
4457 |
|
(V454->c.c_car)= symbol_name((V455->c.c_car)); |
4458 |
|
if((V455=MMcdr(V455))==Cnil){ |
4459 |
|
base[10]= base[11]; |
4460 |
|
goto T1721;} |
4461 |
|
V454=MMcdr(V454)=MMcons(Cnil,Cnil); |
4462 |
|
goto T1722;} |
4463 |
|
T1721:; |
4464 |
|
base[11]= VV[224]; |
4465 |
|
base[12]= (V447); |
4466 |
|
base[13]= VV[225]; |
4467 |
|
base[14]= (V451); |
4468 |
|
base[15]= VV[226]; |
4469 |
|
{object V456; |
4470 |
|
object V457= (V449); |
4471 |
|
if(V457==Cnil){ |
4472 |
|
base[16]= Cnil; |
4473 |
|
goto T1729;} |
4474 |
|
base[17]=V456=MMcons(Cnil,Cnil); |
4475 |
|
T1730:; |
4476 |
|
if(!(type_of((V457->c.c_car))==t_cons||((V457->c.c_car))==Cnil)){ |
4477 |
|
goto T1733;} |
4478 |
|
(V456->c.c_car)= (V457->c.c_car); |
4479 |
|
goto T1731; |
4480 |
|
T1733:; |
4481 |
|
(V456->c.c_car)= make_cons((V457->c.c_car),Cnil); |
4482 |
|
T1731:; |
4483 |
|
if((V457=MMcdr(V457))==Cnil){ |
4484 |
|
base[16]= base[17]; |
4485 |
|
goto T1729;} |
4486 |
|
V456=MMcdr(V456)=MMcons(Cnil,Cnil); |
4487 |
|
goto T1730;} |
4488 |
|
T1729:; |
4489 |
|
base[17]= VV[227]; |
4490 |
|
base[18]= (V450); |
4491 |
|
vs_top=(vs_base=base+9)+10; |
4492 |
|
(void) (*Lnk379)(); |
4493 |
|
vs_top=sup; |
4494 |
|
V453= vs_base[0]; |
4495 |
|
{register object V459; |
4496 |
|
register object V460; |
4497 |
|
V459= (V446); |
4498 |
|
V460= CMPcar((V459)); |
4499 |
|
T1741:; |
4500 |
|
if(!(((V459))==Cnil)){ |
4501 |
|
goto T1742;} |
4502 |
|
goto T1737; |
4503 |
|
T1742:; |
4504 |
|
{register object V461; |
4505 |
|
register object V462; |
4506 |
|
register object V463; |
4507 |
|
V461= symbol_name((V460)); |
4508 |
|
V462= (V452); |
4509 |
|
V463= (V453); |
4510 |
|
base[11]= (V461); |
4511 |
|
base[12]= (V462); |
4512 |
|
base[13]= (V463); |
4513 |
|
vs_top=(vs_base=base+11)+3; |
4514 |
|
siLhash_set(); |
4515 |
|
vs_top=sup;} |
4516 |
|
V459= CMPcdr((V459)); |
4517 |
|
V460= CMPcar((V459)); |
4518 |
|
goto T1741;} |
4519 |
|
T1737:; |
4520 |
|
base[9]= (V453); |
4521 |
|
vs_top=(vs_base=base+9)+1; |
4522 |
return;} |
return;} |
4523 |
} |
} |
4524 |
} |
} |
4525 |
/* function definition for LOOP-FOR-BEING */ |
/* function definition for LOOP-FOR-BEING */ |
4526 |
|
|
4527 |
static L61() |
static L93() |
4528 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4529 |
register object *sup=base+VM61; VC61 |
register object *sup=base+VM81; VC81 |
4530 |
vs_reserve(VM61); |
vs_check; |
4531 |
{object V350; |
{object V464; |
4532 |
register object V351; |
object V465; |
4533 |
object V352; |
object V466; |
4534 |
check_arg(3); |
V464=(base[0]); |
4535 |
V350=(base[0]); |
V465=(base[1]); |
4536 |
V351=(base[1]); |
V466=(base[2]); |
4537 |
V352=(base[2]); |
vs_top=sup; |
4538 |
vs_top=sup; |
TTL:; |
4539 |
TTL:; |
{register object V467; |
4540 |
{register object V353; |
object V468; |
4541 |
object V354; |
object V469; |
4542 |
object V355; |
object V470; |
4543 |
object V356; |
object V471; |
4544 |
object V357; |
V467= Cnil; |
4545 |
V353= Cnil; |
V468= Cnil; |
4546 |
V354= Cnil; |
V469= Cnil; |
4547 |
V355= Cnil; |
V470= Cnil; |
4548 |
V356= Cnil; |
V471= Cnil; |
4549 |
V357= Cnil; |
base[3]= (V465); |
4550 |
base[3]= (V351); |
base[4]= VV[228]; |
|
base[4]= VV[169]; |
|
4551 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4552 |
(void) (*Lnk244)(); |
(void) (*Lnk349)(); |
4553 |
vs_top=sup; |
vs_top=sup; |
4554 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])==Cnil){ |
4555 |
goto T1509;} |
goto T1760;} |
4556 |
base[3]= (V351); |
vs_base=vs_top; |
4557 |
base[4]= VV[170]; |
(void) (*Lnk346)(); |
4558 |
|
vs_top=sup; |
4559 |
|
V467= vs_base[0]; |
4560 |
|
goto T1758; |
4561 |
|
T1760:; |
4562 |
|
base[3]= CMPcar((VV[89]->s.s_dbind)); |
4563 |
|
base[4]= VV[152]; |
4564 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4565 |
(void) (*Lnk244)(); |
(void) (*Lnk353)(); |
4566 |
vs_top=sup; |
vs_top=sup; |
4567 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4568 |
goto T1510;} |
goto T1766;} |
4569 |
T1509:; |
vs_base=vs_top; |
4570 |
V356= Ct; |
(void) (*Lnk346)(); |
|
V351= car(symbol_value(VV[46])); |
|
|
goto T1508; |
|
|
T1510:; |
|
|
setq(VV[46],make_cons((V351),symbol_value(VV[46]))); |
|
|
T1508:; |
|
|
base[3]= (V351); |
|
|
base[4]= symbol_value(VV[171]); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk231)(); |
|
4571 |
vs_top=sup; |
vs_top=sup; |
4572 |
V353= vs_base[0]; |
V469= Ct; |
4573 |
if(((V353))==Cnil){ |
base[3]= CMPcar((VV[89]->s.s_dbind)); |
4574 |
goto T1524;} |
base[4]= VV[229]; |
|
if(((V356))!=Cnil){ |
|
|
goto T1523;} |
|
|
base[3]= cadr(symbol_value(VV[46])); |
|
|
base[4]= VV[95]; |
|
4575 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4576 |
(void) (*Lnk244)(); |
(void) (*Lnk349)(); |
4577 |
vs_top=sup; |
vs_top=sup; |
4578 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4579 |
goto T1524;} |
goto T1773;} |
4580 |
T1523:; |
base[3]= VV[230]; |
4581 |
{object V358; |
base[4]= CMPcar((VV[89]->s.s_dbind)); |
|
V358= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46]))); |
|
|
goto T1522;} |
|
|
T1524:; |
|
|
base[3]= list(3,VV[144],(V350),VV[172]); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
(void) (*Lnk250)(); |
|
|
vs_top=sup; |
|
|
V351= vs_base[0]; |
|
|
base[3]= car(symbol_value(VV[46])); |
|
|
base[4]= VV[95]; |
|
4582 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4583 |
(void) (*Lnk244)(); |
(void) (*Lnk343)(); |
4584 |
vs_top=sup; |
vs_top=sup; |
4585 |
if((vs_base[0])==Cnil){ |
T1773:; |
4586 |
goto T1542;} |
vs_base=vs_top; |
4587 |
if(!(((V356))==Cnil)){ |
(void) (*Lnk346)(); |
|
goto T1547;} |
|
|
goto T1546; |
|
|
T1547:; |
|
|
base[3]= VV[2]; |
|
|
base[4]= VV[173]; |
|
|
base[5]= (V350); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
Lerror(); |
|
4588 |
vs_top=sup; |
vs_top=sup; |
4589 |
T1546:; |
vs_base=vs_top; |
4590 |
V359= list(2,VV[174],(V351)); |
(void) (*Lnk346)(); |
|
V355= make_cons(/* INLINE-ARGS */V359,Cnil); |
|
|
V354= Ct; |
|
|
{object V360; |
|
|
V360= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46])));}{object V361; |
|
|
{object V362; |
|
|
V362= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46]))); |
|
|
V353= (V362);} |
|
|
base[3]= (V353); |
|
|
base[4]= VV[175]; |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk240)(); |
|
4591 |
vs_top=sup; |
vs_top=sup; |
4592 |
V361= vs_base[0]; |
V467= vs_base[0]; |
4593 |
if(V361==Cnil)goto T1561; |
V472= list(2,VV[231],(V465)); |
4594 |
goto T1560; |
V471= make_cons(/* INLINE-ARGS */V472,Cnil); |
4595 |
T1561:;} |
goto T1758; |
4596 |
base[3]= VV[2]; |
T1766:; |
4597 |
base[4]= VV[176]; |
base[3]= VV[232]; |
4598 |
base[5]= (V353); |
vs_top=(vs_base=base+3)+1; |
4599 |
vs_top=(vs_base=base+3)+3; |
(void) (*Lnk343)(); |
|
Lerror(); |
|
4600 |
vs_top=sup; |
vs_top=sup; |
4601 |
T1560:; |
T1758:; |
4602 |
base[3]= car(symbol_value(VV[46])); |
if(type_of((V467))==t_symbol){ |
4603 |
base[4]= symbol_value(VV[171]); |
goto T1787;} |
4604 |
|
base[3]= VV[233]; |
4605 |
|
base[4]= (V467); |
4606 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4607 |
(void) (*Lnk231)(); |
(void) (*Lnk343)(); |
4608 |
vs_top=sup; |
vs_top=sup; |
4609 |
V353= vs_base[0]; |
goto T1785; |
4610 |
if(((V353))==Cnil){ |
T1787:; |
4611 |
goto T1573;} |
base[3]= (V467); |
4612 |
{object V363; |
base[4]= STREF(object,(VV[96]->s.s_dbind),12); |
4613 |
V363= car(symbol_value(VV[46])); |
vs_top=(vs_base=base+3)+2; |
4614 |
setq(VV[46],cdr(symbol_value(VV[46]))); |
(void) (*Lnk347)(); |
|
goto T1522;} |
|
|
T1573:; |
|
|
base[3]= listA(3,VV[144],(V350),VV[177]); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
(void) (*Lnk250)(); |
|
4615 |
vs_top=sup; |
vs_top=sup; |
4616 |
V364= vs_base[0]; |
V468= vs_base[0]; |
4617 |
V357= list(2,VV[160],V364); |
if(((V468))!=Cnil){ |
4618 |
V355= make_cons((V357),(V355)); |
goto T1792;} |
4619 |
goto T1522; |
base[3]= VV[234]; |
4620 |
T1542:; |
base[4]= (V467); |
|
base[3]= car(symbol_value(VV[46])); |
|
|
base[4]= symbol_value(VV[171]); |
|
4621 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4622 |
(void) (*Lnk231)(); |
(void) (*Lnk343)(); |
4623 |
vs_top=sup; |
vs_top=sup; |
4624 |
V353= vs_base[0]; |
goto T1785; |
4625 |
if(((V353))!=Cnil){ |
T1792:; |
4626 |
goto T1586;} |
if(((V469))==Cnil){ |
4627 |
V357= list(2,VV[160],(V351)); |
goto T1785;} |
4628 |
V355= make_cons((V357),Cnil); |
if((STREF(object,(V468),8))!=Cnil){ |
4629 |
goto T1522; |
goto T1785;} |
4630 |
T1586:; |
base[3]= VV[235]; |
4631 |
{object V365; |
base[4]= (V467); |
|
V365= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46])));} |
|
|
T1522:; |
|
|
{object V366; |
|
|
V366= (((((V353))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
|
|
if(((V366))==Cnil){ |
|
|
goto T1599;} |
|
|
goto T1596; |
|
|
T1599:; |
|
|
base[3]= VV[178]; |
|
|
base[4]= symbol_value(VV[171]); |
|
4632 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4633 |
(void) (*Lnk231)(); |
(void) (*Lnk343)(); |
4634 |
vs_top=sup; |
vs_top=sup; |
4635 |
V353= vs_base[0]; |
T1785:; |
4636 |
if(((V353))!=Cnil){ |
{object V473; |
4637 |
goto T1596;} |
object V474; |
4638 |
base[3]= VV[2]; |
object V475; |
4639 |
base[4]= VV[179]; |
V473= STREF(object,(V468),12); |
4640 |
base[5]= cadr((V357)); |
base[3]= STREF(object,(V468),4); |
4641 |
vs_top=(vs_base=base+3)+3; |
base[4]= Ct; |
4642 |
Lerror(); |
vs_top=(vs_base=base+3)+2; |
4643 |
vs_top=sup;} |
(void) (*Lnk380)(); |
|
T1596:; |
|
|
V367= cadr((V353)); |
|
|
V368= car((V353)); |
|
|
base[3]= (V355); |
|
|
base[5]= caddr((V353)); |
|
|
base[6]= Ct; |
|
|
vs_top=(vs_base=base+5)+2; |
|
|
(void) (*Lnk263)(); |
|
4644 |
vs_top=sup; |
vs_top=sup; |
4645 |
base[4]= vs_base[0]; |
V476= vs_base[0]; |
4646 |
|
V474= nconc((V471),V476); |
4647 |
|
V475= STREF(object,(V468),16); |
4648 |
|
if(!(type_of((V473))==t_symbol)){ |
4649 |
|
goto T1812;} |
4650 |
|
base[3]= (V473); |
4651 |
|
vs_top=(vs_base=base+3)+1; |
4652 |
|
Lsymbol_function(); |
4653 |
|
vs_top=sup; |
4654 |
|
V473= vs_base[0]; |
4655 |
|
T1812:; |
4656 |
|
if(((V469))==Cnil){ |
4657 |
|
goto T1819;} |
4658 |
|
base[3]= (V473); |
4659 |
|
base[4]= (V464); |
4660 |
|
base[5]= (V466); |
4661 |
|
base[6]= (V474); |
4662 |
|
base[7]= VV[236]; |
4663 |
|
base[8]= Ct; |
4664 |
|
{object V477; |
4665 |
|
V477= (V475); |
4666 |
|
vs_top=base+9; |
4667 |
|
while(V477!=Cnil) |
4668 |
|
{vs_push((V477)->c.c_car);V477=(V477)->c.c_cdr;} |
4669 |
|
vs_base=base+4;} |
4670 |
|
super_funcall_no_event(base[3]); |
4671 |
|
vs_top=sup; |
4672 |
|
V470= vs_base[0]; |
4673 |
|
goto T1817; |
4674 |
|
T1819:; |
4675 |
|
base[3]= (V473); |
4676 |
|
base[4]= (V464); |
4677 |
|
base[5]= (V466); |
4678 |
|
base[6]= (V474); |
4679 |
|
{object V478; |
4680 |
|
V478= (V475); |
4681 |
|
vs_top=base+7; |
4682 |
|
while(V478!=Cnil) |
4683 |
|
{vs_push((V478)->c.c_car);V478=(V478)->c.c_cdr;} |
4684 |
|
vs_base=base+4;} |
4685 |
|
super_funcall_no_event(base[3]); |
4686 |
|
vs_top=sup; |
4687 |
|
V470= vs_base[0]; |
4688 |
|
T1817:;} |
4689 |
|
if(((VV[101]->s.s_dbind))==Cnil){ |
4690 |
|
goto T1833;} |
4691 |
|
base[3]= VV[237]; |
4692 |
|
base[4]= (VV[101]->s.s_dbind); |
4693 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4694 |
Lreconc(); |
(void) (*Lnk343)(); |
4695 |
vs_top=sup; |
vs_top=sup; |
4696 |
V369= vs_base[0]; |
T1833:; |
4697 |
V353= ( |
V480 = CMPmake_fixnum(length((V470))); |
4698 |
V370 = /* INLINE-ARGS */V367, |
{register object x= V480,V479= VV[238]; |
4699 |
(type_of(V370) == t_sfun ?(*(object (*)())((V370)->sfn.sfn_self)): |
while(V479!=Cnil) |
4700 |
(fcall.fun=(V370),fcall.argd=7,fcalln))(/* INLINE-ARGS */V368,(V350),(V352),V369,(V354),caddr((V353)),cdddr((V353)))); |
if(eql(x,V479->c.c_car)){ |
4701 |
if(symbol_value(VV[51])==Cnil){ |
goto T1838; |
4702 |
goto T1616;} |
}else V479=V479->c.c_cdr;} |
4703 |
base[3]= VV[2]; |
base[3]= VV[239]; |
4704 |
base[4]= VV[180]; |
base[4]= (V467); |
4705 |
base[5]= symbol_value(VV[51]); |
vs_top=(vs_base=base+3)+2; |
4706 |
vs_top=(vs_base=base+3)+3; |
(void) (*Lnk343)(); |
|
Lerror(); |
|
4707 |
vs_top=sup; |
vs_top=sup; |
4708 |
T1616:; |
T1838:; |
4709 |
setq(VV[51],Cnil); |
{register object V481; |
4710 |
{register object V371; |
register object V482; |
4711 |
register object V372; |
V481= CMPcar((V470)); |
4712 |
V371= car((V353)); |
V482= Cnil; |
4713 |
V372= Cnil; |
T1846:; |
4714 |
T1625:; |
if(((V481))!=Cnil){ |
4715 |
if(((V371))!=Cnil){ |
goto T1847;} |
4716 |
goto T1626;} |
goto T1843; |
4717 |
goto T1622; |
T1847:; |
4718 |
T1626:; |
V482= CMPcar((V481)); |
4719 |
V372= car((V371)); |
if(!(type_of((V482))!=t_cons)){ |
4720 |
if(!(type_of((V372))!=t_cons)){ |
goto T1853;} |
4721 |
goto T1632;} |
base[3]= (V482); |
|
base[3]= (V372); |
|
4722 |
base[4]= Cnil; |
base[4]= Cnil; |
4723 |
base[5]= Cnil; |
base[5]= Cnil; |
4724 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4725 |
(void) (*Lnk257)(); |
(void) (*Lnk376)(); |
4726 |
vs_top=sup; |
vs_top=sup; |
4727 |
goto T1630; |
goto T1851; |
4728 |
T1632:; |
T1853:; |
4729 |
base[3]= car((V372)); |
base[3]= CMPcar((V482)); |
4730 |
base[4]= cadr((V372)); |
base[4]= CMPcadr((V482)); |
4731 |
base[5]= caddr((V372)); |
base[5]= CMPcaddr((V482)); |
4732 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4733 |
(void) (*Lnk257)(); |
(void) (*Lnk376)(); |
4734 |
vs_top=sup; |
vs_top=sup; |
4735 |
T1630:; |
T1851:; |
4736 |
V371= cdr((V371)); |
V481= CMPcdr((V481)); |
4737 |
goto T1625;} |
goto T1846;} |
4738 |
T1622:; |
T1843:; |
4739 |
V373= reverse(cadr((V353))); |
V483= reverse(CMPcadr((V470))); |
4740 |
setq(VV[57],nconc(/* INLINE-ARGS */V373,symbol_value(VV[57]))); |
(VV[105]->s.s_dbind)= nconc(/* INLINE-ARGS */V483,(VV[105]->s.s_dbind)); |
4741 |
base[3]= cddr((V353)); |
base[3]= CMPcddr((V470)); |
4742 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4743 |
return;} |
return;} |
4744 |
} |
} |
4745 |
} |
} |
4746 |
/* function definition for LOOP-GATHER-PREPS */ |
/* function definition for NAMED-VARIABLE */ |
4747 |
|
|
4748 |
static L62() |
static L94() |
4749 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4750 |
register object *sup=base+VM62; VC62 |
register object *sup=base+VM82; VC82 |
4751 |
vs_reserve(VM62); |
vs_check; |
4752 |
{object V374; |
{object V484; |
4753 |
object V375; |
V484=(base[0]); |
|
check_arg(2); |
|
|
V374=(base[0]); |
|
|
V375=(base[1]); |
|
4754 |
vs_top=sup; |
vs_top=sup; |
4755 |
TTL:; |
TTL:; |
4756 |
{register object V376; |
{object V485; |
4757 |
object V377; |
base[1]= (V484); |
4758 |
V376= car(symbol_value(VV[46])); |
base[2]= (VV[101]->s.s_dbind); |
4759 |
V377= Cnil; |
vs_top=(vs_base=base+1)+2; |
4760 |
T1648:; |
(void) (*Lnk381)(); |
|
base[2]= (V376); |
|
|
base[3]= (V374); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk240)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T1653;} |
|
|
{object V379; |
|
|
V379= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46]))); |
|
|
V378= (V379);} |
|
|
base[2]= list(5,VV[144],VV[181],VV[172],VV[181],(V376)); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk250)(); |
|
|
vs_top=sup; |
|
|
V380= vs_base[0]; |
|
|
V381= list(2,V378,V380); |
|
|
V377= make_cons(/* INLINE-ARGS */V381,(V377)); |
|
|
goto T1651; |
|
|
T1653:; |
|
|
base[2]= (V376); |
|
|
base[3]= VV[182]; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk244)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T1665;} |
|
|
{object V382; |
|
|
V382= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46])));} |
|
|
if((V375)!=Cnil){ |
|
|
goto T1673;} |
|
|
base[2]= VV[2]; |
|
|
base[3]= VV[183]; |
|
|
base[4]= list(2,VV[182],car(symbol_value(VV[46]))); |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
T1673:; |
|
|
{register object V383; |
|
|
register object V384; |
|
|
V383= car(symbol_value(VV[46])); |
|
|
V384= Cnil; |
|
|
T1679:; |
|
|
if(!(type_of((V383))!=t_cons)){ |
|
|
goto T1680;} |
|
|
goto T1651; |
|
|
T1680:; |
|
|
if(!(type_of(cdr((V383)))!=t_cons)){ |
|
|
goto T1687;} |
|
|
goto T1685; |
|
|
T1687:; |
|
|
if(!((((cddr((V383)))==Cnil?Ct:Cnil))==Cnil)){ |
|
|
goto T1689;} |
|
|
goto T1685; |
|
|
T1689:; |
|
|
if(!(((type_of(car((V383)))==t_symbol?Ct:Cnil))==Cnil)){ |
|
|
goto T1691;} |
|
|
goto T1685; |
|
|
T1691:; |
|
|
if((cadr((V383)))!=Cnil){ |
|
|
goto T1693;} |
|
|
goto T1686; |
|
|
T1693:; |
|
|
if(((type_of(cadr((V383)))==t_symbol?Ct:Cnil))==Cnil){ |
|
|
goto T1685;} |
|
|
T1686:; |
|
|
goto T1684; |
|
|
T1685:; |
|
|
base[2]= VV[2]; |
|
|
base[3]= VV[184]; |
|
|
base[4]= (V383); |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
T1684:; |
|
|
if((cadr((V383)))==Cnil){ |
|
|
goto T1698;} |
|
|
base[2]= car((V383)); |
|
|
base[3]= symbol_value(VV[51]); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk231)(); |
|
4761 |
vs_top=sup; |
vs_top=sup; |
4762 |
V384= vs_base[0]; |
V485= vs_base[0]; |
4763 |
if(((V384))!=Cnil){ |
if(((V485))!=Cnil){ |
4764 |
goto T1702;} |
goto T1871;} |
4765 |
goto T1701; |
vs_base=vs_top; |
4766 |
T1702:; |
(void) (*Lnk324)(); |
|
base[2]= VV[2]; |
|
|
base[3]= VV[185]; |
|
|
base[4]= list(2,(V384),(V383)); |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
Lerror(); |
|
4767 |
vs_top=sup; |
vs_top=sup; |
4768 |
T1701:; |
base[1]= vs_base[0]; |
4769 |
V385= make_cons(car((V383)),cadr((V383))); |
base[2]= Cnil; |
4770 |
setq(VV[51],make_cons(/* INLINE-ARGS */V385,symbol_value(VV[51]))); |
vs_top=(vs_base=base+1)+2; |
|
T1698:; |
|
|
{register object V386; |
|
|
V386= car(symbol_value(VV[46])); |
|
|
setq(VV[46],cdr(symbol_value(VV[46])));} |
|
|
V383= car(symbol_value(VV[46])); |
|
|
goto T1679;} |
|
|
T1665:; |
|
|
base[2]= nreverse((V377)); |
|
|
vs_top=(vs_base=base+2)+1; |
|
4771 |
return; |
return; |
4772 |
T1651:; |
T1871:; |
4773 |
V376= car(symbol_value(VV[46])); |
base[1]= (V485); |
4774 |
goto T1648;} |
base[2]= (VV[101]->s.s_dbind); |
4775 |
|
vs_top=(vs_base=base+1)+2; |
4776 |
|
(void) (*Lnk382)(); |
4777 |
|
vs_top=sup; |
4778 |
|
(VV[101]->s.s_dbind)= vs_base[0]; |
4779 |
|
base[1]= CMPcdr((V485)); |
4780 |
|
base[2]= Ct; |
4781 |
|
vs_top=(vs_base=base+1)+2; |
4782 |
|
return;} |
4783 |
} |
} |
4784 |
} |
} |
4785 |
/* function definition for LOOP-ADD-PATH */ |
/* function definition for LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
4786 |
|
|
4787 |
static L63() |
static L95() |
4788 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4789 |
register object *sup=base+VM63; VC63 |
register object *sup=base+VM83; VC83 |
4790 |
vs_reserve(VM63); |
vs_check; |
4791 |
{object V387; |
{object V486; |
4792 |
object V388; |
object V487; |
4793 |
check_arg(2); |
object V488; |
4794 |
V387=(base[0]); |
V486=(base[0]); |
4795 |
V388=(base[1]); |
vs_base=vs_base+1; |
4796 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1881;} |
4797 |
|
V487=(base[1]); |
4798 |
|
vs_base++; |
4799 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1882;} |
4800 |
|
V488=(base[2]); |
4801 |
vs_top=sup; |
vs_top=sup; |
4802 |
TTL:; |
goto T1883; |
4803 |
V389= make_cons((V387),(V388)); |
T1881:; |
4804 |
base[2]= (V387); |
V487= Cnil; |
4805 |
base[3]= symbol_value(VV[171]); |
T1882:; |
4806 |
vs_top=(vs_base=base+2)+2; |
V488= Cnil; |
4807 |
(void) (*Lnk231)(); |
T1883:; |
4808 |
|
base[3]=make_cclosure_new(LC96,Cnil,Cnil,Cdata); |
4809 |
|
base[3]=MMcons(base[3],Cnil); |
4810 |
|
{object V489; |
4811 |
|
object V490; |
4812 |
|
register object V491; |
4813 |
|
register object V492; |
4814 |
|
object V493; |
4815 |
|
object V494; |
4816 |
|
{object V495; |
4817 |
|
object V496= (V488); |
4818 |
|
if(V496==Cnil){ |
4819 |
|
V493= Cnil; |
4820 |
|
goto T1886;} |
4821 |
|
base[4]=V495=MMcons(Cnil,Cnil); |
4822 |
|
T1887:; |
4823 |
|
base[6]= CMPcar((V496->c.c_car)); |
4824 |
|
base[7]= (V486); |
4825 |
|
base[8]= VV[20]; |
4826 |
|
base[9]= (base[3]->c.c_car); |
4827 |
|
vs_top=(vs_base=base+6)+4; |
4828 |
|
(void) (*Lnk365)(); |
4829 |
vs_top=sup; |
vs_top=sup; |
4830 |
V390= vs_base[0];{object V391; |
base[5]= vs_base[0]; |
4831 |
V391= symbol_value(VV[171]); |
vs_top=(vs_base=base+5)+1; |
4832 |
V392= symbol_function(VV[265]); |
Lcopy_list(); |
4833 |
V393= (VFUN_NARGS=4,(*(LnkLI234))(V390,V391,VV[25],V392)); |
vs_top=sup; |
4834 |
setq(VV[171],make_cons(/* INLINE-ARGS */V389,/* INLINE-ARGS */V393));} |
(V495->c.c_cdr)= vs_base[0]; |
4835 |
base[2]= Cnil; |
while(MMcdr(V495)!=Cnil)V495=MMcdr(V495); |
4836 |
vs_top=(vs_base=base+2)+1; |
if((V496=MMcdr(V496))==Cnil){ |
4837 |
|
base[4]=base[4]->c.c_cdr; |
4838 |
|
V493= base[4]; |
4839 |
|
goto T1886;} |
4840 |
|
goto T1887;} |
4841 |
|
T1886:; |
4842 |
|
{object V498; |
4843 |
|
object V499= (V488); |
4844 |
|
if(V499==Cnil){ |
4845 |
|
V494= Cnil; |
4846 |
|
goto T1894;} |
4847 |
|
base[4]=V498=MMcons(Cnil,Cnil); |
4848 |
|
T1895:; |
4849 |
|
(V498->c.c_car)= CMPcar((V499->c.c_car)); |
4850 |
|
if((V499=MMcdr(V499))==Cnil){ |
4851 |
|
V494= base[4]; |
4852 |
|
goto T1894;} |
4853 |
|
V498=MMcdr(V498)=MMcons(Cnil,Cnil); |
4854 |
|
goto T1895;} |
4855 |
|
T1894:; |
4856 |
|
V489= Cnil; |
4857 |
|
V490= (V488); |
4858 |
|
V491= Cnil; |
4859 |
|
V492= Cnil; |
4860 |
|
T1898:; |
4861 |
|
if(((VV[89]->s.s_dbind))!=Cnil){ |
4862 |
|
goto T1899;} |
4863 |
|
base[4]= nreverse((V490)); |
4864 |
|
vs_top=(vs_base=base+4)+1; |
4865 |
return; |
return; |
4866 |
} |
T1899:; |
4867 |
} |
V489= CMPcar((VV[89]->s.s_dbind)); |
4868 |
/* macro definition for DEFINE-LOOP-PATH */ |
{register object V500; |
4869 |
|
register object V501; |
4870 |
static L64() |
V500= (V486); |
4871 |
{register object *base=vs_base; |
V501= CMPcar((V500)); |
4872 |
register object *sup=base+VM64; VC64 |
T1909:; |
4873 |
vs_reserve(VM64); |
if(!(((V500))==Cnil)){ |
4874 |
check_arg(2); |
goto T1910;} |
4875 |
|
goto T1905; |
4876 |
|
T1910:; |
4877 |
|
base[5]= (V489); |
4878 |
|
base[6]= (V501); |
4879 |
|
vs_top=(vs_base=base+5)+2; |
4880 |
|
L96(base); |
4881 |
vs_top=sup; |
vs_top=sup; |
4882 |
{object V394=base[0]->c.c_cdr; |
V492= vs_base[0]; |
4883 |
if(endp(V394))invalid_macro_call(); |
if(((V492))==Cnil){ |
4884 |
base[2]= (V394->c.c_car); |
goto T1914;} |
4885 |
V394=V394->c.c_cdr; |
V491= (V501); |
4886 |
base[3]= V394;} |
goto T1905; |
4887 |
if(!(type_of(base[2])!=t_cons)){ |
T1914:; |
4888 |
goto T1730;} |
V500= CMPcdr((V500)); |
4889 |
base[2]= make_cons(base[2],Cnil); |
V501= CMPcar((V500)); |
4890 |
goto T1728; |
goto T1909;} |
4891 |
T1730:; |
T1905:; |
4892 |
T1728:; |
if(((V491))==Cnil){ |
4893 |
{object V395; |
goto T1928;} |
4894 |
{object V396; |
{register object x= (V492),V502= (V493); |
4895 |
object V397= base[2]; |
while(V502!=Cnil) |
4896 |
if(endp(V397)){ |
if(eql(x,V502->c.c_car)){ |
4897 |
V395= Cnil; |
goto T1932; |
4898 |
goto T1732;} |
}else V502=V502->c.c_cdr; |
4899 |
base[4]=V396=MMcons(Cnil,Cnil); |
goto T1930;} |
4900 |
T1733:; |
T1932:; |
4901 |
V399= list(2,VV[4],(V397->c.c_car)); |
{register object x= (V492),V503= (V494); |
4902 |
(V396->c.c_car)= list(3,VV[186],/* INLINE-ARGS */V399,list(2,VV[4],base[3])); |
while(V503!=Cnil) |
4903 |
if(endp(V397=MMcdr(V397))){ |
if(eql(x,V503->c.c_car)){ |
4904 |
V395= base[4]; |
goto T1936; |
4905 |
goto T1732;} |
}else V503=V503->c.c_cdr; |
4906 |
V396=MMcdr(V396)=MMcons(Cnil,Cnil); |
goto T1935;} |
4907 |
goto T1733;} |
T1936:; |
4908 |
T1732:; |
base[4]= VV[240]; |
4909 |
base[4]= listA(3,VV[187],VV[188],(V395)); |
goto T1933; |
4910 |
|
T1935:; |
4911 |
|
base[4]= VV[241]; |
4912 |
|
T1933:; |
4913 |
|
base[5]= (V489); |
4914 |
|
vs_top=(vs_base=base+4)+2; |
4915 |
|
(void) (*Lnk343)(); |
4916 |
|
vs_top=sup; |
4917 |
|
T1930:; |
4918 |
|
if(!(type_of((V491))==t_cons||((V491))==Cnil)){ |
4919 |
|
goto T1941;} |
4920 |
|
V494= append((V491),(V494)); |
4921 |
|
goto T1939; |
4922 |
|
T1941:; |
4923 |
|
V494= make_cons((V491),(V494)); |
4924 |
|
T1939:; |
4925 |
|
vs_base=vs_top; |
4926 |
|
(void) (*Lnk346)(); |
4927 |
|
vs_top=sup; |
4928 |
|
vs_base=vs_top; |
4929 |
|
(void) (*Lnk357)(); |
4930 |
|
vs_top=sup; |
4931 |
|
V504= vs_base[0]; |
4932 |
|
V505= list(2,(V492),V504); |
4933 |
|
V490= make_cons(/* INLINE-ARGS */V505,(V490)); |
4934 |
|
goto T1926; |
4935 |
|
T1928:; |
4936 |
|
if(((V487))==Cnil){ |
4937 |
|
goto T1947;} |
4938 |
|
base[4]= (V489); |
4939 |
|
base[5]= VV[242]; |
4940 |
|
vs_top=(vs_base=base+4)+2; |
4941 |
|
(void) (*Lnk353)(); |
4942 |
|
vs_top=sup; |
4943 |
|
if((vs_base[0])==Cnil){ |
4944 |
|
goto T1947;} |
4945 |
|
vs_base=vs_top; |
4946 |
|
(void) (*Lnk346)(); |
4947 |
|
vs_top=sup; |
4948 |
|
{register object V506; |
4949 |
|
object V507; |
4950 |
|
vs_base=vs_top; |
4951 |
|
(void) (*Lnk346)(); |
4952 |
|
vs_top=sup; |
4953 |
|
V506= vs_base[0]; |
4954 |
|
V507= Cnil; |
4955 |
|
T1956:; |
4956 |
|
if(type_of((V506))!=t_cons){ |
4957 |
|
goto T1960;} |
4958 |
|
if(type_of(CMPcdr((V506)))!=t_cons){ |
4959 |
|
goto T1960;} |
4960 |
|
if((CMPcddr((V506)))!=Cnil){ |
4961 |
|
goto T1960;} |
4962 |
|
if(!(type_of(CMPcar((V506)))==t_symbol)){ |
4963 |
|
goto T1960;} |
4964 |
|
if((CMPcadr((V506)))==Cnil){ |
4965 |
|
goto T1959;} |
4966 |
|
if(type_of(CMPcadr((V506)))==t_symbol){ |
4967 |
|
goto T1959;} |
4968 |
|
T1960:; |
4969 |
|
base[4]= VV[243]; |
4970 |
|
base[5]= (V506); |
4971 |
|
vs_top=(vs_base=base+4)+2; |
4972 |
|
(void) (*Lnk343)(); |
4973 |
|
vs_top=sup; |
4974 |
|
T1959:; |
4975 |
|
if((CMPcadr((V506)))==Cnil){ |
4976 |
|
goto T1974;} |
4977 |
|
base[4]= CMPcar((V506)); |
4978 |
|
base[5]= (VV[101]->s.s_dbind); |
4979 |
|
vs_top=(vs_base=base+4)+2; |
4980 |
|
(void) (*Lnk381)(); |
4981 |
|
vs_top=sup; |
4982 |
|
V507= vs_base[0]; |
4983 |
|
if(((V507))==Cnil){ |
4984 |
|
goto T1978;} |
4985 |
|
base[4]= VV[244]; |
4986 |
|
base[5]= CMPcar((V506)); |
4987 |
|
base[6]= CMPcadr((V506)); |
4988 |
|
base[7]= CMPcadr((V507)); |
4989 |
|
vs_top=(vs_base=base+4)+4; |
4990 |
|
(void) (*Lnk343)(); |
4991 |
|
vs_top=sup; |
4992 |
|
goto T1974; |
4993 |
|
T1978:; |
4994 |
|
V508= make_cons(CMPcar((V506)),CMPcadr((V506))); |
4995 |
|
(VV[101]->s.s_dbind)= make_cons(/* INLINE-ARGS */V508,(VV[101]->s.s_dbind)); |
4996 |
|
T1974:; |
4997 |
|
if(((VV[89]->s.s_dbind))==Cnil){ |
4998 |
|
goto T1989;} |
4999 |
|
if(!(type_of(CMPcar((VV[89]->s.s_dbind)))==t_symbol)){ |
5000 |
|
goto T1988;} |
5001 |
|
T1989:; |
5002 |
|
goto T1926; |
5003 |
|
T1988:; |
5004 |
|
vs_base=vs_top; |
5005 |
|
(void) (*Lnk346)(); |
5006 |
|
vs_top=sup; |
5007 |
|
V506= vs_base[0]; |
5008 |
|
goto T1956;} |
5009 |
|
T1947:; |
5010 |
|
base[4]= nreverse((V490)); |
5011 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5012 |
return;} |
return; |
5013 |
|
T1926:; |
5014 |
|
V491= Cnil; |
5015 |
|
V492= Cnil; |
5016 |
|
goto T1898;} |
5017 |
|
} |
5018 |
} |
} |
5019 |
/* function definition for LOOP-SEQUENCER */ |
/* function definition for LOOP-SEQUENCER */ |
5020 |
|
|
5021 |
static L65() |
static L97() |
5022 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5023 |
register object *sup=base+VM65; VC65 |
register object *sup=base+VM84; VC84 |
5024 |
vs_reserve(VM65); |
vs_check; |
5025 |
{object V400; |
{object V509; |
5026 |
object V401; |
register object V510; |
5027 |
object V402; |
object V511; |
5028 |
object V403; |
object V512; |
5029 |
object V404; |
object V513; |
5030 |
object V405; |
object V514; |
5031 |
object V406; |
object V515; |
5032 |
object V407; |
object V516; |
5033 |
register object V408; |
object V517; |
5034 |
object V409; |
object V518; |
5035 |
check_arg(10); |
V509=(base[0]); |
5036 |
V400=(base[0]); |
V510=(base[1]); |
5037 |
V401=(base[1]); |
V511=(base[2]); |
5038 |
V402=(base[2]); |
V512=(base[3]); |
5039 |
V403=(base[3]); |
V513=(base[4]); |
5040 |
V404=(base[4]); |
V514=(base[5]); |
5041 |
V405=(base[5]); |
V515=(base[6]); |
5042 |
V406=(base[6]); |
V516=(base[7]); |
5043 |
V407=(base[7]); |
V517=(base[8]); |
5044 |
V408=(base[8]); |
V518=(base[9]); |
5045 |
V409=(base[9]); |
vs_top=sup; |
5046 |
vs_top=sup; |
TTL:; |
5047 |
TTL:; |
{object V519; |
5048 |
{object V410; |
object V520; |
5049 |
object V411; |
object V521; |
5050 |
object V412; |
object V522; |
5051 |
object V413; |
object V523; |
5052 |
register object V414; |
object V524; |
5053 |
register object V415; |
object V525; |
5054 |
object V416; |
register object V526; |
5055 |
object V417;{object V419; |
register object V527; |
5056 |
base[10]= (V401); |
object V528; |
5057 |
|
object V529; |
5058 |
|
object V530; |
5059 |
|
object V531; |
5060 |
|
object V532; |
5061 |
|
object V533;{object V535; |
5062 |
|
base[10]= (V510); |
5063 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5064 |
(void) (*Lnk243)(); |
(void) (*Lnk326)(); |
5065 |
vs_top=sup; |
vs_top=sup; |
5066 |
V419= vs_base[0]; |
V535= vs_base[0]; |
5067 |
if(V419==Cnil)goto T1737; |
if(V535==Cnil)goto T2002; |
5068 |
V418= V419; |
V534= V535; |
5069 |
goto T1736; |
goto T2001; |
5070 |
T1737:;} |
T2002:;} |
5071 |
V418= small_fixnum(0); |
V534= small_fixnum(0); |
5072 |
T1736:; |
T2001:; |
5073 |
V413= one_plus(V418); |
V523= one_plus(V534); |
5074 |
V410= Cnil; |
V519= Cnil; |
5075 |
V411= Cnil; |
V520= Cnil; |
5076 |
V412= Cnil; |
V521= Cnil; |
5077 |
V414= Cnil; |
V522= Cnil; |
5078 |
V415= Cnil; |
V524= Ct; |
5079 |
V416= Cnil; |
V525= Cnil; |
5080 |
V417= Cnil; |
V526= Cnil; |
5081 |
if((V402)==Cnil){ |
V527= Cnil; |
5082 |
goto T1740;} |
V528= Cnil; |
5083 |
base[10]= (V402); |
V529= Cnil; |
5084 |
|
V530= Cnil; |
5085 |
|
V531= Cnil; |
5086 |
|
V532= Cnil; |
5087 |
|
V533= Cnil; |
5088 |
|
if(((V512))==Cnil){ |
5089 |
|
goto T2005;} |
5090 |
|
base[10]= (V512); |
5091 |
base[11]= Cnil; |
base[11]= Cnil; |
5092 |
base[12]= (V403); |
base[12]= (V513); |
|
vs_top=(vs_base=base+10)+3; |
|
|
(void) (*Lnk257)(); |
|
|
vs_top=sup; |
|
|
T1740:; |
|
|
{register object V420; |
|
|
register object V421; |
|
|
register object V422; |
|
|
object V423; |
|
|
V420= (V409); |
|
|
V421= Cnil; |
|
|
V422= Cnil; |
|
|
V423= Cnil; |
|
|
T1746:; |
|
|
if(((V420))!=Cnil){ |
|
|
goto T1747;} |
|
|
goto T1744; |
|
|
T1747:; |
|
|
V421= caar((V420)); |
|
|
V422= cadar((V420)); |
|
|
base[10]= (V421); |
|
|
base[11]= VV[189]; |
|
|
vs_top=(vs_base=base+10)+2; |
|
|
(void) (*Lnk240)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T1757;} |
|
|
if((V411)==Cnil){ |
|
|
goto T1761;} |
|
|
base[10]= VV[2]; |
|
|
base[11]= VV[190]; |
|
|
base[12]= list(2,(V402),car((V420))); |
|
5093 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5094 |
Lerror(); |
(void) (*Lnk376)(); |
5095 |
vs_top=sup; |
vs_top=sup; |
5096 |
T1761:; |
T2005:; |
5097 |
V411= Ct; |
{register object V536; |
5098 |
base[10]= (V404); |
register object V537; |
5099 |
base[11]= (V422); |
register object V538; |
5100 |
base[12]= (V405); |
object V539; |
5101 |
|
V536= (V518); |
5102 |
|
V537= Cnil; |
5103 |
|
V538= Cnil; |
5104 |
|
V539= Cnil; |
5105 |
|
T2013:; |
5106 |
|
if(((V536))!=Cnil){ |
5107 |
|
goto T2014;} |
5108 |
|
goto T2011; |
5109 |
|
T2014:; |
5110 |
|
V537= CMPcaar((V536)); |
5111 |
|
V538= CMPcadar((V536)); |
5112 |
|
{object V540= (V537); |
5113 |
|
if((V540!= VV[383]) |
5114 |
|
&& (V540!= VV[231]))goto T2023; |
5115 |
|
V520= Ct; |
5116 |
|
base[10]= (V514); |
5117 |
|
base[11]= (V538); |
5118 |
|
base[12]= (V515); |
5119 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5120 |
(void) (*Lnk236)(); |
(void) (*Lnk355)(); |
5121 |
vs_top=sup; |
vs_top=sup; |
5122 |
goto T1755; |
goto T2022; |
5123 |
T1757:; |
T2023:; |
5124 |
base[10]= (V421); |
if((V540!= VV[384]) |
5125 |
base[11]= VV[191]; |
&& (V540!= VV[245]) |
5126 |
|
&& (V540!= VV[247]))goto T2029; |
5127 |
|
V528= Ct; |
5128 |
|
if(!(((V537))==(VV[245]))){ |
5129 |
|
goto T2034;} |
5130 |
|
V526= VV[246]; |
5131 |
|
goto T2032; |
5132 |
|
T2034:; |
5133 |
|
if(!(((V537))==(VV[247]))){ |
5134 |
|
goto T2032;} |
5135 |
|
V526= VV[248]; |
5136 |
|
T2032:; |
5137 |
|
base[10]= (V538); |
5138 |
|
base[11]= (V510); |
5139 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5140 |
(void) (*Lnk240)(); |
(void) (*Lnk375)(); |
5141 |
vs_top=sup; |
if(vs_base<vs_top){ |
5142 |
if((vs_base[0])==Cnil){ |
V538= vs_base[0]; |
5143 |
goto T1771;} |
vs_base++; |
5144 |
if((V416)==Cnil){ |
}else{ |
5145 |
goto T1775;} |
V538= Cnil;} |
5146 |
base[10]= VV[2]; |
if(vs_base<vs_top){ |
5147 |
base[11]= VV[192]; |
V530= vs_base[0]; |
5148 |
base[12]= append((V408),(V420)); |
vs_base++; |
5149 |
|
}else{ |
5150 |
|
V530= Cnil;} |
5151 |
|
if(vs_base<vs_top){ |
5152 |
|
V529= vs_base[0]; |
5153 |
|
}else{ |
5154 |
|
V529= Cnil;} |
5155 |
|
vs_top=sup; |
5156 |
|
base[10]= (V509); |
5157 |
|
base[11]= (V538); |
5158 |
|
base[12]= (V510); |
5159 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5160 |
Lerror(); |
(void) (*Lnk376)(); |
5161 |
vs_top=sup; |
vs_top=sup; |
5162 |
T1775:; |
goto T2022; |
5163 |
V416= Ct; |
T2029:; |
5164 |
base[10]= (V421); |
if((V540!= VV[249]) |
5165 |
base[11]= VV[193]; |
&& (V540!= VV[250]) |
5166 |
|
&& (V540!= VV[251]) |
5167 |
|
&& (V540!= VV[252]) |
5168 |
|
&& (V540!= VV[253]))goto T2047; |
5169 |
|
base[10]= (V537); |
5170 |
|
base[11]= VV[249]; |
5171 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5172 |
(void) (*Lnk244)(); |
(void) (*Lnk353)(); |
5173 |
vs_top=sup; |
vs_top=sup; |
5174 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5175 |
goto T1783;} |
goto T2050;} |
5176 |
V414= VV[194]; |
V526= VV[248]; |
5177 |
goto T1781; |
V527= VV[248]; |
5178 |
T1783:; |
goto T2048; |
5179 |
base[10]= (V421); |
T2050:; |
5180 |
base[11]= VV[195]; |
base[10]= (V537); |
5181 |
|
base[11]= VV[250]; |
5182 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5183 |
(void) (*Lnk244)(); |
(void) (*Lnk353)(); |
5184 |
vs_top=sup; |
vs_top=sup; |
5185 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5186 |
goto T1781;} |
goto T2057;} |
5187 |
V414= VV[196]; |
V527= Ct; |
5188 |
T1781:; |
goto T2048; |
5189 |
base[10]= (V400); |
T2057:; |
5190 |
base[11]= (V422); |
base[10]= (V537); |
5191 |
base[12]= (V401); |
base[11]= VV[251]; |
|
vs_top=(vs_base=base+10)+3; |
|
|
(void) (*Lnk257)(); |
|
|
vs_top=sup; |
|
|
goto T1755; |
|
|
T1771:; |
|
|
base[10]= (V421); |
|
|
base[11]= VV[197]; |
|
5192 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5193 |
(void) (*Lnk244)(); |
(void) (*Lnk353)(); |
5194 |
vs_top=sup; |
vs_top=sup; |
5195 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5196 |
goto T1800;} |
goto T2063;} |
5197 |
V414= VV[196]; |
V526= VV[246]; |
5198 |
V415= VV[196]; |
V527= VV[246]; |
5199 |
if(((V415))==Cnil){ |
goto T2048; |
5200 |
goto T1797;} |
T2063:; |
5201 |
goto T1798; |
base[10]= (V537); |
5202 |
T1800:; |
base[11]= VV[252]; |
|
base[10]= (V421); |
|
|
base[11]= VV[198]; |
|
5203 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5204 |
(void) (*Lnk244)(); |
(void) (*Lnk353)(); |
5205 |
vs_top=sup; |
vs_top=sup; |
5206 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5207 |
goto T1807;} |
goto T2070;} |
5208 |
V415= Ct; |
V526= VV[246]; |
5209 |
goto T1798; |
goto T2048; |
5210 |
T1807:; |
T2070:; |
5211 |
base[10]= (V421); |
base[10]= (V537); |
5212 |
base[11]= VV[199]; |
base[11]= VV[253]; |
5213 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5214 |
(void) (*Lnk244)(); |
(void) (*Lnk353)(); |
5215 |
vs_top=sup; |
vs_top=sup; |
5216 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5217 |
goto T1813;} |
goto T2048;} |
5218 |
V414= VV[194]; |
V526= VV[248]; |
5219 |
V415= VV[194]; |
T2048:; |
5220 |
if(((V415))==Cnil){ |
V531= Ct; |
5221 |
goto T1797;} |
base[10]= (V538); |
5222 |
goto T1798; |
base[11]= (V510); |
|
T1813:; |
|
|
base[10]= (V421); |
|
|
base[11]= VV[200]; |
|
5223 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5224 |
(void) (*Lnk244)(); |
(void) (*Lnk375)(); |
5225 |
vs_top=sup; |
if(vs_base<vs_top){ |
5226 |
if((vs_base[0])==Cnil){ |
V538= vs_base[0]; |
5227 |
goto T1820;} |
vs_base++; |
5228 |
V414= VV[194]; |
}else{ |
5229 |
if((VV[194])==Cnil){ |
V538= Cnil;} |
5230 |
goto T1797;} |
if(vs_base<vs_top){ |
5231 |
goto T1798; |
V532= vs_base[0]; |
5232 |
T1820:; |
vs_base++; |
5233 |
base[10]= (V421); |
}else{ |
5234 |
base[11]= VV[201]; |
V532= Cnil;} |
5235 |
vs_top=(vs_base=base+10)+2; |
if(vs_base<vs_top){ |
5236 |
(void) (*Lnk244)(); |
V533= vs_base[0]; |
5237 |
|
}else{ |
5238 |
|
V533= Cnil;} |
5239 |
|
vs_top=sup; |
5240 |
|
if(((V532))==Cnil){ |
5241 |
|
goto T2088;} |
5242 |
|
V519= list(2,VV[214],(V533)); |
5243 |
|
goto T2086; |
5244 |
|
T2088:; |
5245 |
|
base[11]= VV[254]; |
5246 |
|
vs_top=(vs_base=base+11)+1; |
5247 |
|
(void) (*Lnk324)(); |
5248 |
vs_top=sup; |
vs_top=sup; |
5249 |
if((vs_base[0])==Cnil){ |
base[10]= vs_base[0]; |
5250 |
goto T1826;} |
base[11]= (V538); |
5251 |
V414= VV[196]; |
base[12]= (V510); |
|
if((VV[196])==Cnil){ |
|
|
goto T1797;} |
|
|
goto T1798; |
|
|
T1826:; |
|
|
goto T1797; |
|
|
T1798:; |
|
|
if((V417)==Cnil){ |
|
|
goto T1831;} |
|
|
base[10]= VV[2]; |
|
|
base[11]= VV[202]; |
|
|
base[12]= append((V408),(V420)); |
|
5252 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5253 |
Lerror(); |
(void) (*Lnk355)(); |
5254 |
vs_top=sup; |
vs_top=sup; |
5255 |
T1831:; |
V519= vs_base[0]; |
5256 |
V417= Ct; |
T2086:; |
5257 |
base[10]= (V422); |
goto T2022; |
5258 |
base[11]= (V401); |
T2047:; |
5259 |
|
if((V540!= VV[212]))goto T2094; |
5260 |
|
base[10]= (V538); |
5261 |
|
base[11]= (V510); |
5262 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5263 |
(void) (*Lnk266)(); |
(void) (*Lnk375)(); |
5264 |
|
if(vs_base<vs_top){ |
5265 |
|
V538= vs_base[0]; |
5266 |
|
vs_base++; |
5267 |
|
}else{ |
5268 |
|
V538= Cnil;} |
5269 |
|
if(vs_base<vs_top){ |
5270 |
|
V524= vs_base[0]; |
5271 |
|
vs_base++; |
5272 |
|
}else{ |
5273 |
|
V524= Cnil;} |
5274 |
|
if(vs_base<vs_top){ |
5275 |
|
V523= vs_base[0]; |
5276 |
|
}else{ |
5277 |
|
V523= Cnil;} |
5278 |
|
vs_top=sup; |
5279 |
|
if(((V524))!=Cnil){ |
5280 |
|
goto T2022;} |
5281 |
|
base[11]= VV[255]; |
5282 |
|
vs_top=(vs_base=base+11)+1; |
5283 |
|
(void) (*Lnk324)(); |
5284 |
vs_top=sup; |
vs_top=sup; |
5285 |
V410= vs_base[0]; |
V523= vs_base[0]; |
5286 |
goto T1755; |
base[10]= (V523); |
5287 |
T1797:; |
base[11]= (V538); |
5288 |
base[10]= (V421); |
base[12]= (V510); |
5289 |
base[11]= VV[159]; |
vs_top=(vs_base=base+10)+3; |
5290 |
|
(void) (*Lnk355)(); |
5291 |
|
vs_top=sup; |
5292 |
|
goto T2022; |
5293 |
|
T2094:; |
5294 |
|
base[10]= VV[256]; |
5295 |
|
base[11]= (V537); |
5296 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5297 |
(void) (*Lnk244)(); |
(void) (*Lnk343)(); |
5298 |
|
vs_top=sup;} |
5299 |
|
T2022:; |
5300 |
|
if(((V539))==Cnil){ |
5301 |
|
goto T2108;} |
5302 |
|
if(((V526))==Cnil){ |
5303 |
|
goto T2108;} |
5304 |
|
if(((V526))==((V539))){ |
5305 |
|
goto T2108;} |
5306 |
|
base[10]= VV[257]; |
5307 |
|
vs_top=(vs_base=base+10)+1; |
5308 |
|
(void) (*Lnk343)(); |
5309 |
vs_top=sup; |
vs_top=sup; |
5310 |
if((vs_base[0])==Cnil){ |
T2108:; |
5311 |
goto T1841;} |
V539= (V526); |
5312 |
base[10]= (V422); |
V536= CMPcdr((V536)); |
5313 |
|
goto T2013;} |
5314 |
|
T2011:; |
5315 |
|
if(((V514))==Cnil){ |
5316 |
|
goto T2121;} |
5317 |
|
if(((V520))!=Cnil){ |
5318 |
|
goto T2121;} |
5319 |
|
base[10]= VV[258]; |
5320 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5321 |
(void) (*Lnk245)(); |
(void) (*Lnk343)(); |
5322 |
vs_top=sup; |
vs_top=sup; |
5323 |
if((vs_base[0])==Cnil){ |
T2121:; |
5324 |
goto T1847;} |
if(((V528))!=Cnil){ |
5325 |
V413= (V422); |
goto T2127;} |
5326 |
goto T1845; |
base[10]= (V509); |
5327 |
T1847:; |
V530= Ct;{object V541; |
5328 |
base[11]= VV[203]; |
base[12]= (V510); |
5329 |
|
vs_top=(vs_base=base+12)+1; |
5330 |
|
(void) (*Lnk326)(); |
5331 |
|
vs_top=sup; |
5332 |
|
V541= vs_base[0]; |
5333 |
|
if(V541==Cnil)goto T2135; |
5334 |
|
V529= V541; |
5335 |
|
goto T2134; |
5336 |
|
T2135:;} |
5337 |
|
V529= small_fixnum(0); |
5338 |
|
T2134:; |
5339 |
|
base[11]= (V529); |
5340 |
|
base[12]= (V510); |
5341 |
|
vs_top=(vs_base=base+10)+3; |
5342 |
|
(void) (*Lnk376)(); |
5343 |
|
vs_top=sup; |
5344 |
|
T2127:; |
5345 |
|
{register object x= (V526),V542= VV[259]; |
5346 |
|
while(V542!=Cnil) |
5347 |
|
if(eql(x,V542->c.c_car)){ |
5348 |
|
goto T2142; |
5349 |
|
}else V542=V542->c.c_cdr; |
5350 |
|
goto T2141;} |
5351 |
|
T2142:; |
5352 |
|
if(((V531))!=Cnil){ |
5353 |
|
goto T2144;} |
5354 |
|
if(((V517))==Cnil){ |
5355 |
|
goto T2143;} |
5356 |
|
T2144:; |
5357 |
|
if(((V531))!=Cnil){ |
5358 |
|
goto T2148;} |
5359 |
|
base[11]= VV[260]; |
5360 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
5361 |
Lgentemp(); |
(void) (*Lnk324)(); |
5362 |
vs_top=sup; |
vs_top=sup; |
5363 |
base[10]= vs_base[0]; |
V519= vs_base[0]; |
5364 |
base[11]= (V422); |
base[10]= (V519); |
5365 |
base[12]= VV[110]; |
base[11]= Cnil; |
5366 |
|
base[12]= (V510); |
5367 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5368 |
(void) (*Lnk236)(); |
(void) (*Lnk355)(); |
5369 |
vs_top=sup; |
vs_top=sup; |
5370 |
V413= vs_base[0]; |
V543= list(3,VV[11],(V519),(V517)); |
5371 |
T1845:; |
(VV[105]->s.s_dbind)= make_cons(/* INLINE-ARGS */V543,(VV[105]->s.s_dbind)); |
5372 |
goto T1755; |
T2148:; |
5373 |
T1841:; |
if(((V527))==Cnil){ |
5374 |
base[10]= VV[2]; |
goto T2160;} |
5375 |
base[11]= VV[204]; |
V521= VV[34]; |
5376 |
base[12]= append((V408),(V420)); |
goto T2158; |
5377 |
vs_top=(vs_base=base+10)+3; |
T2160:; |
5378 |
Lerror(); |
V521= VV[210]; |
5379 |
|
T2158:; |
5380 |
|
T2143:; |
5381 |
|
if(!(eql((V523),small_fixnum(1)))){ |
5382 |
|
goto T2164;} |
5383 |
|
V525= list(2,VV[177],(V509)); |
5384 |
|
goto T2162; |
5385 |
|
T2164:; |
5386 |
|
V525= list(3,VV[178],(V509),(V523)); |
5387 |
|
T2162:; |
5388 |
|
goto T2139; |
5389 |
|
T2141:; |
5390 |
|
if(((V528))!=Cnil){ |
5391 |
|
goto T2166;} |
5392 |
|
if(((V517))!=Cnil){ |
5393 |
|
goto T2169;} |
5394 |
|
base[10]= VV[261]; |
5395 |
|
vs_top=(vs_base=base+10)+1; |
5396 |
|
(void) (*Lnk343)(); |
5397 |
vs_top=sup; |
vs_top=sup; |
5398 |
T1755:; |
T2169:; |
5399 |
if((V423)==Cnil){ |
V544= list(3,VV[11],(V509),list(2,VV[196],(V517))); |
5400 |
goto T1857;} |
(VV[105]->s.s_dbind)= make_cons(/* INLINE-ARGS */V544,(VV[105]->s.s_dbind)); |
5401 |
if((V414)==Cnil){ |
T2166:; |
5402 |
goto T1857;} |
if(((V517))==Cnil){ |
5403 |
if(((((V414))==((V423))?Ct:Cnil))==Cnil){ |
goto T2174;} |
5404 |
goto T1858;} |
if(((V519))!=Cnil){ |
5405 |
goto T1857; |
goto T2174;} |
5406 |
T1858:; |
base[10]= (V510); |
5407 |
base[10]= VV[2]; |
vs_top=(vs_base=base+10)+1; |
5408 |
base[11]= VV[205]; |
(void) (*Lnk326)(); |
5409 |
base[12]= append((V408),(V420)); |
vs_top=sup; |
5410 |
|
V519= vs_base[0]; |
5411 |
|
V527= Ct; |
5412 |
|
T2174:; |
5413 |
|
if(((V519))==Cnil){ |
5414 |
|
goto T2183;} |
5415 |
|
if(((V527))==Cnil){ |
5416 |
|
goto T2188;} |
5417 |
|
V521= VV[33]; |
5418 |
|
goto T2186; |
5419 |
|
T2188:; |
5420 |
|
V521= VV[262]; |
5421 |
|
T2186:; |
5422 |
|
T2183:; |
5423 |
|
if(!(eql((V523),small_fixnum(1)))){ |
5424 |
|
goto T2192;} |
5425 |
|
V525= list(2,VV[196],(V509)); |
5426 |
|
goto T2190; |
5427 |
|
T2192:; |
5428 |
|
V525= list(3,VV[263],(V509),(V523)); |
5429 |
|
T2190:; |
5430 |
|
T2139:; |
5431 |
|
if(((V521))==Cnil){ |
5432 |
|
goto T2194;} |
5433 |
|
base[10]= Ct; |
5434 |
|
base[11]= (V509); |
5435 |
|
base[12]= list(3,(V521),(V509),(V519)); |
5436 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5437 |
Lerror(); |
(void) (*Lnk328)(); |
5438 |
vs_top=sup; |
vs_top=sup; |
5439 |
T1857:; |
V522= vs_base[0]; |
5440 |
V423= (V414); |
T2194:; |
5441 |
V420= cdr((V420)); |
if(((V516))==Cnil){ |
5442 |
goto T1746;} |
goto T2201;} |
5443 |
T1744:; |
base[10]= (V511); |
5444 |
if((V404)==Cnil){ |
base[11]= (V509); |
5445 |
goto T1868;} |
base[12]= (V516); |
|
if(((V411))==Cnil){ |
|
|
goto T1869;} |
|
|
goto T1868; |
|
|
T1869:; |
|
|
base[10]= VV[2]; |
|
|
base[11]= VV[206]; |
|
|
base[12]= (V408); |
|
5446 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5447 |
Lerror(); |
(void) (*Lnk328)(); |
5448 |
vs_top=sup; |
vs_top=sup; |
5449 |
T1868:; |
V545= vs_base[0]; |
5450 |
V413= list(2,(V400),(V413)); |
V516= list(2,(V512),V545); |
5451 |
{register object x= (V414),V424= VV[207]; |
T2201:; |
5452 |
while(!endp(V424)) |
{object V546; |
5453 |
if(eql(x,V424->c.c_car)){ |
object V547; |
5454 |
goto T1879; |
V546= (V522); |
5455 |
}else V424=V424->c.c_cdr; |
V547= (V522); |
5456 |
goto T1878;} |
if(((V524))==Cnil){ |
5457 |
T1879:; |
goto T2209;} |
5458 |
if((V416)!=Cnil){ |
if(((V530))==Cnil){ |
5459 |
goto T1880;} |
goto T2209;} |
5460 |
base[10]= (V400); |
if(((V532))==Cnil){ |
5461 |
base[11]= small_fixnum(0); |
goto T2209;} |
5462 |
base[12]= (V401); |
base[10]= (V521); |
5463 |
|
vs_top=(vs_base=base+10)+1; |
5464 |
|
Lsymbol_function(); |
5465 |
|
vs_top=sup; |
5466 |
|
V548= vs_base[0]; |
5467 |
|
V546= ( |
5468 |
|
V549 = V548, |
5469 |
|
(type_of(V549) == t_sfun ?(*(object (*)())((V549)->sfn.sfn_self)): |
5470 |
|
(fcall.argd=2,type_of(V549)==t_vfun) ? |
5471 |
|
(*(object (*)())((V549)->sfn.sfn_self)): |
5472 |
|
(fcall.fun=(V549),fcalln))((V529),(V533))); |
5473 |
|
if(((V546))==Cnil){ |
5474 |
|
goto T2209;} |
5475 |
|
V547= Ct; |
5476 |
|
T2209:; |
5477 |
|
base[10]= Ct; |
5478 |
|
base[11]= (V509); |
5479 |
|
base[12]= (V525); |
5480 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5481 |
(void) (*Lnk257)(); |
(void) (*Lnk328)(); |
5482 |
vs_top=sup; |
vs_top=sup; |
5483 |
T1880:; |
V550= vs_base[0]; |
5484 |
if((V417)!=Cnil){ |
base[10]= list(8,Cnil,list(2,(V509),V550),(V547),(V516),Cnil,Cnil,(V546),(V516)); |
5485 |
if(((V417))!=Cnil){ |
vs_top=(vs_base=base+10)+1; |
5486 |
goto T1885;} |
return;}} |
5487 |
goto T1886;} |
} |
5488 |
if(((V407))==Cnil){ |
} |
5489 |
goto T1888;} |
/* function definition for LOOP-FOR-ARITHMETIC */ |
5490 |
base[11]= VV[208]; |
|
5491 |
vs_top=(vs_base=base+11)+1; |
static L98() |
5492 |
Lgentemp(); |
{register object *base=vs_base; |
5493 |
|
register object *sup=base+VM85; VC85 |
5494 |
|
vs_check; |
5495 |
|
{object V551; |
5496 |
|
object V552; |
5497 |
|
object V553; |
5498 |
|
object V554; |
5499 |
|
V551=(base[0]); |
5500 |
|
V552=(base[1]); |
5501 |
|
V553=(base[2]); |
5502 |
|
V554=(base[3]); |
5503 |
|
vs_top=sup; |
5504 |
|
TTL:; |
5505 |
|
base[4]= (V551); |
5506 |
|
base[6]= (V553); |
5507 |
|
base[7]= (VV[180]->s.s_dbind); |
5508 |
|
vs_top=(vs_base=base+6)+2; |
5509 |
|
(void) (*Lnk371)(); |
5510 |
vs_top=sup; |
vs_top=sup; |
5511 |
V410= vs_base[0]; |
base[5]= vs_base[0]; |
5512 |
base[10]= (V410); |
base[6]= Ct; |
5513 |
|
base[7]= Cnil; |
5514 |
|
base[8]= Cnil; |
5515 |
|
base[9]= Cnil; |
5516 |
|
base[10]= Cnil; |
5517 |
base[11]= Cnil; |
base[11]= Cnil; |
5518 |
base[12]= (V401); |
base[12]= Cnil; |
5519 |
vs_top=(vs_base=base+10)+3; |
base[14]= VV[264]; |
5520 |
(void) (*Lnk236)(); |
base[15]= Cnil; |
5521 |
|
V555= list(2,(V554),(V552)); |
5522 |
|
base[16]= make_cons(/* INLINE-ARGS */V555,Cnil); |
5523 |
|
vs_top=(vs_base=base+14)+3; |
5524 |
|
(void) (*Lnk380)(); |
5525 |
vs_top=sup; |
vs_top=sup; |
5526 |
V425= list(3,VV[15],(V410),(V407)); |
base[13]= vs_base[0]; |
5527 |
setq(VV[57],make_cons(/* INLINE-ARGS */V425,symbol_value(VV[57]))); |
vs_top=(vs_base=base+4)+10; |
5528 |
if((symbol_value(VV[57]))!=Cnil){ |
(void) (*Lnk385)(); |
5529 |
goto T1885;} |
return; |
5530 |
goto T1886; |
} |
5531 |
T1888:; |
} |
5532 |
T1886:; |
/* function definition for LOOP-SEQUENCE-ELEMENTS-PATH */ |
5533 |
goto T1884; |
|
5534 |
T1885:; |
static L99() |
5535 |
if(((V415))==Cnil){ |
{register object *base=vs_base; |
5536 |
goto T1899;} |
register object *sup=base+VM86; VC86 |
5537 |
V412= VV[209]; |
vs_check; |
5538 |
goto T1897; |
{object V556; |
5539 |
T1899:; |
object V557; |
5540 |
V412= VV[210]; |
object V558; |
5541 |
T1897:; |
object V559; |
5542 |
T1884:; |
object V560; |
5543 |
V413= make_cons(VV[116],(V413)); |
object V561; |
5544 |
goto T1876; |
object V562; |
5545 |
T1878:; |
parse_key(vs_base+3,FALSE,FALSE,4,VV[386],VV[387],VV[388],VV[389]); |
5546 |
if(((V416))!=Cnil){ |
V556=(base[0]); |
5547 |
goto T1902;} |
V557=(base[1]); |
5548 |
if((V407)!=Cnil){ |
V558=(base[2]); |
5549 |
goto T1905;} |
vs_top=sup; |
5550 |
base[10]= VV[2]; |
V559=(base[3]); |
5551 |
base[11]= VV[211]; |
V560=(base[4]); |
5552 |
base[12]= append((V408),(V409)); |
V561=(base[5]); |
5553 |
vs_top=(vs_base=base+10)+3; |
V562=(base[6]); |
5554 |
Lerror(); |
{object V563; |
5555 |
|
object V564; |
5556 |
|
base[11]= VV[265]; |
5557 |
|
vs_top=(vs_base=base+11)+1; |
5558 |
|
(void) (*Lnk390)(); |
5559 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2243;} |
5560 |
|
V563= vs_base[0]; |
5561 |
|
vs_base++; |
5562 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2244;} |
5563 |
|
V564= vs_base[0]; |
5564 |
vs_top=sup; |
vs_top=sup; |
5565 |
T1905:; |
goto T2245; |
5566 |
base[10]= (V400); |
T2243:; |
5567 |
base[11]= small_fixnum(0); |
V563= Cnil; |
5568 |
base[12]= (V401); |
T2244:; |
5569 |
vs_top=(vs_base=base+10)+3; |
V564= Cnil; |
5570 |
(void) (*Lnk257)(); |
T2245:; |
5571 |
|
{object V565; |
5572 |
|
base[11]= VV[266]; |
5573 |
|
vs_top=(vs_base=base+11)+1; |
5574 |
|
(void) (*Lnk390)(); |
5575 |
vs_top=sup; |
vs_top=sup; |
5576 |
base[10]= VV[150]; |
V565= vs_base[0]; |
5577 |
base[11]= (V401); |
base[11]= (V563); |
5578 |
vs_top=(vs_base=base+10)+2; |
base[12]= VV[207]; |
5579 |
(void) (*Lnk258)(); |
base[13]= (V564); |
5580 |
|
base[14]= (V556); |
5581 |
|
if((V557)!=Cnil){ |
5582 |
|
base[15]= (V557); |
5583 |
|
goto T2253;} |
5584 |
|
base[15]= (V562); |
5585 |
|
T2253:; |
5586 |
|
base[16]= (V565); |
5587 |
|
base[17]= (V561); |
5588 |
|
base[18]= list(3,(V559),(V565),(V563)); |
5589 |
|
base[19]= list(2,(V560),(V565)); |
5590 |
|
base[20]= (V558); |
5591 |
|
vs_top=(vs_base=base+11)+10; |
5592 |
|
(void) (*Lnk385)(); |
5593 |
vs_top=sup; |
vs_top=sup; |
5594 |
V426= vs_base[0]; |
V566= vs_base[0]; |
5595 |
V427= list(3,VV[15],(V400),list(2,V426,(V407))); |
base[11]= listA(3,Cnil,Cnil,V566); |
5596 |
setq(VV[57],make_cons(/* INLINE-ARGS */V427,symbol_value(VV[57]))); |
vs_top=(vs_base=base+11)+1; |
5597 |
T1902:; |
return;}} |
5598 |
if(((V407))==Cnil){ |
} |
5599 |
goto T1917;} |
} |
5600 |
if(((V410))!=Cnil){ |
/* function definition for LOOP-HASH-TABLE-ITERATION-PATH */ |
5601 |
goto T1917;} |
|
5602 |
base[10]= (V401); |
static L100() |
5603 |
vs_top=(vs_base=base+10)+1; |
{register object *base=vs_base; |
5604 |
(void) (*Lnk243)(); |
register object *sup=base+VM87; VC87 |
5605 |
|
vs_check; |
5606 |
|
bds_check; |
5607 |
|
{object V567; |
5608 |
|
object V568; |
5609 |
|
object V569; |
5610 |
|
register object V570; |
5611 |
|
parse_key(vs_base+3,FALSE,FALSE,1,VV[391]); |
5612 |
|
V567=(base[0]); |
5613 |
|
V568=(base[1]); |
5614 |
|
V569=(base[2]); |
5615 |
|
vs_top=sup; |
5616 |
|
V570=(base[3]); |
5617 |
|
bds_bind(VV[44],small_fixnum(4)); |
5618 |
|
bds_bind(VV[45],small_fixnum(4)); |
5619 |
|
T2261:; |
5620 |
|
base[7]= (V570); |
5621 |
|
base[8]= VV[267]; |
5622 |
|
vs_top=(vs_base=base+7)+2; |
5623 |
|
(void) (*Lnk330)(); |
5624 |
vs_top=sup; |
vs_top=sup; |
5625 |
V410= vs_base[0]; |
if((vs_base[0])==Cnil){ |
5626 |
V415= Ct; |
goto T2262;} |
5627 |
T1917:; |
bds_unwind1; |
5628 |
if(((((V410))==Cnil?Ct:Cnil))==Cnil){ |
bds_unwind1; |
5629 |
goto T1927;} |
goto T2259; |
5630 |
goto T1926; |
T2262:; |
5631 |
T1927:; |
base[7]= VV[47]; |
5632 |
if(((V415))==Cnil){ |
base[8]= VV[48]; |
5633 |
goto T1931;} |
base[9]= VV[268]; |
5634 |
V412= VV[212]; |
base[10]= (V570); |
5635 |
goto T1929; |
base[11]= VV[267]; |
5636 |
T1931:; |
vs_top=(vs_base=base+7)+5; |
5637 |
V412= VV[213]; |
Lcerror(); |
5638 |
T1929:; |
vs_top=sup; |
5639 |
T1926:; |
base[7]= (VV[50]->s.s_dbind); |
5640 |
V413= make_cons(VV[214],(V413)); |
base[8]= VV[51]; |
5641 |
T1876:; |
base[9]= VV[268]; |
5642 |
{object V428= caddr((V413)); |
vs_top=(vs_base=base+7)+3; |
5643 |
if(type_of(V428)==t_fixnum|| |
Lformat(); |
|
type_of(V428)==t_bignum|| |
|
|
type_of(V428)==t_ratio|| |
|
|
type_of(V428)==t_shortfloat|| |
|
|
type_of(V428)==t_longfloat|| |
|
|
type_of(V428)==t_complex){ |
|
|
goto T1937;}} |
|
|
goto T1936; |
|
|
T1937:; |
|
|
if(number_compare(caddr((V413)),small_fixnum(1))==0){ |
|
|
goto T1935;} |
|
|
T1936:; |
|
|
goto T1934; |
|
|
T1935:; |
|
|
if(!((car((V413)))==(VV[116]))){ |
|
|
goto T1942;} |
|
|
V430= VV[114]; |
|
|
goto T1940; |
|
|
T1942:; |
|
|
V430= VV[150]; |
|
|
T1940:; |
|
|
if(type_of((V413))!=t_cons)FEwrong_type_argument(Scons,(V413)); |
|
|
((V413))->c.c_car = V430; |
|
|
V429= (V413); |
|
|
if(type_of(cdr(V429))!=t_cons)FEwrong_type_argument(Scons,cdr(V429)); |
|
|
(cdr(V429))->c.c_cdr = Cnil; |
|
|
(void)(cdr(V429)); |
|
|
T1934:; |
|
|
base[10]= car((V413)); |
|
|
base[11]= (V401); |
|
|
vs_top=(vs_base=base+10)+2; |
|
|
(void) (*Lnk258)(); |
|
5644 |
vs_top=sup; |
vs_top=sup; |
5645 |
V431= vs_base[0]; |
base[7]= (VV[50]->s.s_dbind); |
5646 |
if(type_of((V413))!=t_cons)FEwrong_type_argument(Scons,(V413)); |
vs_top=(vs_base=base+7)+1; |
5647 |
((V413))->c.c_car = V431; |
Lfinish_output(); |
|
V413= list(2,(V400),(V413)); |
|
|
base[10]= (V412); |
|
|
base[11]= (V401); |
|
|
vs_top=(vs_base=base+10)+2; |
|
|
(void) (*Lnk258)(); |
|
5648 |
vs_top=sup; |
vs_top=sup; |
5649 |
V412= vs_base[0]; |
vs_base=vs_top; |
5650 |
base[10]= list(2,(V400),(V410)); |
Lread(); |
|
base[11]= VV[215]; |
|
|
base[12]= (V412); |
|
|
vs_top=(vs_base=base+10)+3; |
|
|
Lsubst(); |
|
5651 |
vs_top=sup; |
vs_top=sup; |
5652 |
V412= vs_base[0]; |
V570= vs_base[0]; |
5653 |
if((V406)==Cnil){ |
base[7]= (VV[50]->s.s_dbind); |
5654 |
goto T1959;} |
base[8]= VV[52]; |
5655 |
V406= list(2,(V402),(V406)); |
vs_top=(vs_base=base+7)+2; |
5656 |
T1959:; |
Lformat(); |
5657 |
base[10]= list(8,Cnil,(V413),(V412),(V406),Cnil,Cnil,(V412),(V406)); |
vs_top=sup; |
5658 |
vs_top=(vs_base=base+10)+1; |
goto T2261; |
5659 |
return;} |
T2259:; |
5660 |
|
if((CMPcdr((V569)))!=Cnil){ |
5661 |
|
goto T2288;} |
5662 |
|
{register object x= CMPcaar((V569)),V571= VV[269]; |
5663 |
|
while(V571!=Cnil) |
5664 |
|
if(eql(x,V571->c.c_car)){ |
5665 |
|
goto T2289; |
5666 |
|
}else V571=V571->c.c_cdr;} |
5667 |
|
T2288:; |
5668 |
|
base[5]= VV[270]; |
5669 |
|
vs_top=(vs_base=base+5)+1; |
5670 |
|
(void) (*Lnk343)(); |
5671 |
|
vs_top=sup; |
5672 |
|
goto T2287; |
5673 |
|
T2289:; |
5674 |
|
if(((V569))!=Cnil){ |
5675 |
|
goto T2287;} |
5676 |
|
base[5]= VV[271]; |
5677 |
|
vs_top=(vs_base=base+5)+1; |
5678 |
|
(void) (*Lnk343)(); |
5679 |
|
vs_top=sup; |
5680 |
|
T2287:; |
5681 |
|
{object V572; |
5682 |
|
object V573; |
5683 |
|
object V574; |
5684 |
|
register object V575; |
5685 |
|
base[5]= VV[272]; |
5686 |
|
vs_top=(vs_base=base+5)+1; |
5687 |
|
(void) (*Lnk324)(); |
5688 |
|
vs_top=sup; |
5689 |
|
V572= vs_base[0]; |
5690 |
|
base[5]= VV[273]; |
5691 |
|
vs_top=(vs_base=base+5)+1; |
5692 |
|
(void) (*Lnk324)(); |
5693 |
|
vs_top=sup; |
5694 |
|
V573= vs_base[0]; |
5695 |
|
V574= Cnil; |
5696 |
|
V575= Cnil; |
5697 |
|
{object V576; |
5698 |
|
object V577; |
5699 |
|
if(!(((V570))==(VV[274]))){ |
5700 |
|
goto T2304;} |
5701 |
|
base[5]= VV[275]; |
5702 |
|
goto T2302; |
5703 |
|
T2304:; |
5704 |
|
base[5]= VV[274]; |
5705 |
|
T2302:; |
5706 |
|
vs_top=(vs_base=base+5)+1; |
5707 |
|
(void) (*Lnk390)(); |
5708 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2306;} |
5709 |
|
V576= vs_base[0]; |
5710 |
|
vs_base++; |
5711 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2307;} |
5712 |
|
V577= vs_base[0]; |
5713 |
|
vs_top=sup; |
5714 |
|
goto T2308; |
5715 |
|
T2306:; |
5716 |
|
V576= Cnil; |
5717 |
|
T2307:; |
5718 |
|
V577= Cnil; |
5719 |
|
T2308:; |
5720 |
|
V577= Ct; |
5721 |
|
vs_base=vs_top; |
5722 |
|
(void) (*Lnk374)(); |
5723 |
|
vs_top=sup; |
5724 |
|
V574= vs_base[0]; |
5725 |
|
{register object V578; |
5726 |
|
register object V579; |
5727 |
|
register object V580; |
5728 |
|
V581= list(3,(V567),Cnil,(V568)); |
5729 |
|
V582= list(2,(V572),CMPcadar((V569))); |
5730 |
|
if((V577)==Cnil){ |
5731 |
|
V583= Cnil; |
5732 |
|
goto T2314;} |
5733 |
|
if((V576)==Cnil){ |
5734 |
|
V583= Cnil; |
5735 |
|
goto T2314;} |
5736 |
|
V584= list(2,(V576),Cnil); |
5737 |
|
V583= make_cons(/* INLINE-ARGS */V584,Cnil); |
5738 |
|
T2314:; |
5739 |
|
V580= listA(3,/* INLINE-ARGS */V581,/* INLINE-ARGS */V582,V583); |
5740 |
|
V578= Cnil; |
5741 |
|
V579= Cnil; |
5742 |
|
if(!(((V570))==(VV[274]))){ |
5743 |
|
goto T2317;} |
5744 |
|
V578= (V567); |
5745 |
|
if((V577)==Cnil){ |
5746 |
|
V579= Cnil; |
5747 |
|
goto T2321;} |
5748 |
|
V579= (V576); |
5749 |
|
T2321:; |
5750 |
|
goto T2315; |
5751 |
|
T2317:; |
5752 |
|
if((V577)==Cnil){ |
5753 |
|
V578= Cnil; |
5754 |
|
goto T2323;} |
5755 |
|
V578= (V576); |
5756 |
|
T2323:; |
5757 |
|
V579= (V567); |
5758 |
|
T2315:; |
5759 |
|
V585= list(2,VV[276],list(2,(V573),(V572))); |
5760 |
|
(VV[106]->s.s_dbind)= make_cons(/* INLINE-ARGS */V585,(VV[106]->s.s_dbind)); |
5761 |
|
if(!(type_of((V578))==t_cons)){ |
5762 |
|
goto T2327;}{object V586; |
5763 |
|
V586= (V578); |
5764 |
|
base[5]= VV[277]; |
5765 |
|
vs_top=(vs_base=base+5)+1; |
5766 |
|
(void) (*Lnk324)(); |
5767 |
|
vs_top=sup; |
5768 |
|
V578= vs_base[0]; |
5769 |
|
V575= listA(3,V586,(V578),(V575));} |
5770 |
|
V587= list(2,(V578),Cnil); |
5771 |
|
V580= make_cons(/* INLINE-ARGS */V587,(V580)); |
5772 |
|
T2327:; |
5773 |
|
if(!(type_of((V579))==t_cons)){ |
5774 |
|
goto T2335;}{object V588; |
5775 |
|
V588= (V579); |
5776 |
|
base[5]= VV[278]; |
5777 |
|
vs_top=(vs_base=base+5)+1; |
5778 |
|
(void) (*Lnk324)(); |
5779 |
|
vs_top=sup; |
5780 |
|
V579= vs_base[0]; |
5781 |
|
V575= listA(3,V588,(V579),(V575));} |
5782 |
|
V589= list(2,(V579),Cnil); |
5783 |
|
V580= make_cons(/* INLINE-ARGS */V589,(V580)); |
5784 |
|
T2335:; |
5785 |
|
V590= list(3,(V574),(V578),(V579)); |
5786 |
|
base[5]= list(6,(V580),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V590,make_cons((V573),Cnil))),(V575)); |
5787 |
|
vs_top=(vs_base=base+5)+1; |
5788 |
|
return;}}} |
5789 |
} |
} |
5790 |
} |
} |
5791 |
/* function definition for LOOP-SEQUENCE-ELEMENTS-PATH */ |
/* function definition for LOOP-PACKAGE-SYMBOLS-ITERATION-PATH */ |
5792 |
|
|
5793 |
static L66() |
static L101() |
5794 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5795 |
register object *sup=base+VM66; VC66 |
register object *sup=base+VM88; VC88 |
5796 |
vs_reserve(VM66); |
vs_check; |
5797 |
{object V432; |
{object V591; |
5798 |
object V433; |
object V592; |
5799 |
object V434; |
register object V593; |
5800 |
object V435; |
object V594; |
5801 |
object V436; |
parse_key(vs_base+3,FALSE,FALSE,1,VV[392]); |
5802 |
object V437; |
V591=(base[0]); |
5803 |
register object V438; |
V592=(base[1]); |
5804 |
check_arg(7); |
V593=(base[2]); |
5805 |
V432=(base[0]); |
vs_top=sup; |
5806 |
V433=(base[1]); |
V594=(base[3]); |
5807 |
V434=(base[2]); |
if((CMPcdr((V593)))!=Cnil){ |
5808 |
V435=(base[3]); |
goto T2344;} |
5809 |
V436=(base[4]); |
{register object x= CMPcaar((V593)),V595= VV[279]; |
5810 |
V437=(base[5]); |
while(V595!=Cnil) |
5811 |
V438=(base[6]); |
if(eql(x,V595->c.c_car)){ |
5812 |
|
goto T2345; |
5813 |
|
}else V595=V595->c.c_cdr;} |
5814 |
|
T2344:; |
5815 |
|
base[5]= VV[280]; |
5816 |
|
vs_top=(vs_base=base+5)+1; |
5817 |
|
(void) (*Lnk343)(); |
5818 |
vs_top=sup; |
vs_top=sup; |
5819 |
TTL:; |
goto T2343; |
5820 |
{object V439; |
T2345:; |
5821 |
object V440; |
if(((V593))!=Cnil){ |
5822 |
object V441; |
goto T2343;} |
5823 |
object V442; |
base[5]= VV[281]; |
5824 |
object V443; |
vs_top=(vs_base=base+5)+1; |
5825 |
object V444; |
(void) (*Lnk343)(); |
|
object V445; |
|
|
base[7]= VV[216]; |
|
|
vs_top=(vs_base=base+7)+1; |
|
|
(void) (*Lnk267)(); |
|
5826 |
vs_top=sup; |
vs_top=sup; |
5827 |
V439= vs_base[0]; |
T2343:; |
5828 |
base[7]= VV[217]; |
if(type_of((V591))==t_symbol){ |
5829 |
vs_top=(vs_base=base+7)+1; |
goto T2353;} |
5830 |
(void) (*Lnk267)(); |
base[5]= VV[282]; |
5831 |
|
vs_top=(vs_base=base+5)+1; |
5832 |
|
(void) (*Lnk343)(); |
5833 |
vs_top=sup; |
vs_top=sup; |
5834 |
V440= vs_base[0]; |
T2353:; |
5835 |
V445= list(5,VV[144],(V433),VV[172],VV[170],(V432)); |
{object V596; |
5836 |
V441= Cnil; |
object V597; |
5837 |
V442= Cnil; |
base[5]= VV[283]; |
5838 |
V443= Cnil; |
vs_top=(vs_base=base+5)+1; |
5839 |
V444= Cnil; |
(void) (*Lnk324)(); |
|
if(((V436))==Cnil){ |
|
|
goto T1967;} |
|
|
V446= cddr((V445)); |
|
|
V447= list(4,cadar((V435)),VV[95],VV[218],(V432)); |
|
|
if(type_of(/* INLINE-ARGS */V446)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V446); |
|
|
(/* INLINE-ARGS */V446)->c.c_cdr = /* INLINE-ARGS */V447; |
|
|
base[7]= VV[2]; |
|
|
base[8]= VV[219]; |
|
|
base[9]= (V445); |
|
|
vs_top=(vs_base=base+7)+3; |
|
|
Lerror(); |
|
5840 |
vs_top=sup; |
vs_top=sup; |
5841 |
T1967:; |
V596= vs_base[0]; |
5842 |
V441= car((V438)); |
base[5]= VV[284]; |
5843 |
V438= cdr((V438)); |
vs_top=(vs_base=base+5)+1; |
5844 |
V442= car((V438)); |
(void) (*Lnk324)(); |
|
V438= cdr((V438)); |
|
|
V443= car((V438)); |
|
|
V444= cadr((V438)); |
|
|
base[7]= (V439); |
|
|
base[8]= VV[110]; |
|
|
base[9]= (V433); |
|
|
if((V434)!=Cnil){ |
|
|
base[10]= (V434); |
|
|
goto T1988;} |
|
|
base[10]= (V444); |
|
|
T1988:; |
|
|
base[11]= (V440); |
|
|
base[12]= (V443); |
|
|
base[13]= list(3,(V441),(V440),(V439)); |
|
|
base[14]= list(2,(V442),(V440)); |
|
|
base[15]= (V445); |
|
|
base[16]= (V435); |
|
|
vs_top=(vs_base=base+7)+10; |
|
|
(void) (*Lnk264)(); |
|
5845 |
vs_top=sup; |
vs_top=sup; |
5846 |
V448= vs_base[0]; |
V597= vs_base[0]; |
5847 |
base[7]= listA(3,Cnil,Cnil,V448); |
V598= list(2,VV[285],listA(3,(V597),(V596),(V594))); |
5848 |
vs_top=(vs_base=base+7)+1; |
(VV[106]->s.s_dbind)= make_cons(/* INLINE-ARGS */V598,(VV[106]->s.s_dbind)); |
5849 |
|
V599= list(3,(V591),Cnil,(V592)); |
5850 |
|
V600= list(2,/* INLINE-ARGS */V599,list(2,(V596),CMPcadar((V593)))); |
5851 |
|
vs_base=vs_top; |
5852 |
|
(void) (*Lnk374)(); |
5853 |
|
vs_top=sup; |
5854 |
|
V601= vs_base[0]; |
5855 |
|
V602= list(2,V601,(V591)); |
5856 |
|
base[5]= list(6,/* INLINE-ARGS */V600,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V602,make_cons((V597),Cnil))),Cnil); |
5857 |
|
vs_top=(vs_base=base+5)+1; |
5858 |
return;} |
return;} |
5859 |
} |
} |
5860 |
} |
} |
5861 |
/* macro definition for DEFINE-LOOP-SEQUENCE-PATH */ |
/* function definition for MAKE-ANSI-LOOP-UNIVERSE */ |
5862 |
|
|
5863 |
static L67() |
static L102() |
5864 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5865 |
register object *sup=base+VM67; VC67 |
register object *sup=base+VM89; VC89 |
5866 |
vs_reserve(VM67); |
vs_check; |
5867 |
check_arg(2); |
{object V603; |
5868 |
|
V603=(base[0]); |
5869 |
|
vs_top=sup; |
5870 |
|
TTL:; |
5871 |
|
{register object V604; |
5872 |
|
base[1]= VV[53]; |
5873 |
|
base[3]= VV[286]; |
5874 |
|
base[4]= VV[287]; |
5875 |
|
base[5]= VV[288]; |
5876 |
|
base[6]= VV[289]; |
5877 |
|
base[7]= VV[290]; |
5878 |
|
base[8]= VV[291]; |
5879 |
|
base[9]= VV[292]; |
5880 |
|
base[10]= VV[293]; |
5881 |
|
base[11]= VV[294]; |
5882 |
|
base[12]= VV[295]; |
5883 |
|
base[13]= VV[296]; |
5884 |
|
base[14]= VV[297]; |
5885 |
|
base[15]= list(2,VV[176],list(4,VV[298],VV[176],(VV[180]->s.s_dbind),VV[207])); |
5886 |
|
base[16]= list(2,VV[299],list(4,VV[298],VV[176],(VV[180]->s.s_dbind),VV[207])); |
5887 |
|
base[17]= VV[300]; |
5888 |
|
vs_top=(vs_base=base+3)+15; |
5889 |
|
LlistA(); |
5890 |
vs_top=sup; |
vs_top=sup; |
5891 |
{object V449=base[0]->c.c_cdr; |
base[2]= vs_base[0]; |
5892 |
if(endp(V449))invalid_macro_call(); |
base[3]= VV[54]; |
5893 |
base[2]= (V449->c.c_car); |
base[4]= VV[301]; |
5894 |
V449=V449->c.c_cdr; |
base[5]= VV[55]; |
5895 |
if(endp(V449))invalid_macro_call(); |
base[6]= VV[302]; |
5896 |
base[3]= (V449->c.c_car); |
base[7]= VV[60]; |
5897 |
V449=V449->c.c_cdr; |
base[8]= VV[303]; |
5898 |
if(endp(V449))invalid_macro_call(); |
base[9]= VV[59]; |
5899 |
base[4]= (V449->c.c_car); |
base[10]= Cnil; |
5900 |
V449=V449->c.c_cdr; |
base[11]= VV[57]; |
5901 |
if(endp(V449)){ |
if(((V603))==Cnil){ |
5902 |
base[5]= Cnil; |
goto T2393;} |
5903 |
} else { |
base[12]= VV[304]; |
5904 |
base[5]= (V449->c.c_car); |
goto T2391; |
5905 |
V449=V449->c.c_cdr;} |
T2393:; |
5906 |
if(endp(V449)){ |
base[12]= Ct; |
5907 |
base[6]= Cnil; |
T2391:; |
5908 |
} else { |
vs_top=(vs_base=base+1)+12; |
5909 |
base[6]= (V449->c.c_car); |
(void) (*Lnk393)(); |
5910 |
V449=V449->c.c_cdr;} |
vs_top=sup; |
5911 |
if(!endp(V449))invalid_macro_call();} |
V604= vs_base[0]; |
5912 |
base[7]= list(8,VV[220],base[2],VV[221],VV[222],base[3],base[4],base[5],base[6]); |
base[1]= VV[305]; |
5913 |
vs_top=(vs_base=base+7)+1; |
base[2]= VV[306]; |
5914 |
|
base[3]= (V604); |
5915 |
|
base[4]= VV[226]; |
5916 |
|
base[5]= VV[307]; |
5917 |
|
base[6]= VV[227]; |
5918 |
|
base[7]= Cnil; |
5919 |
|
base[8]= VV[225]; |
5920 |
|
base[9]= VV[308]; |
5921 |
|
vs_top=(vs_base=base+1)+9; |
5922 |
|
(void) (*Lnk394)(); |
5923 |
|
vs_top=sup; |
5924 |
|
base[1]= VV[309]; |
5925 |
|
base[2]= VV[306]; |
5926 |
|
base[3]= (V604); |
5927 |
|
base[4]= VV[226]; |
5928 |
|
base[5]= VV[310]; |
5929 |
|
base[6]= VV[227]; |
5930 |
|
base[7]= Cnil; |
5931 |
|
base[8]= VV[225]; |
5932 |
|
base[9]= VV[311]; |
5933 |
|
vs_top=(vs_base=base+1)+9; |
5934 |
|
(void) (*Lnk394)(); |
5935 |
|
vs_top=sup; |
5936 |
|
base[1]= VV[312]; |
5937 |
|
base[2]= VV[313]; |
5938 |
|
base[3]= (V604); |
5939 |
|
base[4]= VV[226]; |
5940 |
|
base[5]= VV[314]; |
5941 |
|
base[6]= VV[227]; |
5942 |
|
base[7]= Cnil; |
5943 |
|
base[8]= VV[225]; |
5944 |
|
base[9]= VV[315]; |
5945 |
|
vs_top=(vs_base=base+1)+9; |
5946 |
|
(void) (*Lnk394)(); |
5947 |
|
vs_top=sup; |
5948 |
|
base[1]= VV[316]; |
5949 |
|
base[2]= VV[313]; |
5950 |
|
base[3]= (V604); |
5951 |
|
base[4]= VV[226]; |
5952 |
|
base[5]= VV[317]; |
5953 |
|
base[6]= VV[227]; |
5954 |
|
base[7]= Cnil; |
5955 |
|
base[8]= VV[225]; |
5956 |
|
base[9]= VV[318]; |
5957 |
|
vs_top=(vs_base=base+1)+9; |
5958 |
|
(void) (*Lnk394)(); |
5959 |
|
vs_top=sup; |
5960 |
|
base[1]= VV[319]; |
5961 |
|
base[2]= VV[313]; |
5962 |
|
base[3]= (V604); |
5963 |
|
base[4]= VV[226]; |
5964 |
|
base[5]= VV[320]; |
5965 |
|
base[6]= VV[227]; |
5966 |
|
base[7]= Cnil; |
5967 |
|
base[8]= VV[225]; |
5968 |
|
base[9]= VV[321]; |
5969 |
|
vs_top=(vs_base=base+1)+9; |
5970 |
|
(void) (*Lnk394)(); |
5971 |
|
vs_top=sup; |
5972 |
|
base[1]= (V604); |
5973 |
|
vs_top=(vs_base=base+1)+1; |
5974 |
|
return;} |
5975 |
|
} |
5976 |
|
} |
5977 |
|
/* function definition for LOOP-STANDARD-EXPANSION */ |
5978 |
|
|
5979 |
|
static L103() |
5980 |
|
{register object *base=vs_base; |
5981 |
|
register object *sup=base+VM90; VC90 |
5982 |
|
vs_check; |
5983 |
|
{register object V605; |
5984 |
|
object V606; |
5985 |
|
object V607; |
5986 |
|
V605=(base[0]); |
5987 |
|
V606=(base[1]); |
5988 |
|
V607=(base[2]); |
5989 |
|
vs_top=sup; |
5990 |
|
TTL:; |
5991 |
|
if(((V605))==Cnil){ |
5992 |
|
goto T2446;} |
5993 |
|
if(!(type_of(CMPcar((V605)))==t_symbol)){ |
5994 |
|
goto T2446;} |
5995 |
|
base[3]= (V605); |
5996 |
|
base[4]= (V606); |
5997 |
|
base[5]= (V607); |
5998 |
|
vs_top=(vs_base=base+3)+3; |
5999 |
|
(void) (*Lnk395)(); |
6000 |
return; |
return; |
6001 |
|
T2446:; |
6002 |
|
{object V608; |
6003 |
|
vs_base=vs_top; |
6004 |
|
Lgensym(); |
6005 |
|
vs_top=sup; |
6006 |
|
V608= vs_base[0]; |
6007 |
|
V609= make_cons(VV[14],(V605)); |
6008 |
|
base[3]= list(3,VV[120],Cnil,list(4,VV[73],(V608),/* INLINE-ARGS */V609,list(2,VV[82],(V608)))); |
6009 |
|
vs_top=(vs_base=base+3)+1; |
6010 |
|
return;} |
6011 |
|
} |
6012 |
} |
} |
6013 |
/* function definition for G1216 */ |
/* macro definition for LOOP */ |
6014 |
|
|
6015 |
static L68() |
static L104() |
6016 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6017 |
register object *sup=base+VM68; VC68 |
register object *sup=base+VM91; VC91 |
6018 |
vs_reserve(VM68); |
vs_check; |
6019 |
{object V450; |
vs_top=sup; |
6020 |
check_arg(1); |
{object V610=base[0]->c.c_cdr; |
6021 |
V450=(base[0]); |
base[2]= V610;} |
6022 |
|
base[3]= base[2]; |
6023 |
|
base[4]= base[1]; |
6024 |
|
base[5]= (VV[322]->s.s_dbind); |
6025 |
|
vs_top=(vs_base=base+3)+3; |
6026 |
|
(void) (*Lnk396)(); |
6027 |
|
return; |
6028 |
|
} |
6029 |
|
/* local function IN-GROUP-P */ |
6030 |
|
|
6031 |
|
static LC96(base0) |
6032 |
|
register object *base0; |
6033 |
|
{ register object *base=vs_base; |
6034 |
|
register object *sup=base+VM92; VC92 |
6035 |
|
vs_check; |
6036 |
|
{object V611; |
6037 |
|
object V612; |
6038 |
|
V611=(base[0]); |
6039 |
|
V612=(base[1]); |
6040 |
|
vs_top=sup; |
6041 |
|
base[2]= (V611); |
6042 |
|
base[3]= (V612); |
6043 |
|
vs_top=(vs_base=base+2)+2; |
6044 |
|
(void) (*Lnk349)(); |
6045 |
|
vs_top=sup; |
6046 |
|
V613= vs_base[0]; |
6047 |
|
base[2]= CMPcar(V613); |
6048 |
|
vs_top=(vs_base=base+2)+1; |
6049 |
|
return; |
6050 |
|
} |
6051 |
|
} |
6052 |
|
/* local function IN-GROUP-P */ |
6053 |
|
|
6054 |
|
static L96(base0) |
6055 |
|
register object *base0; |
6056 |
|
{ register object *base=vs_base; |
6057 |
|
register object *sup=base+VM93; VC93 |
6058 |
|
vs_check; |
6059 |
|
{object V614; |
6060 |
|
object V615; |
6061 |
|
V614=(base[0]); |
6062 |
|
V615=(base[1]); |
6063 |
|
vs_top=sup; |
6064 |
|
TTL:; |
6065 |
|
base[2]= (V614); |
6066 |
|
base[3]= (V615); |
6067 |
|
vs_top=(vs_base=base+2)+2; |
6068 |
|
(void) (*Lnk349)(); |
6069 |
|
vs_top=sup; |
6070 |
|
V616= vs_base[0]; |
6071 |
|
base[2]= CMPcar(V616); |
6072 |
|
vs_top=(vs_base=base+2)+1; |
6073 |
|
return; |
6074 |
|
} |
6075 |
|
} |
6076 |
|
/* local function MAKE-ENDTEST */ |
6077 |
|
|
6078 |
|
static L82(base0) |
6079 |
|
register object *base0; |
6080 |
|
{ register object *base=vs_base; |
6081 |
|
register object *sup=base+VM94; VC94 |
6082 |
|
vs_check; |
6083 |
|
{object V617; |
6084 |
|
V617=(base[0]); |
6085 |
vs_top=sup; |
vs_top=sup; |
6086 |
TTL:; |
TTL:; |
6087 |
{ |
if(((V617))!=Cnil){ |
6088 |
object V451= car((V450)); |
goto T2464;} |
|
if(endp(V451)){ |
|
6089 |
base[1]= Cnil; |
base[1]= Cnil; |
6090 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6091 |
return;} |
return; |
6092 |
T1997:; |
T2464:; |
6093 |
V453= listA(4,(V451->c.c_car),VV[221],VV[223],cdr((V450))); |
{register object x= Ct,V618= (V617); |
6094 |
base[1]= (V451->c.c_car); |
while(V618!=Cnil) |
6095 |
base[2]= symbol_value(VV[171]); |
if(eql(x,V618->c.c_car)){ |
6096 |
|
goto T2468; |
6097 |
|
}else V618=V618->c.c_cdr; |
6098 |
|
goto T2467;} |
6099 |
|
T2468:; |
6100 |
|
base[1]= VV[189]; |
6101 |
|
vs_top=(vs_base=base+1)+1; |
6102 |
|
return; |
6103 |
|
T2467:; |
6104 |
|
V617= nreverse((V617)); |
6105 |
|
if((CMPcdr((V617)))!=Cnil){ |
6106 |
|
goto T2471;} |
6107 |
|
V619= CMPcar((V617)); |
6108 |
|
goto T2469; |
6109 |
|
T2471:; |
6110 |
|
V619= make_cons(VV[35],(V617)); |
6111 |
|
T2469:; |
6112 |
|
base[1]= list(3,VV[8],V619,VV[190]); |
6113 |
|
vs_top=(vs_base=base+1)+1; |
6114 |
|
return; |
6115 |
|
} |
6116 |
|
} |
6117 |
|
/* local function GET-CLAUSE */ |
6118 |
|
|
6119 |
|
static L66(base0) |
6120 |
|
register object *base0; |
6121 |
|
{ register object *base=vs_base; |
6122 |
|
register object *sup=base+VM95; VC95 |
6123 |
|
vs_check; |
6124 |
|
{object V620; |
6125 |
|
V620=(base[0]); |
6126 |
|
vs_top=sup; |
6127 |
|
TTL:; |
6128 |
|
{register object V621; |
6129 |
|
V621= Cnil; |
6130 |
|
T2475:; |
6131 |
|
{register object V622; |
6132 |
|
register object V623; |
6133 |
|
V622= CMPcar((VV[89]->s.s_dbind)); |
6134 |
|
bds_bind(VV[108],Cnil); |
6135 |
|
V623= Cnil; |
6136 |
|
if(type_of((V622))==t_symbol){ |
6137 |
|
goto T2481;} |
6138 |
|
base[2]= VV[149]; |
6139 |
|
base[3]= (V622); |
6140 |
|
base[4]= (V620); |
6141 |
|
vs_top=(vs_base=base+2)+3; |
6142 |
|
(void) (*Lnk343)(); |
6143 |
|
vs_top=sup; |
6144 |
|
bds_unwind1; |
6145 |
|
goto T2478; |
6146 |
|
T2481:; |
6147 |
|
(VV[88]->s.s_dbind)= (VV[89]->s.s_dbind); |
6148 |
|
vs_base=vs_top; |
6149 |
|
(void) (*Lnk346)(); |
6150 |
|
vs_top=sup; |
6151 |
|
base[2]= CMPcar((VV[89]->s.s_dbind)); |
6152 |
|
base[3]= VV[150]; |
6153 |
|
vs_top=(vs_base=base+2)+2; |
6154 |
|
(void) (*Lnk353)(); |
6155 |
|
vs_top=sup; |
6156 |
|
if((vs_base[0])==Cnil){ |
6157 |
|
goto T2489;} |
6158 |
|
if(base0[3]!=Cnil){ |
6159 |
|
V624= base0[3]; |
6160 |
|
goto T2495;} |
6161 |
|
vs_base=vs_top; |
6162 |
|
(void) (*Lnk374)(); |
6163 |
|
vs_top=sup; |
6164 |
|
base0[3]= vs_base[0]; |
6165 |
|
V624= base0[3]; |
6166 |
|
T2495:; |
6167 |
|
(VV[89]->s.s_dbind)= make_cons(V624,CMPcdr((VV[89]->s.s_dbind))); |
6168 |
|
T2489:; |
6169 |
|
base[2]= (V622); |
6170 |
|
base[3]= STREF(object,(VV[96]->s.s_dbind),0); |
6171 |
|
vs_top=(vs_base=base+2)+2; |
6172 |
|
(void) (*Lnk347)(); |
6173 |
|
vs_top=sup; |
6174 |
|
V623= vs_base[0]; |
6175 |
|
if(((V623))==Cnil){ |
6176 |
|
goto T2497;} |
6177 |
|
base[3]= CMPcar((V623)); |
6178 |
|
vs_top=(vs_base=base+3)+1; |
6179 |
|
Lsymbol_function(); |
6180 |
|
vs_top=sup; |
6181 |
|
base[2]= vs_base[0]; |
6182 |
|
{object V625; |
6183 |
|
V625= CMPcdr((V623)); |
6184 |
|
vs_top=base+3; |
6185 |
|
while(V625!=Cnil) |
6186 |
|
{vs_push((V625)->c.c_car);V625=(V625)->c.c_cdr;} |
6187 |
|
vs_base=base+3;} |
6188 |
|
super_funcall_no_event(base[2]); |
6189 |
|
vs_top=sup; |
6190 |
|
if(!(((VV[108]->s.s_dbind))==Cnil)){ |
6191 |
|
goto T2498;} |
6192 |
|
T2497:; |
6193 |
|
base[2]= VV[151]; |
6194 |
|
base[3]= (V622); |
6195 |
|
base[4]= (V620); |
6196 |
|
vs_top=(vs_base=base+2)+3; |
6197 |
|
(void) (*Lnk343)(); |
6198 |
|
vs_top=sup; |
6199 |
|
bds_unwind1; |
6200 |
|
goto T2478; |
6201 |
|
T2498:; |
6202 |
|
base[2]= (VV[108]->s.s_dbind); |
6203 |
|
base[3]= (V621); |
6204 |
|
vs_top=(vs_base=base+2)+2; |
6205 |
|
Lreconc(); |
6206 |
|
vs_top=sup; |
6207 |
|
V621= vs_base[0]; |
6208 |
|
bds_unwind1;} |
6209 |
|
T2478:; |
6210 |
|
base[1]= CMPcar((VV[89]->s.s_dbind)); |
6211 |
|
base[2]= VV[152]; |
6212 |
|
vs_top=(vs_base=base+1)+2; |
6213 |
|
(void) (*Lnk353)(); |
6214 |
|
vs_top=sup; |
6215 |
|
if((vs_base[0])==Cnil){ |
6216 |
|
goto T2517;} |
6217 |
|
vs_base=vs_top; |
6218 |
|
(void) (*Lnk346)(); |
6219 |
|
vs_top=sup; |
6220 |
|
goto T2515; |
6221 |
|
T2517:; |
6222 |
|
if((CMPcdr((V621)))==Cnil){ |
6223 |
|
goto T2522;} |
6224 |
|
V626= nreverse((V621)); |
6225 |
|
base[1]= make_cons(VV[14],/* INLINE-ARGS */V626); |
6226 |
|
vs_top=(vs_base=base+1)+1; |
6227 |
|
return; |
6228 |
|
T2522:; |
6229 |
|
base[1]= CMPcar((V621)); |
6230 |
|
vs_top=(vs_base=base+1)+1; |
6231 |
|
return; |
6232 |
|
T2515:; |
6233 |
|
goto T2475;} |
6234 |
|
} |
6235 |
|
} |
6236 |
|
/* local function REPLICATE */ |
6237 |
|
|
6238 |
|
static L59(base0) |
6239 |
|
register object *base0; |
6240 |
|
{ register object *base=vs_base; |
6241 |
|
register object *sup=base+VM96; VC96 |
6242 |
|
vs_check; |
6243 |
|
{object V627; |
6244 |
|
object V628; |
6245 |
|
V627=(base[0]); |
6246 |
|
V628=(base[1]); |
6247 |
|
vs_top=sup; |
6248 |
|
TTL:; |
6249 |
|
if(!(type_of((V628))!=t_cons)){ |
6250 |
|
goto T2527;} |
6251 |
|
base[2]= (V627); |
6252 |
|
vs_top=(vs_base=base+2)+1; |
6253 |
|
return; |
6254 |
|
T2527:; |
6255 |
|
base[2]= (V627); |
6256 |
|
base[3]= CMPcar((V628)); |
6257 |
|
vs_top=(vs_base=base+2)+2; |
6258 |
|
L59(base0); |
6259 |
|
vs_top=sup; |
6260 |
|
V629= vs_base[0]; |
6261 |
|
base[2]= (V627); |
6262 |
|
base[3]= CMPcdr((V628)); |
6263 |
|
vs_top=(vs_base=base+2)+2; |
6264 |
|
L59(base0); |
6265 |
|
vs_top=sup; |
6266 |
|
V630= vs_base[0]; |
6267 |
|
base[2]= make_cons(V629,V630); |
6268 |
|
vs_top=(vs_base=base+2)+1; |
6269 |
|
return; |
6270 |
|
} |
6271 |
|
} |
6272 |
|
/* local function TRANSLATE */ |
6273 |
|
|
6274 |
|
static L58(base0) |
6275 |
|
register object *base0; |
6276 |
|
{ register object *base=vs_base; |
6277 |
|
register object *sup=base+VM97; VC97 |
6278 |
|
vs_check; |
6279 |
|
{register object V631; |
6280 |
|
register object V632; |
6281 |
|
V631=(base[0]); |
6282 |
|
V632=(base[1]); |
6283 |
|
vs_top=sup; |
6284 |
|
TTL:; |
6285 |
|
if(((V631))!=Cnil){ |
6286 |
|
goto T2536;} |
6287 |
|
base[2]= Cnil; |
6288 |
|
vs_top=(vs_base=base+2)+1; |
6289 |
|
return; |
6290 |
|
T2536:; |
6291 |
|
if(!(type_of((V631))!=t_cons)){ |
6292 |
|
goto T2539;}{object V633; |
6293 |
|
base[3]= (V631); |
6294 |
|
base[4]= STREF(object,(VV[96]->s.s_dbind),16); |
6295 |
|
vs_top=(vs_base=base+3)+2; |
6296 |
|
Lgethash(); |
6297 |
|
vs_top=sup; |
6298 |
|
V633= vs_base[0]; |
6299 |
|
if(V633==Cnil)goto T2542; |
6300 |
|
base[2]= V633; |
6301 |
|
goto T2541; |
6302 |
|
T2542:;}{object V634; |
6303 |
|
base[3]= symbol_name((V631)); |
6304 |
|
base[4]= STREF(object,(VV[96]->s.s_dbind),20); |
6305 |
|
vs_top=(vs_base=base+3)+2; |
6306 |
|
Lgethash(); |
6307 |
|
vs_top=sup; |
6308 |
|
V634= vs_base[0]; |
6309 |
|
if(V634==Cnil)goto T2546; |
6310 |
|
base[2]= V634; |
6311 |
|
goto T2541; |
6312 |
|
T2546:;} |
6313 |
|
base[3]= VV[137]; |
6314 |
|
base[4]= base0[1]; |
6315 |
|
base[5]= (V631); |
6316 |
|
vs_top=(vs_base=base+3)+3; |
6317 |
|
(void) (*Lnk343)(); |
6318 |
|
vs_top=sup; |
6319 |
|
base[2]= vs_base[0]; |
6320 |
|
T2541:; |
6321 |
|
base[3]= (V632); |
6322 |
|
vs_top=(vs_base=base+2)+2; |
6323 |
|
L59(base0); |
6324 |
|
return; |
6325 |
|
T2539:; |
6326 |
|
if(!(type_of((V632))!=t_cons)){ |
6327 |
|
goto T2555;} |
6328 |
|
base[2]= VV[138]; |
6329 |
|
base[3]= base0[1]; |
6330 |
|
base[4]= base0[0]; |
6331 |
|
vs_top=(vs_base=base+2)+3; |
6332 |
|
(void) (*Lnk343)(); |
6333 |
|
return; |
6334 |
|
T2555:; |
6335 |
|
base[2]= CMPcar((V631)); |
6336 |
|
base[3]= CMPcar((V632)); |
6337 |
|
vs_top=(vs_base=base+2)+2; |
6338 |
|
L58(base0); |
6339 |
|
vs_top=sup; |
6340 |
|
V635= vs_base[0]; |
6341 |
|
base[2]= CMPcdr((V631)); |
6342 |
|
base[3]= CMPcdr((V632)); |
6343 |
|
vs_top=(vs_base=base+2)+2; |
6344 |
|
L58(base0); |
6345 |
|
vs_top=sup; |
6346 |
|
V636= vs_base[0]; |
6347 |
|
base[2]= make_cons(V635,V636); |
6348 |
|
vs_top=(vs_base=base+2)+1; |
6349 |
|
return; |
6350 |
|
} |
6351 |
|
} |
6352 |
|
/* local function LIST-SIZE */ |
6353 |
|
|
6354 |
|
static L40(base0) |
6355 |
|
register object *base0; |
6356 |
|
{ register object *base=vs_base; |
6357 |
|
register object *sup=base+VM98; VC98 |
6358 |
|
vs_check; |
6359 |
|
{object V637; |
6360 |
|
V637=(base[0]); |
6361 |
|
vs_top=sup; |
6362 |
|
TTL:; |
6363 |
|
{int V638; |
6364 |
|
V638= 0; |
6365 |
|
{register object V639; |
6366 |
|
object V640; |
6367 |
|
V639= (V637); |
6368 |
|
V640= CMPcar((V639)); |
6369 |
|
T2570:; |
6370 |
|
if(!(((V639))==Cnil)){ |
6371 |
|
goto T2571;} |
6372 |
|
base[2]= CMPmake_fixnum(V638); |
6373 |
|
vs_top=(vs_base=base+2)+1; |
6374 |
|
return; |
6375 |
|
T2571:; |
6376 |
|
V641 = CMPmake_fixnum(V638); |
6377 |
|
base[2]= (V640); |
6378 |
|
base[3]= base0[1]; |
6379 |
|
vs_top=(vs_base=base+2)+2; |
6380 |
|
(void) (*Lnk339)(); |
6381 |
|
vs_top=sup; |
6382 |
|
V642= vs_base[0]; |
6383 |
|
V638= fix(number_plus(V641,V642)); |
6384 |
|
V639= CMPcdr((V639)); |
6385 |
|
V640= CMPcar((V639)); |
6386 |
|
goto T2570;}} |
6387 |
|
} |
6388 |
|
} |
6389 |
|
/* local function MAKEBODY */ |
6390 |
|
|
6391 |
|
static L35(base0) |
6392 |
|
register object *base0; |
6393 |
|
{ register object *base=vs_base; |
6394 |
|
register object *sup=base+VM99; VC99 |
6395 |
|
vs_check; |
6396 |
|
vs_top=sup; |
6397 |
|
TTL:; |
6398 |
|
{object V643; |
6399 |
|
V645= nreverse(base0[7]); |
6400 |
|
base[0]= append(base0[2],/* INLINE-ARGS */V645); |
6401 |
|
vs_top=(vs_base=base+0)+1; |
6402 |
|
L33(base0); |
6403 |
|
vs_top=sup; |
6404 |
|
V644= vs_base[0]; |
6405 |
|
base[1]= base0[8]; |
6406 |
|
base[2]= VV[75]; |
6407 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
6408 |
(void) (*Lnk231)(); |
Lreconc(); |
6409 |
|
vs_top=sup; |
6410 |
|
V647= vs_base[0]; |
6411 |
|
base[0]= append(base0[4],V647); |
6412 |
|
vs_top=(vs_base=base+0)+1; |
6413 |
|
L33(base0); |
6414 |
|
vs_top=sup; |
6415 |
|
V646= vs_base[0]; |
6416 |
|
base[0]= base0[6]; |
6417 |
|
vs_top=(vs_base=base+0)+1; |
6418 |
|
L33(base0); |
6419 |
|
vs_top=sup; |
6420 |
|
V648= vs_base[0]; |
6421 |
|
V649= make_cons(VV[76],V648); |
6422 |
|
V650= append(V646,/* INLINE-ARGS */V649); |
6423 |
|
V651= make_cons(VV[74],/* INLINE-ARGS */V650); |
6424 |
|
V652= append(V644,/* INLINE-ARGS */V651); |
6425 |
|
V643= make_cons(VV[73],/* INLINE-ARGS */V652); |
6426 |
|
if((base0[9])==Cnil){ |
6427 |
|
goto T2596;} |
6428 |
|
V653= list(2,base0[9],Cnil); |
6429 |
|
base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V653,Cnil),(V643)); |
6430 |
|
vs_top=(vs_base=base+0)+1; |
6431 |
|
return; |
6432 |
|
T2596:; |
6433 |
|
base[0]= (V643); |
6434 |
|
vs_top=(vs_base=base+0)+1; |
6435 |
|
return;} |
6436 |
|
} |
6437 |
|
/* local function PIFY */ |
6438 |
|
|
6439 |
|
static L34(base0) |
6440 |
|
register object *base0; |
6441 |
|
{ register object *base=vs_base; |
6442 |
|
register object *sup=base+VM100; VC100 |
6443 |
|
vs_check; |
6444 |
|
{object V654; |
6445 |
|
V654=(base[0]); |
6446 |
|
vs_top=sup; |
6447 |
|
TTL:; |
6448 |
|
if((CMPcdr((V654)))!=Cnil){ |
6449 |
|
goto T2599;} |
6450 |
|
base[1]= CMPcar((V654)); |
6451 |
|
vs_top=(vs_base=base+1)+1; |
6452 |
|
return; |
6453 |
|
T2599:; |
6454 |
|
base[1]= make_cons(VV[14],(V654)); |
6455 |
|
vs_top=(vs_base=base+1)+1; |
6456 |
|
return; |
6457 |
|
} |
6458 |
|
} |
6459 |
|
/* local function PSIMP */ |
6460 |
|
|
6461 |
|
static L33(base0) |
6462 |
|
register object *base0; |
6463 |
|
{ register object *base=vs_base; |
6464 |
|
register object *sup=base+VM101; VC101 |
6465 |
|
vs_check; |
6466 |
|
{object V655; |
6467 |
|
V655=(base[0]); |
6468 |
|
vs_top=sup; |
6469 |
|
TTL:; |
6470 |
|
{register object V656; |
6471 |
|
V656= Cnil; |
6472 |
|
{register object V657; |
6473 |
|
register object V658; |
6474 |
|
V657= (V655); |
6475 |
|
V658= CMPcar((V657)); |
6476 |
|
T2605:; |
6477 |
|
if(!(((V657))==Cnil)){ |
6478 |
|
goto T2606;} |
6479 |
|
goto T2601; |
6480 |
|
T2606:; |
6481 |
|
if(((V658))==Cnil){ |
6482 |
|
goto T2610;} |
6483 |
|
V656= make_cons((V658),(V656)); |
6484 |
|
if(!(type_of((V658))==t_cons)){ |
6485 |
|
goto T2610;} |
6486 |
|
{register object x= CMPcar((V658)),V659= VV[72]; |
6487 |
|
while(V659!=Cnil) |
6488 |
|
if(eql(x,V659->c.c_car)){ |
6489 |
|
goto T2618; |
6490 |
|
}else V659=V659->c.c_cdr; |
6491 |
|
goto T2610;} |
6492 |
|
T2618:; |
6493 |
|
goto T2601; |
6494 |
|
T2610:; |
6495 |
|
V657= CMPcdr((V657)); |
6496 |
|
V658= CMPcar((V657)); |
6497 |
|
goto T2605;} |
6498 |
|
T2601:; |
6499 |
|
base[1]= nreverse((V656)); |
6500 |
|
vs_top=(vs_base=base+1)+1; |
6501 |
|
return;} |
6502 |
|
} |
6503 |
|
} |
6504 |
|
/* local function FIND-NON-NULL */ |
6505 |
|
|
6506 |
|
static L27(base0) |
6507 |
|
register object *base0; |
6508 |
|
{ register object *base=vs_base; |
6509 |
|
register object *sup=base+VM102; VC102 |
6510 |
|
vs_check; |
6511 |
|
{object V660; |
6512 |
|
V660=(base[0]); |
6513 |
|
vs_top=sup; |
6514 |
|
TTL:; |
6515 |
|
{register object V661; |
6516 |
|
V661= (V660); |
6517 |
|
T2625:; |
6518 |
|
if(type_of((V661))==t_cons){ |
6519 |
|
goto T2626;} |
6520 |
|
base[1]= (V661); |
6521 |
|
vs_top=(vs_base=base+1)+1; |
6522 |
|
return; |
6523 |
|
T2626:; |
6524 |
|
{register object V662; |
6525 |
|
V662= CMPcar((V661)); |
6526 |
|
V661= CMPcdr((V661)); |
6527 |
|
base[1]= (V662);} |
6528 |
|
vs_top=(vs_base=base+1)+1; |
6529 |
|
L27(base0); |
6530 |
vs_top=sup; |
vs_top=sup; |
6531 |
V454= vs_base[0];{object V455; |
if((vs_base[0])==Cnil){ |
6532 |
V455= symbol_value(VV[171]); |
goto T2630;} |
6533 |
V456= symbol_function(VV[265]); |
base[1]= Ct; |
|
V457= (VFUN_NARGS=6,(*(LnkLI234))(V454,V455,VV[25],V456,VV[224],small_fixnum(1))); |
|
|
setq(VV[171],make_cons(/* INLINE-ARGS */V453,/* INLINE-ARGS */V457));} |
|
|
if(endp(V451=MMcdr(V451))){ |
|
|
base[1]= car((V450)); |
|
6534 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6535 |
|
return; |
6536 |
|
T2630:; |
6537 |
|
goto T2625;} |
6538 |
|
} |
6539 |
|
} |
6540 |
|
/* local function LOOP-DESETQ-INTERNAL */ |
6541 |
|
|
6542 |
|
static L28(base0) |
6543 |
|
register object *base0; |
6544 |
|
{ register object *base=vs_base; |
6545 |
|
register object *sup=base+VM103; VC103 |
6546 |
|
vs_check; |
6547 |
|
{register object V663; |
6548 |
|
register object V664; |
6549 |
|
object V665; |
6550 |
|
V663=(base[0]); |
6551 |
|
V664=(base[1]); |
6552 |
|
vs_base=vs_base+2; |
6553 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2639;} |
6554 |
|
V665=(base[2]); |
6555 |
|
vs_top=sup; |
6556 |
|
goto T2640; |
6557 |
|
T2639:; |
6558 |
|
V665= Cnil; |
6559 |
|
T2640:; |
6560 |
|
{register object V666; |
6561 |
|
V666= (V663); |
6562 |
|
if(!(((V666))==Cnil)){ |
6563 |
|
goto T2643;} |
6564 |
|
if(!(type_of((V664))==t_cons)){ |
6565 |
|
goto T2646;} |
6566 |
|
if(!((CMPcar((V664)))==(VV[62]))){ |
6567 |
|
goto T2649;} |
6568 |
|
{object V667; |
6569 |
|
object V668= CMPcdr((V664)); |
6570 |
|
if(V668==Cnil){ |
6571 |
|
base[4]= Cnil; |
6572 |
|
vs_top=(vs_base=base+4)+1; |
6573 |
|
return;} |
6574 |
|
base[3]=V667=MMcons(Cnil,Cnil); |
6575 |
|
T2651:; |
6576 |
|
{register object V669; |
6577 |
|
V669= (V668->c.c_car); |
6578 |
|
if(type_of((V669))==t_cons){ |
6579 |
|
goto T2653;} |
6580 |
|
(V667->c.c_cdr)= Cnil; |
6581 |
|
goto T2652; |
6582 |
|
T2653:; |
6583 |
|
if(!((((CMPcar((V669)))==(VV[65])?Ct:Cnil))==Cnil)){ |
6584 |
|
goto T2657;} |
6585 |
|
goto T2655; |
6586 |
|
T2657:; |
6587 |
|
if(!(((type_of(CMPcadr((V669)))==t_symbol?Ct:Cnil))==Cnil)){ |
6588 |
|
goto T2659;} |
6589 |
|
goto T2655; |
6590 |
|
T2659:; |
6591 |
|
base[4]= (V669); |
6592 |
|
base[5]= base0[1]; |
6593 |
|
vs_top=(vs_base=base+4)+2; |
6594 |
|
Lmacroexpand(); |
6595 |
|
vs_top=sup; |
6596 |
|
V669= vs_base[0]; |
6597 |
|
if(((type_of((V669))==t_symbol?Ct:Cnil))==Cnil){ |
6598 |
|
goto T2655;} |
6599 |
|
(V667->c.c_cdr)= Cnil; |
6600 |
|
goto T2652; |
6601 |
|
T2655:; |
6602 |
|
(V667->c.c_cdr)= make_cons((V669),Cnil);} |
6603 |
|
T2652:; |
6604 |
|
while(MMcdr(V667)!=Cnil)V667=MMcdr(V667); |
6605 |
|
if((V668=MMcdr(V668))==Cnil){ |
6606 |
|
base[3]=base[3]->c.c_cdr; |
6607 |
|
vs_top=(vs_base=base+3)+1; |
6608 |
|
return;} |
6609 |
|
goto T2651;} |
6610 |
|
T2649:; |
6611 |
|
base[3]= make_cons((V664),Cnil); |
6612 |
|
vs_top=(vs_base=base+3)+1; |
6613 |
|
return; |
6614 |
|
T2646:; |
6615 |
|
base[3]= Cnil; |
6616 |
|
vs_top=(vs_base=base+3)+1; |
6617 |
|
return; |
6618 |
|
T2643:; |
6619 |
|
if(!(type_of((V666))==t_cons)){ |
6620 |
|
goto T2665;} |
6621 |
|
{object V670; |
6622 |
|
object V671; |
6623 |
|
object V672; |
6624 |
|
object V673; |
6625 |
|
V670= CMPcar((V663)); |
6626 |
|
V671= CMPcdr((V663)); |
6627 |
|
base[7]= (V670); |
6628 |
|
vs_top=(vs_base=base+7)+1; |
6629 |
|
L27(base0); |
6630 |
|
vs_top=sup; |
6631 |
|
V672= vs_base[0]; |
6632 |
|
base[7]= (V671); |
6633 |
|
vs_top=(vs_base=base+7)+1; |
6634 |
|
L27(base0); |
6635 |
|
vs_top=sup; |
6636 |
|
V673= vs_base[0]; |
6637 |
|
if(((V672))!=Cnil){ |
6638 |
|
goto T2673;} |
6639 |
|
if(((V673))==Cnil){ |
6640 |
|
goto T2674;} |
6641 |
|
T2673:; |
6642 |
|
if(((V673))==Cnil){ |
6643 |
|
goto T2679;} |
6644 |
|
{register object V675; |
6645 |
|
object V676; |
6646 |
|
if((V665)!=Cnil){ |
6647 |
|
V675= (V665); |
6648 |
|
goto T2681;} |
6649 |
|
V675= (VV[66]->s.s_dbind); |
6650 |
|
T2681:; |
6651 |
|
base[9]= (V670); |
6652 |
|
base[10]= list(2,VV[65],(V675)); |
6653 |
|
vs_top=(vs_base=base+9)+2; |
6654 |
|
L28(base0); |
6655 |
|
vs_top=sup; |
6656 |
|
V677= vs_base[0]; |
6657 |
|
V678= list(3,VV[11],(V675),list(2,VV[10],(V675))); |
6658 |
|
base[9]= (V671); |
6659 |
|
base[10]= (V675); |
6660 |
|
base[11]= (V675); |
6661 |
|
vs_top=(vs_base=base+9)+3; |
6662 |
|
L28(base0); |
6663 |
|
vs_top=sup; |
6664 |
|
V679= vs_base[0]; |
6665 |
|
V680= make_cons(/* INLINE-ARGS */V678,V679); |
6666 |
|
V676= append(V677,/* INLINE-ARGS */V680); |
6667 |
|
if((V665)==Cnil){ |
6668 |
|
goto T2691;} |
6669 |
|
if(((V675))==((V664))){ |
6670 |
|
goto T2695;} |
6671 |
|
V682= list(3,VV[11],(V675),(V664)); |
6672 |
|
V681= make_cons(/* INLINE-ARGS */V682,Cnil); |
6673 |
|
goto T2693; |
6674 |
|
T2695:; |
6675 |
|
V681= Cnil; |
6676 |
|
T2693:; |
6677 |
|
base[9]= append(V681,(V676)); |
6678 |
|
vs_top=(vs_base=base+9)+1; |
6679 |
|
return; |
6680 |
|
T2691:; |
6681 |
|
V683= list(2,(V675),(V664)); |
6682 |
|
V684= listA(3,VV[29],make_cons(/* INLINE-ARGS */V683,Cnil),(V676)); |
6683 |
|
base[9]= make_cons(/* INLINE-ARGS */V684,Cnil); |
6684 |
|
vs_top=(vs_base=base+9)+1; |
6685 |
|
return;} |
6686 |
|
T2679:; |
6687 |
|
base[7]= (V670); |
6688 |
|
base[8]= list(2,VV[65],(V664)); |
6689 |
|
base[9]= (V665); |
6690 |
|
vs_top=(vs_base=base+7)+3; |
6691 |
|
L28(base0); |
6692 |
|
return; |
6693 |
|
T2674:; |
6694 |
|
base[7]= Cnil; |
6695 |
|
vs_top=(vs_base=base+7)+1; |
6696 |
|
return;} |
6697 |
|
T2665:; |
6698 |
|
if(((V663))==((V664))){ |
6699 |
|
goto T2701;} |
6700 |
|
V685= list(3,VV[11],(V663),(V664)); |
6701 |
|
base[3]= make_cons(/* INLINE-ARGS */V685,Cnil); |
6702 |
|
vs_top=(vs_base=base+3)+1; |
6703 |
|
return; |
6704 |
|
T2701:; |
6705 |
|
base[3]= Cnil; |
6706 |
|
vs_top=(vs_base=base+3)+1; |
6707 |
return;} |
return;} |
|
goto T1997;} |
|
6708 |
} |
} |
6709 |
} |
} |
6710 |
static LnkT267(){ call_or_link(VV[267],&Lnk267);} /* LOOP-NAMED-VARIABLE */ |
/* local function MAKETABLE */ |
6711 |
static LnkT266(){ call_or_link(VV[266],&Lnk266);} /* LOOP-MAYBE-BIND-FORM */ |
|
6712 |
static LnkT264(){ call_or_link(VV[264],&Lnk264);} /* LOOP-SEQUENCER */ |
static L23(base0) |
6713 |
static LnkT263(){ call_or_link(VV[263],&Lnk263);} /* LOOP-GATHER-PREPS */ |
register object *base0; |
6714 |
static LnkT262(){ call_or_link(VV[262],&Lnk262);} /* LOOP-END-TESTIFY */ |
{ register object *base=vs_base; |
6715 |
static LnkT261(){ call_or_link(VV[261],&Lnk261);} /* LOOP-SIMPLEP-1 */ |
register object *sup=base+VM104; VC104 |
6716 |
static LnkT260(){ call_or_link(VV[260],&Lnk260);} /* LOOP-WHEN-IT-VARIABLE */ |
vs_check; |
6717 |
static LnkT259(){ call_or_link(VV[259],&Lnk259);} /* LOOP-CDRIFY */ |
{object V686; |
6718 |
static LnkT258(){ call_or_link(VV[258],&Lnk258);} /* LOOP-TYPED-ARITH */ |
V686=(base[0]); |
6719 |
static LnkT257(){ call_or_link(VV[257],&Lnk257);} /* LOOP-MAKE-ITERATION-VARIABLE */ |
vs_top=sup; |
6720 |
static LnkT256(){ call_or_link(VV[256],&Lnk256);} /* LOOP-OPTIONAL-TYPE */ |
TTL:; |
6721 |
static LnkT251(){ call_or_link(VV[251],&Lnk251);} /* LOOP-CONSTRUCT-RETURN */ |
{object V687; |
6722 |
static LnkT250(){ call_or_link(VV[250],&Lnk250);} /* LOOP-GET-FORM */ |
object V688; |
6723 |
static LnkT249(){ call_or_link(VV[249],&Lnk249);} /* LOOP-EMIT-BODY */ |
V687= CMPmake_fixnum(length((V686))); |
6724 |
static LnkT248(){ call_or_link(VV[248],&Lnk248);} /* LOOP-GET-PROGN */ |
base[3]= VV[61]; |
6725 |
static LnkT247(){ call_or_link(VV[247],&Lnk247);} /* LOOP-PSEUDO-BODY */ |
if(!(number_compare((V687),small_fixnum(10))<0)){ |
6726 |
static LnkT246(){ call_or_link(VV[246],&Lnk246);} /* LOOP-MAKE-CONDITIONALIZATION */ |
goto T2708;} |
6727 |
static LnkT245(){ call_or_link(VV[245],&Lnk245);} /* LOOP-CONSTANTP */ |
base[4]= small_fixnum(10); |
6728 |
static LnkT244(){ call_or_link(VV[244],&Lnk244);} /* LOOP-TEQUAL */ |
goto T2706; |
6729 |
static LnkT243(){ call_or_link(VV[243],&Lnk243);} /* LOOP-TYPED-INIT */ |
T2708:; |
6730 |
static LnkT92(){ call_or_link(VV[92],&Lnk92);} /* LOOP-DECLARE-VARIABLE */ |
base[4]= (V687); |
6731 |
static object LnkTLI242(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[242],&LnkLI242,2,ap);} /* COERCE */ |
T2706:; |
6732 |
static object LnkTLI5(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[5],&LnkLI5,ap);} /* WARN */ |
base[5]= VV[20]; |
6733 |
static LnkT241(){ call_or_link(VV[241],&Lnk241);} /* LOOP-GET-PROGN-1 */ |
base[6]= (VV[397]->s.s_gfdef); |
6734 |
static LnkT240(){ call_or_link(VV[240],&Lnk240);} /* LOOP-TMEMBER */ |
vs_top=(vs_base=base+3)+4; |
6735 |
static LnkT239(){ call_or_link(VV[239],&Lnk239);} /* LOOP-HACK-ITERATION */ |
Lmake_hash_table(); |
6736 |
static LnkT238(){ call_or_link(VV[238],&Lnk238);} /* LOOP-BIND-BLOCK */ |
vs_top=sup; |
6737 |
static LnkT237(){ call_or_link(VV[237],&Lnk237);} /* LOOP-OPTIMIZE-DUPLICATED-CODE-ETC */ |
V688= vs_base[0]; |
6738 |
static LnkT236(){ call_or_link(VV[236],&Lnk236);} /* LOOP-MAKE-VARIABLE */ |
{register object V689; |
6739 |
static LnkT235(){ call_or_link(VV[235],&Lnk235);} /* LOOP-OUTPUT-GROUP */ |
register object V690; |
6740 |
static LnkT136(){ call_or_link(VV[136],&Lnk136);} /* LOOP-SIMPLEP */ |
V689= (V686); |
6741 |
static object LnkTLI234(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[234],&LnkLI234,ap);} /* DELETE */ |
V690= CMPcar((V689)); |
6742 |
static LnkT233(){ call_or_link(VV[233],&Lnk233);} /* LOOP-TRANSLATE-1 */ |
T2716:; |
6743 |
static LnkT232(){ call_or_link(VV[232],&Lnk232);} /* LOOP-TRANSLATE */ |
if(!(((V689))==Cnil)){ |
6744 |
static LnkT231(){ call_or_link(VV[231],&Lnk231);} /* LOOP-TASSOC */ |
goto T2717;} |
6745 |
static LnkT229(){ call_or_link(VV[229],&Lnk229);} /* LOOP-MAKE-DESETQ */ |
goto T2712; |
6746 |
static LnkT228(){ call_or_link(VV[228],&Lnk228);} /* LOOP-DESETQ-INTERNAL */ |
T2717:; |
6747 |
static LnkT227(){ call_or_link(VV[227],&Lnk227);} /* LOOP-MAKE-SETQ */ |
{object V691; |
6748 |
static LnkT226(){ call_or_link(VV[226],&Lnk226);} /* LOOP-MAKE-PSETQ */ |
object V693; |
6749 |
static object LnkTLI225(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[225],&LnkLI225,ap);} /* CONCATENATE */ |
V691= symbol_name(CMPcar((V690))); |
6750 |
|
V693= CMPcadr((V690)); |
6751 |
|
base[6]= (V691); |
6752 |
|
base[7]= V688; |
6753 |
|
base[8]= (V693); |
6754 |
|
vs_top=(vs_base=base+6)+3; |
6755 |
|
siLhash_set(); |
6756 |
|
vs_top=sup;} |
6757 |
|
V689= CMPcdr((V689)); |
6758 |
|
V690= CMPcar((V689)); |
6759 |
|
goto T2716;} |
6760 |
|
T2712:; |
6761 |
|
base[3]= (V688); |
6762 |
|
vs_top=(vs_base=base+3)+1; |
6763 |
|
return;} |
6764 |
|
} |
6765 |
|
} |
6766 |
|
/* local function CDR-WRAP */ |
6767 |
|
|
6768 |
|
static L8(base0) |
6769 |
|
register object *base0; |
6770 |
|
{ register object *base=vs_base; |
6771 |
|
register object *sup=base+VM105; VC105 |
6772 |
|
vs_check; |
6773 |
|
{register object V694; |
6774 |
|
register int V695; |
6775 |
|
V694=(base[0]); |
6776 |
|
V695=fix(base[1]); |
6777 |
|
vs_top=sup; |
6778 |
|
TTL:; |
6779 |
|
T2733:; |
6780 |
|
if(!((V695)<=(4))){ |
6781 |
|
goto T2734;}switch(V695){ |
6782 |
|
case 1: |
6783 |
|
T2740:; |
6784 |
|
V696= VV[10]; |
6785 |
|
goto T2738; |
6786 |
|
case 2: |
6787 |
|
T2741:; |
6788 |
|
V696= VV[15]; |
6789 |
|
goto T2738; |
6790 |
|
case 3: |
6791 |
|
T2742:; |
6792 |
|
V696= VV[16]; |
6793 |
|
goto T2738; |
6794 |
|
case 4: |
6795 |
|
T2743:; |
6796 |
|
V696= VV[17]; |
6797 |
|
goto T2738; |
6798 |
|
default: |
6799 |
|
T2744:; |
6800 |
|
V696= Cnil; |
6801 |
|
goto T2738;} |
6802 |
|
V696= Cnil; |
6803 |
|
T2738:; |
6804 |
|
V694= list(2,V696,(V694)); |
6805 |
|
base[2]= (V694); |
6806 |
|
vs_top=(vs_base=base+2)+1; |
6807 |
|
return; |
6808 |
|
T2734:; |
6809 |
|
V694= list(2,VV[17],(V694)); |
6810 |
|
V695= (V695)-(4); |
6811 |
|
goto T2733; |
6812 |
|
} |
6813 |
|
} |
6814 |
|
static LnkT396(){ call_or_link(VV[396],&Lnk396);} /* LOOP-STANDARD-EXPANSION */ |
6815 |
|
static LnkT395(){ call_or_link(VV[395],&Lnk395);} /* LOOP-TRANSLATE */ |
6816 |
|
static LnkT394(){ call_or_link(VV[394],&Lnk394);} /* ADD-LOOP-PATH */ |
6817 |
|
static LnkT393(){ call_or_link(VV[393],&Lnk393);} /* MAKE-STANDARD-LOOP-UNIVERSE */ |
6818 |
|
static LnkT390(){ call_or_link(VV[390],&Lnk390);} /* NAMED-VARIABLE */ |
6819 |
|
static LnkT385(){ call_or_link(VV[385],&Lnk385);} /* LOOP-SEQUENCER */ |
6820 |
|
static LnkT382(){ call_or_link(VV[382],&Lnk382);} /* DELETE */ |
6821 |
|
static LnkT381(){ call_or_link(VV[381],&Lnk381);} /* LOOP-TASSOC */ |
6822 |
|
static LnkT380(){ call_or_link(VV[380],&Lnk380);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
6823 |
|
static LnkT379(){ call_or_link(VV[379],&Lnk379);} /* MAKE-LOOP-PATH */ |
6824 |
|
static LnkT378(){ call_or_link(VV[378],&Lnk378);} /* STRUCTURE-SUBTYPE-P */ |
6825 |
|
static LnkT377(){ call_or_link(VV[377],&Lnk377);} /* LOOP-LIST-STEP */ |
6826 |
|
static LnkT376(){ call_or_link(VV[376],&Lnk376);} /* LOOP-MAKE-ITERATION-VARIABLE */ |
6827 |
|
static LnkT375(){ call_or_link(VV[375],&Lnk375);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */ |
6828 |
|
static LnkT374(){ call_or_link(VV[374],&Lnk374);} /* LOOP-WHEN-IT-VARIABLE */ |
6829 |
|
static LnkT373(){ call_or_link(VV[373],&Lnk373);} /* LOOP-NOTE-MINIMAX-OPERATION */ |
6830 |
|
static LnkT372(){ call_or_link(VV[372],&Lnk372);} /* MAKE-LOOP-MINIMAX */ |
6831 |
|
static LnkT371(){ call_or_link(VV[371],&Lnk371);} /* LOOP-CHECK-DATA-TYPE */ |
6832 |
|
static LnkT368(){ call_or_link(VV[368],&Lnk368);} /* LOOP-EMIT-FINAL-VALUE */ |
6833 |
|
static LnkT367(){ call_or_link(VV[367],&Lnk367);} /* LOOP-GET-COLLECTION-INFO */ |
6834 |
|
static LnkT366(){ call_or_link(VV[366],&Lnk366);} /* MAKE-LOOP-COLLECTOR */ |
6835 |
|
static LnkT365(){ call_or_link(VV[365],&Lnk365);} /* FIND */ |
6836 |
|
static LnkT363(){ call_or_link(VV[363],&Lnk363);} /* LOOP-OPTIONAL-TYPE */ |
6837 |
|
static LnkT360(){ call_or_link(VV[360],&Lnk360);} /* LOOP-EMIT-BODY */ |
6838 |
|
static LnkT359(){ call_or_link(VV[359],&Lnk359);} /* LOOP-GET-PROGN */ |
6839 |
|
static LnkT358(){ call_or_link(VV[358],&Lnk358);} /* LOOP-DISALLOW-CONDITIONAL */ |
6840 |
|
static LnkT357(){ call_or_link(VV[357],&Lnk357);} /* LOOP-GET-FORM */ |
6841 |
|
static LnkT356(){ call_or_link(VV[356],&Lnk356);} /* LOOP-CONSTANTP */ |
6842 |
|
static LnkT355(){ call_or_link(VV[355],&Lnk355);} /* LOOP-MAKE-VARIABLE */ |
6843 |
|
static LnkT354(){ call_or_link(VV[354],&Lnk354);} /* LOOP-DECLARE-VARIABLE */ |
6844 |
|
static LnkT353(){ call_or_link(VV[353],&Lnk353);} /* LOOP-TEQUAL */ |
6845 |
|
static LnkT352(){ call_or_link(VV[352],&Lnk352);} /* COERCE */ |
6846 |
|
static LnkT351(){ call_or_link(VV[351],&Lnk351);} /* LOOP-CONSTRUCT-RETURN */ |
6847 |
|
static LnkT350(){ call_or_link(VV[350],&Lnk350);} /* LOOP-PSEUDO-BODY */ |
6848 |
|
static LnkT349(){ call_or_link(VV[349],&Lnk349);} /* LOOP-TMEMBER */ |
6849 |
|
static LnkT348(){ call_or_link(VV[348],&Lnk348);} /* LOOP-HACK-ITERATION */ |
6850 |
|
static LnkT347(){ call_or_link(VV[347],&Lnk347);} /* LOOP-LOOKUP-KEYWORD */ |
6851 |
|
static LnkT346(){ call_or_link(VV[346],&Lnk346);} /* LOOP-POP-SOURCE */ |
6852 |
|
static LnkT345(){ call_or_link(VV[345],&Lnk345);} /* LOOP-BIND-BLOCK */ |
6853 |
|
static LnkT344(){ call_or_link(VV[344],&Lnk344);} /* LOOP-ITERATION-DRIVER */ |
6854 |
|
static LnkT343(){ call_or_link(VV[343],&Lnk343);} /* LOOP-ERROR */ |
6855 |
|
static LnkT323(){ call_or_link(VV[323],&Lnk323);} /* SUBTYPEP */ |
6856 |
|
static LnkT342(){ call_or_link(VV[342],&Lnk342);} /* WARN */ |
6857 |
|
static LnkT341(){ call_or_link(VV[341],&Lnk341);} /* LOOP-CONTEXT */ |
6858 |
|
static LnkT340(){ call_or_link(VV[340],&Lnk340);} /* SPECIAL-OPERATOR-P */ |
6859 |
|
static LnkT339(){ call_or_link(VV[339],&Lnk339);} /* ESTIMATE-CODE-SIZE-1 */ |
6860 |
|
static LnkT338(){ call_or_link(VV[338],&Lnk338);} /* DESTRUCTURING-SIZE */ |
6861 |
|
static LnkT77(){ call_or_link(VV[77],&Lnk77);} /* ESTIMATE-CODE-SIZE */ |
6862 |
|
static LnkT337(){ call_or_link(VV[337],&Lnk337);} /* LOOP-CODE-DUPLICATION-THRESHOLD */ |
6863 |
|
static LnkT336(){ call_or_link(VV[336],&Lnk336);} /* LOOP-OPTIMIZATION-QUANTITIES */ |
6864 |
|
static LnkT335(){ call_or_link(VV[335],&Lnk335);} /* LOOP-WARN */ |
6865 |
|
static LnkT334(){ call_or_link(VV[334],&Lnk334);} /* LOOP-MAKE-DESETQ */ |
6866 |
|
static LnkT333(){ call_or_link(VV[333],&Lnk333);} /* LOOP-MAKE-PSETQ */ |
6867 |
|
static LnkT332(){ call_or_link(VV[332],&Lnk332);} /* MAKE-LOOP-UNIVERSE */ |
6868 |
|
static LnkT330(){ call_or_link(VV[330],&Lnk330);} /* TYPEP */ |
6869 |
|
static LnkT328(){ call_or_link(VV[328],&Lnk328);} /* HIDE-VARIABLE-REFERENCE */ |
6870 |
|
static LnkT326(){ call_or_link(VV[326],&Lnk326);} /* LOOP-TYPED-INIT */ |
6871 |
|
static LnkT325(){ call_or_link(VV[325],&Lnk325);} /* MAKE-LOOP-MINIMAX-INTERNAL */ |
6872 |
|
static LnkT324(){ call_or_link(VV[324],&Lnk324);} /* LOOP-GENTEMP */ |