4 |
void init_defstruct(){do_init(VV);} |
void init_defstruct(){do_init(VV);} |
5 |
/* local entry for function MAKE-ACCESS-FUNCTION */ |
/* local entry for function MAKE-ACCESS-FUNCTION */ |
6 |
|
|
7 |
static object LI1(object V11,object V10,object V9,object V8,object V7,object V6,object V5,object V4,object V3,object V2,object V1,object first,...) |
static object LI1(object V12,object V11,object V10,object V9,object V8,object V7,object V6,object V5,object V4,object V3,object V2,object V1,object first,...) |
8 |
{ |
{ |
9 |
va_list ap; |
va_list ap; |
10 |
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
11 |
{object V12; |
{object V13; |
|
object V13; |
|
12 |
object V14; |
object V14; |
13 |
object V15; |
object V15; |
14 |
object V16; |
object V16; |
18 |
object V20; |
object V20; |
19 |
object V21; |
object V21; |
20 |
object V22; |
object V22; |
21 |
|
object V23; |
22 |
|
object V24; |
23 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
24 |
va_start(ap,first); |
va_start(ap,first); |
25 |
if(narg <11) too_few_arguments(); |
if(narg <12) too_few_arguments(); |
26 |
V12= V11; |
V13= V12; |
27 |
V13= V10; |
V14= V11; |
28 |
V14= V9; |
V15= V10; |
29 |
V15= V8; |
V16= V9; |
30 |
V16= V7; |
V17= V8; |
31 |
V17= V6; |
V18= V7; |
32 |
V18= V5; |
V19= V6; |
33 |
V19= V4; |
V20= V5; |
34 |
V20= V3; |
V21= V4; |
35 |
V21= V2; |
V22= V3; |
36 |
Vcs[10]=MMcons(V1,Cnil); |
V23= V2; |
37 |
narg = narg - 11; |
Vcs[11]=MMcons(V1,Cnil); |
38 |
|
narg = narg - 12; |
39 |
if (narg <= 0) goto T1; |
if (narg <= 0) goto T1; |
40 |
else { |
else { |
41 |
V22= first;} |
V24= first;} |
42 |
--narg; goto T2; |
--narg; goto T2; |
43 |
goto T1; |
goto T1; |
44 |
T1:; |
T1:; |
45 |
V22= Cnil; |
V24= Cnil; |
46 |
goto T2; |
goto T2; |
47 |
T2:; |
T2:; |
48 |
{register object V23; |
{register object V25; |
49 |
register object V24; |
register object V26; |
50 |
object V25; |
object V27; |
51 |
base[1]= coerce_to_string((V13)); |
if(((V15))==Cnil){ |
52 |
base[2]= coerce_to_string((V18)); |
goto T6;} |
53 |
|
V25= (V20); |
54 |
|
goto T4; |
55 |
|
goto T6; |
56 |
|
T6:; |
57 |
|
base[1]= coerce_to_string((V14)); |
58 |
|
base[2]= coerce_to_string((V20)); |
59 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
60 |
(void) (*Lnk107)(); |
(void) (*Lnk108)(); |
61 |
vs_top=sup; |
vs_top=sup; |
62 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
63 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
64 |
Lintern(); |
Lintern(); |
65 |
vs_top=sup; |
vs_top=sup; |
66 |
V23= vs_base[0]; |
V25= vs_base[0]; |
67 |
V24= Cnil; |
goto T4; |
68 |
V25= Cnil; |
T4:; |
69 |
{object V26= (V14); |
V26= Cnil; |
70 |
if((V26!= Cnil))goto T9; |
V27= Cnil; |
71 |
V24= symbol_value(VV[0]); |
{object V28= (V16); |
72 |
goto T8; |
if((V28!= Cnil))goto T12; |
73 |
goto T9; |
V26= symbol_value(VV[0]); |
74 |
T9:; |
goto T11; |
75 |
if((V26!= VV[20]))goto T11; |
goto T12; |
76 |
V24= symbol_value(VV[1]); |
T12:; |
77 |
goto T8; |
if((V28!= VV[20]))goto T14; |
78 |
goto T11; |
V26= symbol_value(VV[1]); |
79 |
T11:; |
goto T11; |
80 |
if((V26!= VV[19]))goto T13; |
goto T14; |
81 |
V24= symbol_value(VV[2]); |
T14:; |
82 |
goto T8; |
if((V28!= VV[19]))goto T16; |
83 |
goto T13; |
V26= symbol_value(VV[2]); |
84 |
T13:; |
goto T11; |
|
FEerror("The ECASE key value ~s is illegal.",1,V26); |
|
|
goto T8;} |
|
|
goto T8; |
|
|
T8:; |
|
|
V27 = make_fixnum((long)length((V24))); |
|
|
if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){ |
|
|
goto T16;} |
|
|
goto T15; |
|
85 |
goto T16; |
goto T16; |
86 |
T16:; |
T16:; |
87 |
V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10)); |
FEerror("The ECASE key value ~s is illegal.",1,V28); |
88 |
(void)((VFUN_NARGS=2,(*(LnkLI108))((V24),/* INLINE-ARGS */V28))); |
goto T11;} |
89 |
goto T15; |
goto T11; |
90 |
T15:; |
T11:; |
91 |
if(((V25))!=Cnil){ |
V29 = make_fixnum((long)length((V26))); |
92 |
goto T18;} |
if(!(number_compare(V29,(Vcs[11]->c.c_car))>0)){ |
93 |
base[0]= (V23); |
goto T19;} |
94 |
|
goto T18; |
95 |
|
goto T19; |
96 |
|
T19:; |
97 |
|
V30= number_plus((Vcs[11]->c.c_car),small_fixnum(10)); |
98 |
|
(void)((VFUN_NARGS=2,(*(LnkLI109))((V26),/* INLINE-ARGS */V30))); |
99 |
|
goto T18; |
100 |
|
T18:; |
101 |
|
if(((V27))!=Cnil){ |
102 |
|
goto T21;} |
103 |
|
base[0]= (V25); |
104 |
base[1]= VV[3]; |
base[1]= VV[3]; |
105 |
base[2]= VV[4]; |
base[2]= VV[4]; |
106 |
base[3]= (V20); |
base[3]= (V22); |
107 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
108 |
(void) (*Lnk109)(); |
(void) (*Lnk110)(); |
109 |
vs_top=sup; |
vs_top=sup; |
110 |
if((V17)!=Cnil){ |
if((V19)!=Cnil){ |
111 |
goto T18;}{object V29; |
goto T21;}{object V31; |
112 |
base[0]= (V23); |
base[0]= (V25); |
113 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
114 |
Lfboundp(); |
Lfboundp(); |
115 |
vs_top=sup; |
vs_top=sup; |
116 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
117 |
goto T28;} |
goto T31;} |
118 |
V29= Cnil; |
V31= Cnil; |
119 |
goto T27; |
goto T30; |
120 |
goto T28; |
goto T31; |
121 |
T28:; |
T31:; |
122 |
V30= aref1((V24),fixint((Vcs[10]->c.c_car))); |
V32= aref1((V26),fixint((Vcs[11]->c.c_car))); |
123 |
base[0]= (V23); |
base[0]= (V25); |
124 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
125 |
Lsymbol_function(); |
Lsymbol_function(); |
126 |
vs_top=sup; |
vs_top=sup; |
127 |
V31= vs_base[0]; |
V33= vs_base[0]; |
128 |
V29= ((/* INLINE-ARGS */V30)==(V31)?Ct:Cnil); |
V31= ((/* INLINE-ARGS */V32)==(V33)?Ct:Cnil); |
129 |
goto T27; |
goto T30; |
130 |
T27:; |
T30:; |
131 |
if(V29==Cnil)goto T26; |
if(V31==Cnil)goto T29; |
132 |
goto T18; |
goto T21; |
133 |
goto T26; |
goto T29; |
134 |
T26:;} |
T29:;} |
135 |
base[0]= (V23);{object V32; |
base[0]= (V25);{object V34; |
136 |
V32= aref1((V24),fixint((Vcs[10]->c.c_car))); |
V34= aref1((V26),fixint((Vcs[11]->c.c_car))); |
137 |
if(V32==Cnil)goto T35; |
if(V34==Cnil)goto T38; |
138 |
base[1]= V32; |
base[1]= V34; |
|
goto T34; |
|
|
goto T35; |
|
|
T35:;} |
|
|
if(!(((V24))==(symbol_value(VV[0])))){ |
|
|
goto T39;} |
|
|
V33= |
|
|
make_cclosure_new(LC16,Cnil,Vcs[10],Cdata); |
|
139 |
goto T37; |
goto T37; |
140 |
goto T39; |
goto T38; |
141 |
T39:; |
T38:;} |
142 |
if(!(((V24))==(symbol_value(VV[1])))){ |
if(!(((V26))==(symbol_value(VV[0])))){ |
143 |
goto T42;} |
goto T42;} |
144 |
V33= |
V35= |
145 |
make_cclosure_new(LC17,Cnil,Vcs[10],Cdata); |
make_cclosure_new(LC16,Cnil,Vcs[11],Cdata); |
146 |
goto T37; |
goto T40; |
147 |
goto T42; |
goto T42; |
148 |
T42:; |
T42:; |
149 |
if(!(((V24))==(symbol_value(VV[2])))){ |
if(!(((V26))==(symbol_value(VV[1])))){ |
150 |
goto T45;} |
goto T45;} |
151 |
V33= |
V35= |
152 |
make_cclosure_new(LC18,Cnil,Vcs[10],Cdata); |
make_cclosure_new(LC17,Cnil,Vcs[11],Cdata); |
153 |
goto T37; |
goto T40; |
154 |
goto T45; |
goto T45; |
155 |
T45:; |
T45:; |
156 |
V33= Cnil; |
if(!(((V26))==(symbol_value(VV[2])))){ |
157 |
|
goto T48;} |
158 |
|
V35= |
159 |
|
make_cclosure_new(LC18,Cnil,Vcs[11],Cdata); |
160 |
|
goto T40; |
161 |
|
goto T48; |
162 |
|
T48:; |
163 |
|
V35= Cnil; |
164 |
|
goto T40; |
165 |
|
T40:; |
166 |
|
base[1]= aset1((V26),fixint((Vcs[11]->c.c_car)),V35); |
167 |
goto T37; |
goto T37; |
168 |
T37:; |
T37:; |
|
base[1]= aset1((V24),fixint((Vcs[10]->c.c_car)),V33); |
|
|
goto T34; |
|
|
T34:; |
|
169 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
170 |
siLfset(); |
siLfset(); |
171 |
vs_top=sup; |
vs_top=sup; |
172 |
goto T18; |
goto T21; |
173 |
T18:; |
T21:; |
174 |
if(((V21))==Cnil){ |
if(((V23))==Cnil){ |
175 |
goto T49;} |
goto T52;} |
176 |
(void)(remprop((V23),VV[6])); |
(void)(remprop((V25),VV[6])); |
177 |
(void)(sputprop((V23),VV[7],Ct)); |
(void)(sputprop((V25),VV[7],Ct)); |
178 |
goto T47; |
goto T50; |
179 |
goto T49; |
goto T52; |
180 |
T49:; |
T52:; |
181 |
(void)(remprop((V23),VV[8])); |
(void)(remprop((V25),VV[8])); |
182 |
(void)(remprop((V23),VV[9])); |
(void)(remprop((V25),VV[9])); |
183 |
(void)(remprop((V23),VV[10])); |
(void)(remprop((V25),VV[10])); |
184 |
{object V34; |
{object V36; |
185 |
V34= get((V23),VV[6],Cnil); |
V36= get((V25),VV[6],Cnil); |
186 |
if(!(type_of((V34))==t_cons)){ |
if(!(type_of((V36))==t_cons)){ |
187 |
goto T57;} |
goto T60;} |
188 |
if(((V16))==Cnil){ |
if(((V18))==Cnil){ |
189 |
goto T57;} |
goto T60;} |
190 |
base[0]= (V16); |
base[0]= (V18); |
191 |
base[1]= car((V34)); |
base[1]= car((V36)); |
192 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
193 |
(void) (*Lnk110)(); |
(void) (*Lnk111)(); |
194 |
vs_top=sup; |
vs_top=sup; |
195 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
196 |
goto T57;} |
goto T60;} |
197 |
if(!(eql(cdr((V34)),(Vcs[10]->c.c_car)))){ |
if(!(eql(cdr((V36)),(Vcs[11]->c.c_car)))){ |
198 |
goto T57;} |
goto T60;} |
199 |
V25= Ct; |
V27= Ct; |
200 |
goto T47; |
goto T50; |
201 |
goto T57; |
goto T60; |
202 |
T57:; |
T60:; |
203 |
if(((V14))==Cnil){ |
if(((V16))==Cnil){ |
204 |
goto T70;} |
goto T73;} |
205 |
V35= (V14); |
V37= (V16); |
206 |
goto T68; |
goto T71; |
207 |
goto T70; |
goto T73; |
208 |
T70:; |
T73:; |
209 |
V35= (V12); |
V37= (V13); |
210 |
goto T68; |
goto T71; |
211 |
T68:; |
T71:; |
212 |
V36= make_cons(V35,(Vcs[10]->c.c_car)); |
V38= make_cons(V37,(Vcs[11]->c.c_car)); |
213 |
(void)(sputprop((V23),VV[6],/* INLINE-ARGS */V36));} |
(void)(sputprop((V25),VV[6],/* INLINE-ARGS */V38));} |
214 |
goto T47; |
goto T50; |
215 |
T47:; |
T50:; |
216 |
{object V37 = Cnil; |
{object V39 = Cnil; |
217 |
VMR1(V37)}} |
VMR1(V39)}} |
218 |
va_end(ap); |
va_end(ap); |
219 |
base[0]=base[0]; |
base[0]=base[0]; |
220 |
return Cnil;} |
return Cnil;} |
221 |
} |
} |
222 |
/* local entry for function MAKE-CONSTRUCTOR */ |
/* local entry for function MAKE-CONSTRUCTOR */ |
223 |
|
|
224 |
static object LI2(V43,V44,V45,V46,V47) |
static object LI2(V45,V46,V47,V48,V49) |
225 |
|
|
226 |
object V43;object V44;object V45;object V46;object V47; |
object V45;object V46;object V47;object V48;object V49; |
227 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
228 |
goto TTL; |
goto TTL; |
229 |
TTL:; |
TTL:; |
|
{object V48; |
|
|
register object V49; |
|
230 |
{object V50; |
{object V50; |
231 |
object V51= (V47); |
register object V51; |
232 |
if(endp(V51)){ |
{object V52; |
233 |
V48= Cnil; |
object V53= (V49); |
234 |
goto T72;} |
if(endp(V53)){ |
235 |
base[0]=V50=MMcons(Cnil,Cnil); |
V50= Cnil; |
236 |
goto T73; |
goto T75;} |
237 |
T73:; |
base[0]=V52=MMcons(Cnil,Cnil); |
|
if(((V51->c.c_car))!=Cnil){ |
|
|
goto T76;} |
|
|
(V50->c.c_car)= Cnil; |
|
|
goto T74; |
|
238 |
goto T76; |
goto T76; |
239 |
T76:; |
T76:; |
240 |
if((car((V51->c.c_car)))!=Cnil){ |
if(((V53->c.c_car))!=Cnil){ |
241 |
goto T79;} |
goto T79;} |
242 |
(V50->c.c_car)= list(2,VV[11],cadr((V51->c.c_car))); |
(V52->c.c_car)= Cnil; |
243 |
goto T74; |
goto T77; |
244 |
goto T79; |
goto T79; |
245 |
T79:; |
T79:; |
246 |
(V50->c.c_car)= car((V51->c.c_car)); |
if((car((V53->c.c_car)))!=Cnil){ |
247 |
goto T74; |
goto T82;} |
248 |
T74:; |
(V52->c.c_car)= list(2,VV[11],cadr((V53->c.c_car))); |
249 |
V51=MMcdr(V51); |
goto T77; |
|
if(endp(V51)){ |
|
|
V48= base[0]; |
|
|
goto T72;} |
|
|
V50=MMcdr(V50)=MMcons(Cnil,Cnil); |
|
|
goto T73;} |
|
|
goto T72; |
|
|
T72:; |
|
|
{object V53; |
|
|
object V54= (V47); |
|
|
if(endp(V54)){ |
|
|
V49= Cnil; |
|
|
goto T81;} |
|
|
base[0]=V53=MMcons(Cnil,Cnil); |
|
250 |
goto T82; |
goto T82; |
251 |
T82:; |
T82:; |
252 |
if(((V54->c.c_car))!=Cnil){ |
(V52->c.c_car)= car((V53->c.c_car)); |
253 |
goto T85;} |
goto T77; |
254 |
(V53->c.c_cdr)= Cnil; |
T77:; |
255 |
goto T83; |
V53=MMcdr(V53); |
256 |
|
if(endp(V53)){ |
257 |
|
V50= base[0]; |
258 |
|
goto T75;} |
259 |
|
V52=MMcdr(V52)=MMcons(Cnil,Cnil); |
260 |
|
goto T76;} |
261 |
|
goto T75; |
262 |
|
T75:; |
263 |
|
{object V55; |
264 |
|
object V56= (V49); |
265 |
|
if(endp(V56)){ |
266 |
|
V51= Cnil; |
267 |
|
goto T84;} |
268 |
|
base[0]=V55=MMcons(Cnil,Cnil); |
269 |
goto T85; |
goto T85; |
270 |
T85:; |
T85:; |
271 |
if((car((V54->c.c_car)))!=Cnil){ |
if(((V56->c.c_car))!=Cnil){ |
272 |
goto T88;} |
goto T88;} |
273 |
(V53->c.c_cdr)= Cnil; |
(V55->c.c_cdr)= Cnil; |
274 |
goto T83; |
goto T86; |
275 |
goto T88; |
goto T88; |
276 |
T88:; |
T88:; |
277 |
if((cadr((V54->c.c_car)))!=Cnil){ |
if((car((V56->c.c_car)))!=Cnil){ |
278 |
goto T91;} |
goto T91;} |
279 |
(V53->c.c_cdr)= make_cons(car((V54->c.c_car)),Cnil); |
(V55->c.c_cdr)= Cnil; |
280 |
goto T83; |
goto T86; |
281 |
goto T91; |
goto T91; |
282 |
T91:; |
T91:; |
283 |
V56= list(2,car((V54->c.c_car)),cadr((V54->c.c_car))); |
if((cadr((V56->c.c_car)))!=Cnil){ |
284 |
(V53->c.c_cdr)= make_cons(/* INLINE-ARGS */V56,Cnil); |
goto T94;} |
285 |
goto T83; |
(V55->c.c_cdr)= make_cons(car((V56->c.c_car)),Cnil); |
286 |
T83:; |
goto T86; |
287 |
{object cdr_V53=MMcdr(V53);while(!endp(cdr_V53)) {cdr_V53=MMcdr(cdr_V53);V53=MMcdr(V53);}} |
goto T94; |
288 |
V54=MMcdr(V54); |
T94:; |
289 |
if(endp(V54)){ |
V58= list(2,car((V56->c.c_car)),cadr((V56->c.c_car))); |
290 |
|
(V55->c.c_cdr)= make_cons(/* INLINE-ARGS */V58,Cnil); |
291 |
|
goto T86; |
292 |
|
T86:; |
293 |
|
{object cdr_V55=MMcdr(V55);while(!endp(cdr_V55)) {cdr_V55=MMcdr(cdr_V55);V55=MMcdr(V55);}} |
294 |
|
V56=MMcdr(V56); |
295 |
|
if(endp(V56)){ |
296 |
base[0]=base[0]->c.c_cdr; |
base[0]=base[0]->c.c_cdr; |
297 |
V49= base[0]; |
V51= base[0]; |
298 |
goto T81;} |
goto T84;} |
299 |
goto T82;} |
goto T85;} |
300 |
goto T81; |
goto T84; |
301 |
T81:; |
T84:; |
302 |
if(!(type_of((V44))==t_cons)){ |
if(!(type_of((V46))==t_cons)){ |
303 |
goto T95;} |
goto T98;} |
304 |
{register object V57; |
{register object V59; |
305 |
register object V58; |
register object V60; |
306 |
register object V59; |
register object V61; |
307 |
V57= cadr((V44)); |
V59= cadr((V46)); |
308 |
V58= Cnil; |
V60= Cnil; |
309 |
V59= Cnil; |
V61= Cnil; |
310 |
goto T100; |
goto T103; |
311 |
T100:; |
T103:; |
312 |
if(!(endp_prop((V57)))){ |
if(!(endp_prop((V59)))){ |
313 |
goto T101;} |
goto T104;} |
314 |
base[0]= make_cons(VV[12],(V58)); |
base[0]= make_cons(VV[12],(V60)); |
315 |
{object V60; |
{object V62; |
316 |
object V61= (V49); |
object V63= (V51); |
317 |
if(endp(V61)){ |
if(endp(V63)){ |
318 |
base[1]= Cnil; |
base[1]= Cnil; |
319 |
goto T106;} |
goto T109;} |
320 |
base[2]=V60=MMcons(Cnil,Cnil); |
base[2]=V62=MMcons(Cnil,Cnil); |
321 |
goto T107; |
goto T110; |
322 |
T107:; |
T110:; |
323 |
if(!(type_of((V61->c.c_car))!=t_cons)){ |
if(!(type_of((V63->c.c_car))!=t_cons)){ |
324 |
goto T114;} |
goto T117;} |
325 |
V64= (V61->c.c_car); |
V66= (V63->c.c_car); |
326 |
goto T112; |
goto T115; |
327 |
|
goto T117; |
328 |
|
T117:; |
329 |
|
V66= car((V63->c.c_car)); |
330 |
|
goto T115; |
331 |
|
T115:; |
332 |
|
{register object x= V66,V65= (V61); |
333 |
|
while(!endp(V65)) |
334 |
|
if(eql(x,V65->c.c_car)){ |
335 |
|
goto T114; |
336 |
|
}else V65=V65->c.c_cdr; |
337 |
|
goto T113;} |
338 |
goto T114; |
goto T114; |
339 |
T114:; |
T114:; |
340 |
V64= car((V61->c.c_car)); |
(V62->c.c_cdr)= Cnil; |
|
goto T112; |
|
|
T112:; |
|
|
{register object x= V64,V63= (V59); |
|
|
while(!endp(V63)) |
|
|
if(eql(x,V63->c.c_car)){ |
|
341 |
goto T111; |
goto T111; |
342 |
}else V63=V63->c.c_cdr; |
goto T113; |
343 |
goto T110;} |
T113:; |
344 |
|
(V62->c.c_cdr)= make_cons((V63->c.c_car),Cnil); |
345 |
goto T111; |
goto T111; |
346 |
T111:; |
T111:; |
347 |
(V60->c.c_cdr)= Cnil; |
{object cdr_V62=MMcdr(V62);while(!endp(cdr_V62)) {cdr_V62=MMcdr(cdr_V62);V62=MMcdr(V62);}} |
348 |
goto T108; |
V63=MMcdr(V63); |
349 |
goto T110; |
if(endp(V63)){ |
|
T110:; |
|
|
(V60->c.c_cdr)= make_cons((V61->c.c_car),Cnil); |
|
|
goto T108; |
|
|
T108:; |
|
|
{object cdr_V60=MMcdr(V60);while(!endp(cdr_V60)) {cdr_V60=MMcdr(cdr_V60);V60=MMcdr(V60);}} |
|
|
V61=MMcdr(V61); |
|
|
if(endp(V61)){ |
|
350 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
351 |
base[1]= base[2]; |
base[1]= base[2]; |
352 |
goto T106;} |
goto T109;} |
353 |
goto T107;} |
goto T110;} |
354 |
goto T106; |
goto T109; |
355 |
T106:; |
T109:; |
356 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
357 |
Lreconc(); |
Lreconc(); |
358 |
vs_top=sup; |
vs_top=sup; |
359 |
V49= vs_base[0]; |
V51= vs_base[0]; |
360 |
goto T97; |
goto T100; |
361 |
goto T101; |
goto T104; |
362 |
T101:; |
T104:; |
363 |
{register object x= car((V57)),V65= VV[13]; |
{register object x= car((V59)),V67= VV[13]; |
364 |
while(!endp(V65)) |
while(!endp(V67)) |
365 |
if(eql(x,V65->c.c_car)){ |
if(eql(x,V67->c.c_car)){ |
366 |
goto T119; |
goto T122; |
367 |
}else V65=V65->c.c_cdr; |
}else V67=V67->c.c_cdr; |
|
goto T117;} |
|
|
goto T119; |
|
|
T119:; |
|
|
if(!((car((V57)))==(VV[14]))){ |
|
368 |
goto T120;} |
goto T120;} |
369 |
goto T117; |
goto T122; |
370 |
|
T122:; |
371 |
|
if(!((car((V59)))==(VV[14]))){ |
372 |
|
goto T123;} |
373 |
|
goto T120; |
374 |
|
goto T123; |
375 |
|
T123:; |
376 |
|
V59= make_cons(VV[14],(V59)); |
377 |
goto T120; |
goto T120; |
378 |
T120:; |
T120:; |
379 |
V57= make_cons(VV[14],(V57)); |
if(!((car((V59)))==(VV[14]))){ |
380 |
goto T117; |
goto T128;} |
381 |
T117:; |
V60= make_cons(VV[14],(V60)); |
382 |
if(!((car((V57)))==(VV[14]))){ |
{register object V69; |
383 |
goto T125;} |
object V70; |
384 |
V58= make_cons(VV[14],(V58)); |
object V71; |
385 |
{register object V67; |
V69= cdr((V59)); |
386 |
object V68; |
V70= Cnil; |
387 |
object V69; |
V71= Cnil; |
388 |
V67= cdr((V57)); |
goto T135; |
389 |
V68= Cnil; |
T135:; |
390 |
V69= Cnil; |
if(!(endp_prop((V69)))){ |
391 |
goto T132; |
goto T136;} |
392 |
T132:; |
base[0]= make_cons(VV[12],(V60)); |
393 |
if(!(endp_prop((V67)))){ |
{object V72; |
394 |
goto T133;} |
object V73= (V51); |
395 |
base[0]= make_cons(VV[12],(V58)); |
if(endp(V73)){ |
|
{object V70; |
|
|
object V71= (V49); |
|
|
if(endp(V71)){ |
|
396 |
base[1]= Cnil; |
base[1]= Cnil; |
397 |
goto T139;} |
goto T142;} |
398 |
base[2]=V70=MMcons(Cnil,Cnil); |
base[2]=V72=MMcons(Cnil,Cnil); |
399 |
goto T140; |
goto T143; |
400 |
T140:; |
T143:; |
401 |
if(!(type_of((V71->c.c_car))!=t_cons)){ |
if(!(type_of((V73->c.c_car))!=t_cons)){ |
402 |
goto T147;} |
goto T150;} |
403 |
V74= (V71->c.c_car); |
V76= (V73->c.c_car); |
404 |
goto T145; |
goto T148; |
405 |
|
goto T150; |
406 |
|
T150:; |
407 |
|
V76= car((V73->c.c_car)); |
408 |
|
goto T148; |
409 |
|
T148:; |
410 |
|
{register object x= V76,V75= (V61); |
411 |
|
while(!endp(V75)) |
412 |
|
if(eql(x,V75->c.c_car)){ |
413 |
|
goto T147; |
414 |
|
}else V75=V75->c.c_cdr; |
415 |
|
goto T146;} |
416 |
goto T147; |
goto T147; |
417 |
T147:; |
T147:; |
418 |
V74= car((V71->c.c_car)); |
(V72->c.c_cdr)= Cnil; |
|
goto T145; |
|
|
T145:; |
|
|
{register object x= V74,V73= (V59); |
|
|
while(!endp(V73)) |
|
|
if(eql(x,V73->c.c_car)){ |
|
419 |
goto T144; |
goto T144; |
420 |
}else V73=V73->c.c_cdr; |
goto T146; |
421 |
goto T143;} |
T146:; |
422 |
|
(V72->c.c_cdr)= make_cons((V73->c.c_car),Cnil); |
423 |
goto T144; |
goto T144; |
424 |
T144:; |
T144:; |
425 |
(V70->c.c_cdr)= Cnil; |
{object cdr_V72=MMcdr(V72);while(!endp(cdr_V72)) {cdr_V72=MMcdr(cdr_V72);V72=MMcdr(V72);}} |
426 |
goto T141; |
V73=MMcdr(V73); |
427 |
goto T143; |
if(endp(V73)){ |
|
T143:; |
|
|
(V70->c.c_cdr)= make_cons((V71->c.c_car),Cnil); |
|
|
goto T141; |
|
|
T141:; |
|
|
{object cdr_V70=MMcdr(V70);while(!endp(cdr_V70)) {cdr_V70=MMcdr(cdr_V70);V70=MMcdr(V70);}} |
|
|
V71=MMcdr(V71); |
|
|
if(endp(V71)){ |
|
428 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
429 |
base[1]= base[2]; |
base[1]= base[2]; |
430 |
goto T139;} |
goto T142;} |
431 |
goto T140;} |
goto T143;} |
432 |
goto T139; |
goto T142; |
433 |
T139:; |
T142:; |
434 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
435 |
Lreconc(); |
Lreconc(); |
436 |
vs_top=sup; |
vs_top=sup; |
437 |
V49= vs_base[0]; |
V51= vs_base[0]; |
438 |
goto T129; |
goto T132; |
439 |
goto T133; |
goto T136; |
440 |
T133:; |
T136:; |
441 |
{register object x= car((V67)),V75= VV[13]; |
{register object x= car((V69)),V77= VV[13]; |
442 |
while(!endp(V75)) |
while(!endp(V77)) |
443 |
if(eql(x,V75->c.c_car)){ |
if(eql(x,V77->c.c_car)){ |
444 |
goto T152; |
goto T155; |
445 |
}else V75=V75->c.c_cdr; |
}else V77=V77->c.c_cdr; |
|
goto T150;} |
|
|
goto T152; |
|
|
T152:; |
|
|
if(!((car((V67)))==(VV[15]))){ |
|
446 |
goto T153;} |
goto T153;} |
447 |
V58= make_cons(VV[15],(V58)); |
goto T155; |
448 |
V67= cdr((V67)); |
T155:; |
449 |
if(endp_prop((V67))){ |
if(!((car((V69)))==(VV[15]))){ |
450 |
goto T161;} |
goto T156;} |
451 |
if(type_of(car((V67)))==t_symbol){ |
V60= make_cons(VV[15],(V60)); |
452 |
goto T160;} |
V69= cdr((V69)); |
453 |
goto T161; |
if(endp_prop((V69))){ |
454 |
T161:; |
goto T164;} |
455 |
(void)((*(LnkLI111))()); |
if(type_of(car((V69)))==t_symbol){ |
456 |
goto T160; |
goto T163;} |
457 |
T160:; |
goto T164; |
458 |
V59= make_cons(car((V67)),(V59)); |
T164:; |
459 |
V58= make_cons(car((V67)),(V58)); |
(void)((*(LnkLI112))()); |
460 |
V67= cdr((V67)); |
goto T163; |
461 |
if(!(endp_prop((V67)))){ |
T163:; |
462 |
goto T153;} |
V61= make_cons(car((V69)),(V61)); |
463 |
base[0]= make_cons(VV[12],(V58)); |
V60= make_cons(car((V69)),(V60)); |
464 |
{object V76; |
V69= cdr((V69)); |
465 |
object V77= (V49); |
if(!(endp_prop((V69)))){ |
466 |
if(endp(V77)){ |
goto T156;} |
467 |
|
base[0]= make_cons(VV[12],(V60)); |
468 |
|
{object V78; |
469 |
|
object V79= (V51); |
470 |
|
if(endp(V79)){ |
471 |
base[1]= Cnil; |
base[1]= Cnil; |
472 |
goto T176;} |
goto T179;} |
473 |
base[2]=V76=MMcons(Cnil,Cnil); |
base[2]=V78=MMcons(Cnil,Cnil); |
474 |
goto T177; |
goto T180; |
475 |
T177:; |
T180:; |
476 |
if(!(type_of((V77->c.c_car))!=t_cons)){ |
if(!(type_of((V79->c.c_car))!=t_cons)){ |
477 |
goto T184;} |
goto T187;} |
478 |
V80= (V77->c.c_car); |
V82= (V79->c.c_car); |
479 |
goto T182; |
goto T185; |
480 |
|
goto T187; |
481 |
|
T187:; |
482 |
|
V82= car((V79->c.c_car)); |
483 |
|
goto T185; |
484 |
|
T185:; |
485 |
|
{register object x= V82,V81= (V61); |
486 |
|
while(!endp(V81)) |
487 |
|
if(eql(x,V81->c.c_car)){ |
488 |
|
goto T184; |
489 |
|
}else V81=V81->c.c_cdr; |
490 |
|
goto T183;} |
491 |
goto T184; |
goto T184; |
492 |
T184:; |
T184:; |
493 |
V80= car((V77->c.c_car)); |
(V78->c.c_cdr)= Cnil; |
|
goto T182; |
|
|
T182:; |
|
|
{register object x= V80,V79= (V59); |
|
|
while(!endp(V79)) |
|
|
if(eql(x,V79->c.c_car)){ |
|
494 |
goto T181; |
goto T181; |
495 |
}else V79=V79->c.c_cdr; |
goto T183; |
496 |
goto T180;} |
T183:; |
497 |
|
(V78->c.c_cdr)= make_cons((V79->c.c_car),Cnil); |
498 |
goto T181; |
goto T181; |
499 |
T181:; |
T181:; |
500 |
(V76->c.c_cdr)= Cnil; |
{object cdr_V78=MMcdr(V78);while(!endp(cdr_V78)) {cdr_V78=MMcdr(cdr_V78);V78=MMcdr(V78);}} |
501 |
goto T178; |
V79=MMcdr(V79); |
502 |
goto T180; |
if(endp(V79)){ |
|
T180:; |
|
|
(V76->c.c_cdr)= make_cons((V77->c.c_car),Cnil); |
|
|
goto T178; |
|
|
T178:; |
|
|
{object cdr_V76=MMcdr(V76);while(!endp(cdr_V76)) {cdr_V76=MMcdr(cdr_V76);V76=MMcdr(V76);}} |
|
|
V77=MMcdr(V77); |
|
|
if(endp(V77)){ |
|
503 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
504 |
base[1]= base[2]; |
base[1]= base[2]; |
505 |
goto T176;} |
goto T179;} |
506 |
goto T177;} |
goto T180;} |
507 |
goto T176; |
goto T179; |
508 |
T176:; |
T179:; |
509 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
510 |
Lreconc(); |
Lreconc(); |
511 |
vs_top=sup; |
vs_top=sup; |
512 |
V49= vs_base[0]; |
V51= vs_base[0]; |
513 |
goto T129; |
goto T132; |
514 |
goto T153; |
goto T156; |
515 |
T153:; |
T156:; |
516 |
if((car((V67)))==(VV[12])){ |
if((car((V69)))==(VV[12])){ |
517 |
goto T186;} |
goto T189;} |
518 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI112))()); |
519 |
goto T186; |
goto T189; |
520 |
T186:; |
T189:; |
521 |
V58= make_cons(VV[12],(V58)); |
V60= make_cons(VV[12],(V60)); |
522 |
{register object V81; |
{register object V83; |
523 |
V81= cdr((V67)); |
V83= cdr((V69)); |
524 |
|
goto T197; |
525 |
|
T197:; |
526 |
|
if(!(endp_prop((V83)))){ |
527 |
|
goto T198;} |
528 |
|
goto T194; |
529 |
|
goto T198; |
530 |
|
T198:; |
531 |
|
V60= make_cons(car((V83)),(V60)); |
532 |
|
if(!(type_of(car((V83)))!=t_cons)){ |
533 |
|
goto T206;} |
534 |
|
if(!(type_of(car((V83)))==t_symbol)){ |
535 |
|
goto T206;} |
536 |
|
V61= make_cons(car((V83)),(V61)); |
537 |
|
goto T204; |
538 |
|
goto T206; |
539 |
|
T206:; |
540 |
|
if(!(type_of(caar((V83)))==t_symbol)){ |
541 |
|
goto T212;} |
542 |
|
if(endp_prop(cdar((V83)))){ |
543 |
|
goto T211;} |
544 |
|
if(!(endp_prop(cddar((V83))))){ |
545 |
|
goto T212;} |
546 |
|
goto T211; |
547 |
|
T211:; |
548 |
|
V61= make_cons(caar((V83)),(V61)); |
549 |
|
goto T204; |
550 |
|
goto T212; |
551 |
|
T212:; |
552 |
|
(void)((*(LnkLI112))()); |
553 |
|
goto T204; |
554 |
|
T204:; |
555 |
|
V83= cdr((V83)); |
556 |
|
goto T197;} |
557 |
goto T194; |
goto T194; |
558 |
T194:; |
T194:; |
559 |
if(!(endp_prop((V81)))){ |
base[0]= (V60); |
560 |
goto T195;} |
{object V84; |
561 |
goto T191; |
object V85= (V51); |
562 |
goto T195; |
if(endp(V85)){ |
|
T195:; |
|
|
V58= make_cons(car((V81)),(V58)); |
|
|
if(!(type_of(car((V81)))!=t_cons)){ |
|
|
goto T203;} |
|
|
if(!(type_of(car((V81)))==t_symbol)){ |
|
|
goto T203;} |
|
|
V59= make_cons(car((V81)),(V59)); |
|
|
goto T201; |
|
|
goto T203; |
|
|
T203:; |
|
|
if(!(type_of(caar((V81)))==t_symbol)){ |
|
|
goto T209;} |
|
|
if(endp_prop(cdar((V81)))){ |
|
|
goto T208;} |
|
|
if(!(endp_prop(cddar((V81))))){ |
|
|
goto T209;} |
|
|
goto T208; |
|
|
T208:; |
|
|
V59= make_cons(caar((V81)),(V59)); |
|
|
goto T201; |
|
|
goto T209; |
|
|
T209:; |
|
|
(void)((*(LnkLI111))()); |
|
|
goto T201; |
|
|
T201:; |
|
|
V81= cdr((V81)); |
|
|
goto T194;} |
|
|
goto T191; |
|
|
T191:; |
|
|
base[0]= (V58); |
|
|
{object V82; |
|
|
object V83= (V49); |
|
|
if(endp(V83)){ |
|
563 |
base[1]= Cnil; |
base[1]= Cnil; |
564 |
goto T222;} |
goto T225;} |
565 |
base[2]=V82=MMcons(Cnil,Cnil); |
base[2]=V84=MMcons(Cnil,Cnil); |
566 |
goto T223; |
goto T226; |
567 |
T223:; |
T226:; |
568 |
if(!(type_of((V83->c.c_car))!=t_cons)){ |
if(!(type_of((V85->c.c_car))!=t_cons)){ |
569 |
goto T230;} |
goto T233;} |
570 |
V86= (V83->c.c_car); |
V88= (V85->c.c_car); |
571 |
goto T228; |
goto T231; |
572 |
|
goto T233; |
573 |
|
T233:; |
574 |
|
V88= car((V85->c.c_car)); |
575 |
|
goto T231; |
576 |
|
T231:; |
577 |
|
{register object x= V88,V87= (V61); |
578 |
|
while(!endp(V87)) |
579 |
|
if(eql(x,V87->c.c_car)){ |
580 |
|
goto T230; |
581 |
|
}else V87=V87->c.c_cdr; |
582 |
|
goto T229;} |
583 |
goto T230; |
goto T230; |
584 |
T230:; |
T230:; |
585 |
V86= car((V83->c.c_car)); |
(V84->c.c_cdr)= Cnil; |
|
goto T228; |
|
|
T228:; |
|
|
{register object x= V86,V85= (V59); |
|
|
while(!endp(V85)) |
|
|
if(eql(x,V85->c.c_car)){ |
|
586 |
goto T227; |
goto T227; |
587 |
}else V85=V85->c.c_cdr; |
goto T229; |
588 |
goto T226;} |
T229:; |
589 |
|
(V84->c.c_cdr)= make_cons((V85->c.c_car),Cnil); |
590 |
goto T227; |
goto T227; |
591 |
T227:; |
T227:; |
592 |
(V82->c.c_cdr)= Cnil; |
{object cdr_V84=MMcdr(V84);while(!endp(cdr_V84)) {cdr_V84=MMcdr(cdr_V84);V84=MMcdr(V84);}} |
593 |
goto T224; |
V85=MMcdr(V85); |
594 |
goto T226; |
if(endp(V85)){ |
|
T226:; |
|
|
(V82->c.c_cdr)= make_cons((V83->c.c_car),Cnil); |
|
|
goto T224; |
|
|
T224:; |
|
|
{object cdr_V82=MMcdr(V82);while(!endp(cdr_V82)) {cdr_V82=MMcdr(cdr_V82);V82=MMcdr(V82);}} |
|
|
V83=MMcdr(V83); |
|
|
if(endp(V83)){ |
|
595 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
596 |
base[1]= base[2]; |
base[1]= base[2]; |
597 |
goto T222;} |
goto T225;} |
598 |
goto T223;} |
goto T226;} |
599 |
goto T222; |
goto T225; |
600 |
T222:; |
T225:; |
601 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
602 |
Lreconc(); |
Lreconc(); |
603 |
vs_top=sup; |
vs_top=sup; |
604 |
V49= vs_base[0]; |
V51= vs_base[0]; |
605 |
goto T129; |
goto T132; |
606 |
goto T150; |
goto T153; |
607 |
T150:; |
T153:; |
608 |
if(!(type_of(car((V67)))!=t_cons)){ |
if(!(type_of(car((V69)))!=t_cons)){ |
609 |
goto T238;} |
goto T241;} |
610 |
V68= car((V67)); |
V70= car((V69)); |
611 |
goto T236; |
goto T239; |
612 |
goto T238; |
goto T241; |
613 |
T238:; |
T241:; |
614 |
if(!(endp_prop(cdar((V67))))){ |
if(!(endp_prop(cdar((V69))))){ |
615 |
goto T243;} |
goto T246;} |
616 |
V68= caar((V67)); |
V70= caar((V69)); |
617 |
goto T236; |
goto T239; |
618 |
goto T243; |
goto T246; |
619 |
T243:; |
T246:; |
620 |
goto T234; |
goto T237; |
621 |
goto T236; |
goto T239; |
622 |
T236:; |
T239:; |
623 |
base[0]= (V68); |
base[0]= (V70); |
624 |
base[1]= (V49); |
base[1]= (V51); |
625 |
base[2]= VV[16]; |
base[2]= VV[16]; |
626 |
base[3]= VV[112]; |
base[3]= VV[113]; |
627 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
628 |
Lmember(); |
Lmember(); |
629 |
vs_top=sup; |
vs_top=sup; |
630 |
V69= vs_base[0]; |
V71= vs_base[0]; |
631 |
if(((V69))==Cnil){ |
if(((V71))==Cnil){ |
632 |
goto T234;} |
goto T237;} |
633 |
V58= make_cons(car((V69)),(V58)); |
V60= make_cons(car((V71)),(V60)); |
634 |
goto T232; |
goto T235; |
635 |
goto T234; |
goto T237; |
636 |
T234:; |
T237:; |
637 |
V58= make_cons(car((V67)),(V58)); |
V60= make_cons(car((V69)),(V60)); |
638 |
goto T232; |
goto T235; |
639 |
T232:; |
T235:; |
640 |
if(!(type_of(car((V67)))!=t_cons)){ |
if(!(type_of(car((V69)))!=t_cons)){ |
641 |
goto T257;} |
goto T260;} |
642 |
if(type_of(car((V67)))==t_symbol){ |
if(type_of(car((V69)))==t_symbol){ |
643 |
goto T259;} |
goto T262;} |
644 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI112))()); |
645 |
goto T259; |
goto T262; |
646 |
T259:; |
T262:; |
647 |
V59= make_cons(car((V67)),(V59)); |
V61= make_cons(car((V69)),(V61)); |
648 |
goto T255; |
goto T258; |
649 |
goto T257; |
goto T260; |
650 |
T257:; |
T260:; |
651 |
if(type_of(caar((V67)))==t_symbol){ |
if(type_of(caar((V69)))==t_symbol){ |
|
goto T264;} |
|
|
(void)((*(LnkLI111))()); |
|
|
goto T255; |
|
|
goto T264; |
|
|
T264:; |
|
|
if(endp_prop(cdar((V67)))){ |
|
|
goto T266;} |
|
|
if(!(endp_prop(cddar((V67))))){ |
|
652 |
goto T267;} |
goto T267;} |
653 |
goto T266; |
(void)((*(LnkLI112))()); |
654 |
T266:; |
goto T258; |
|
V59= make_cons(caar((V67)),(V59)); |
|
|
goto T255; |
|
655 |
goto T267; |
goto T267; |
656 |
T267:; |
T267:; |
657 |
if(type_of(caddar((V67)))==t_symbol){ |
if(endp_prop(cdar((V69)))){ |
658 |
goto T273;} |
goto T269;} |
659 |
(void)((*(LnkLI111))()); |
if(!(endp_prop(cddar((V69))))){ |
660 |
goto T255; |
goto T270;} |
661 |
goto T273; |
goto T269; |
662 |
T273:; |
T269:; |
663 |
if(endp_prop(cdddar((V67)))){ |
V61= make_cons(caar((V69)),(V61)); |
664 |
|
goto T258; |
665 |
|
goto T270; |
666 |
|
T270:; |
667 |
|
if(type_of(caddar((V69)))==t_symbol){ |
668 |
goto T276;} |
goto T276;} |
669 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI112))()); |
670 |
goto T255; |
goto T258; |
671 |
goto T276; |
goto T276; |
672 |
T276:; |
T276:; |
673 |
V59= make_cons(caar((V67)),(V59)); |
if(endp_prop(cdddar((V69)))){ |
674 |
V59= make_cons(caddar((V67)),(V59)); |
goto T279;} |
675 |
goto T255; |
(void)((*(LnkLI112))()); |
676 |
T255:; |
goto T258; |
677 |
V67= cdr((V67)); |
goto T279; |
678 |
goto T132;} |
T279:; |
679 |
goto T129; |
V61= make_cons(caar((V69)),(V61)); |
680 |
T129:; |
V61= make_cons(caddar((V69)),(V61)); |
681 |
goto T97; |
goto T258; |
682 |
goto T125; |
T258:; |
683 |
T125:; |
V69= cdr((V69)); |
684 |
if(type_of(car((V57)))==t_symbol){ |
goto T135;} |
685 |
goto T284;} |
goto T132; |
686 |
(void)((*(LnkLI111))()); |
T132:; |
687 |
goto T284; |
goto T100; |
688 |
T284:; |
goto T128; |
689 |
V58= make_cons(car((V57)),(V58)); |
T128:; |
690 |
V59= make_cons(car((V57)),(V59)); |
if(type_of(car((V59)))==t_symbol){ |
691 |
V57= cdr((V57)); |
goto T287;} |
692 |
goto T100;} |
(void)((*(LnkLI112))()); |
693 |
goto T97; |
goto T287; |
694 |
T97:; |
T287:; |
695 |
V44= car((V44)); |
V60= make_cons(car((V59)),(V60)); |
696 |
goto T93; |
V61= make_cons(car((V59)),(V61)); |
697 |
goto T95; |
V59= cdr((V59)); |
698 |
T95:; |
goto T103;} |
699 |
V49= make_cons(VV[17],(V49)); |
goto T100; |
700 |
goto T93; |
T100:; |
701 |
T93:; |
V46= car((V46)); |
702 |
if(((V45))!=Cnil){ |
goto T96; |
703 |
goto T296;} |
goto T98; |
704 |
{object V87 = list(4,VV[3],(V44),(V49),listA(3,VV[18],list(2,VV[11],(V43)),(V48))); |
T98:; |
705 |
VMR2(V87)} |
V51= make_cons(VV[17],(V51)); |
706 |
goto T296; |
goto T96; |
707 |
T296:; |
T96:; |
708 |
if(((V45))==(VV[19])){ |
if(((V47))!=Cnil){ |
|
goto T298;} |
|
|
if(!(type_of((V45))==t_cons)){ |
|
|
goto T299;} |
|
|
if(!((car((V45)))==(VV[19]))){ |
|
709 |
goto T299;} |
goto T299;} |
710 |
goto T298; |
{object V89 = list(4,VV[3],(V46),(V51),listA(3,VV[18],list(2,VV[11],(V45)),(V50))); |
711 |
T298:; |
VMR2(V89)} |
|
{object V88 = list(4,VV[3],(V44),(V49),make_cons(VV[19],(V48))); |
|
|
VMR2(V88)} |
|
712 |
goto T299; |
goto T299; |
713 |
T299:; |
T299:; |
714 |
if(!(((V45))==(VV[20]))){ |
if(((V47))==(VV[19])){ |
715 |
goto T306;} |
goto T301;} |
716 |
{object V89 = list(4,VV[3],(V44),(V49),make_cons(VV[20],(V48))); |
if(!(type_of((V47))==t_cons)){ |
717 |
VMR2(V89)} |
goto T302;} |
718 |
goto T306; |
if(!((car((V47)))==(VV[19]))){ |
719 |
T306:; |
goto T302;} |
720 |
{object V90; |
goto T301; |
721 |
|
T301:; |
722 |
|
{object V90 = list(4,VV[3],(V46),(V51),make_cons(VV[19],(V50))); |
723 |
|
VMR2(V90)} |
724 |
|
goto T302; |
725 |
|
T302:; |
726 |
|
if(!(((V47))==(VV[20]))){ |
727 |
|
goto T309;} |
728 |
|
{object V91 = list(4,VV[3],(V46),(V51),make_cons(VV[20],(V50))); |
729 |
|
VMR2(V91)} |
730 |
|
goto T309; |
731 |
|
T309:; |
732 |
|
{object V92; |
733 |
base[0]= VV[21]; |
base[0]= VV[21]; |
734 |
base[1]= (V45); |
base[1]= (V47); |
735 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
736 |
Lerror(); |
Lerror(); |
737 |
vs_top=sup; |
vs_top=sup; |
738 |
V90= vs_base[0]; |
V92= vs_base[0]; |
739 |
if(((V90))==Cnil){ |
if(((V92))==Cnil){ |
740 |
goto T312;} |
goto T315;} |
741 |
{object V91 = (V90); |
{object V93 = (V92); |
742 |
VMR2(V91)} |
VMR2(V93)} |
743 |
goto T312; |
goto T315; |
744 |
T312:; |
T315:; |
745 |
{object V92 = Cnil; |
{object V94 = Cnil; |
746 |
VMR2(V92)}}} |
VMR2(V94)}}} |
747 |
base[0]=base[0]; |
base[0]=base[0]; |
748 |
return Cnil; |
return Cnil; |
749 |
} |
} |
758 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
759 |
Lerror(); |
Lerror(); |
760 |
vs_top=sup; |
vs_top=sup; |
761 |
{object V93 = vs_base[0]; |
{object V95 = vs_base[0]; |
762 |
VMR3(V93)} |
VMR3(V95)} |
763 |
base[0]=base[0]; |
base[0]=base[0]; |
764 |
return Cnil; |
return Cnil; |
765 |
} |
} |
766 |
/* local entry for function MAKE-PREDICATE */ |
/* local entry for function MAKE-PREDICATE */ |
767 |
|
|
768 |
static object LI4(V99,V100,V101,V102,V103) |
static object LI4(V101,V102,V103,V104,V105) |
769 |
|
|
770 |
object V99;object V100;register object V101;object V102;register object V103; |
object V101;object V102;register object V103;object V104;register object V105; |
771 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
772 |
goto TTL; |
goto TTL; |
773 |
TTL:; |
TTL:; |
774 |
{object V104; |
{object V106; |
775 |
V104= (((V101))==Cnil?Ct:Cnil); |
V106= (((V103))==Cnil?Ct:Cnil); |
776 |
if(((V104))==Cnil){ |
if(((V106))==Cnil){ |
|
goto T317;} |
|
|
{object V105 = (V104); |
|
|
VMR4(V105)} |
|
|
goto T317; |
|
|
T317:; |
|
|
if(((V101))==(VV[19])){ |
|
|
goto T319;} |
|
|
if(!(type_of((V101))==t_cons)){ |
|
777 |
goto T320;} |
goto T320;} |
778 |
if(!((car((V101)))==(VV[19]))){ |
{object V107 = (V106); |
779 |
goto T320;} |
VMR4(V107)} |
780 |
goto T319; |
goto T320; |
781 |
T319:; |
T320:; |
782 |
if(((V102))!=Cnil){ |
if(((V103))==(VV[19])){ |
783 |
goto T326;} |
goto T322;} |
784 |
|
if(!(type_of((V103))==t_cons)){ |
785 |
|
goto T323;} |
786 |
|
if(!((car((V103)))==(VV[19]))){ |
787 |
|
goto T323;} |
788 |
|
goto T322; |
789 |
|
T322:; |
790 |
|
if(((V104))!=Cnil){ |
791 |
|
goto T329;} |
792 |
base[0]= VV[23]; |
base[0]= VV[23]; |
793 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
794 |
Lerror(); |
Lerror(); |
795 |
vs_top=sup; |
vs_top=sup; |
796 |
goto T326; |
goto T329; |
797 |
T326:; |
T329:; |
798 |
V106= list(3,VV[27],VV[28],(V103)); |
V108= list(3,VV[27],VV[28],(V105)); |
799 |
V107= list(3,VV[30],VV[31],(V103)); |
V109= list(3,VV[30],VV[31],(V105)); |
800 |
{object V108 = list(4,VV[3],(V100),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V106,list(3,VV[29],/* INLINE-ARGS */V107,list(2,VV[11],(V99))))); |
{object V110 = list(4,VV[3],(V102),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V108,list(3,VV[29],/* INLINE-ARGS */V109,list(2,VV[11],(V101))))); |
801 |
VMR4(V108)} |
VMR4(V110)} |
802 |
goto T320; |
goto T323; |
803 |
T320:; |
T323:; |
804 |
if(!(((V101))==(VV[20]))){ |
if(!(((V103))==(VV[20]))){ |
805 |
goto T331;} |
goto T334;} |
806 |
if(((V102))!=Cnil){ |
if(((V104))!=Cnil){ |
807 |
goto T333;} |
goto T336;} |
808 |
base[0]= VV[32]; |
base[0]= VV[32]; |
809 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
810 |
Lerror(); |
Lerror(); |
811 |
vs_top=sup; |
vs_top=sup; |
812 |
goto T333; |
goto T336; |
813 |
T333:; |
T336:; |
814 |
if(!(number_compare((V103),small_fixnum(0))==0)){ |
if(!(number_compare((V105),small_fixnum(0))==0)){ |
815 |
goto T338;} |
goto T341;} |
816 |
{object V109 = list(4,VV[3],(V100),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V99))))); |
{object V111 = list(4,VV[3],(V102),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V101))))); |
|
VMR4(V109)} |
|
|
goto T338; |
|
|
T338:; |
|
|
V110= list(2,list(3,VV[38],(V103),VV[39]),VV[40]); |
|
|
{object V111 = list(4,VV[3],(V100),VV[36],listA(4,VV[37],/* INLINE-ARGS */V110,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V99))))),VV[44])); |
|
817 |
VMR4(V111)} |
VMR4(V111)} |
818 |
goto T331; |
goto T341; |
819 |
T331:; |
T341:; |
820 |
{object V112; |
V112= list(2,list(3,VV[38],(V105),VV[39]),VV[40]); |
821 |
|
{object V113 = list(4,VV[3],(V102),VV[36],listA(4,VV[37],/* INLINE-ARGS */V112,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V101))))),VV[44])); |
822 |
|
VMR4(V113)} |
823 |
|
goto T334; |
824 |
|
T334:; |
825 |
|
{object V114; |
826 |
base[0]= VV[45]; |
base[0]= VV[45]; |
827 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
828 |
Lerror(); |
Lerror(); |
829 |
vs_top=sup; |
vs_top=sup; |
830 |
V112= vs_base[0]; |
V114= vs_base[0]; |
831 |
if(((V112))==Cnil){ |
if(((V114))==Cnil){ |
832 |
goto T343;} |
goto T346;} |
833 |
{object V113 = (V112); |
{object V115 = (V114); |
834 |
VMR4(V113)} |
VMR4(V115)} |
835 |
goto T343; |
goto T346; |
836 |
T343:; |
T346:; |
837 |
{object V114 = Cnil; |
{object V116 = Cnil; |
838 |
VMR4(V114)}}} |
VMR4(V116)}}} |
839 |
base[0]=base[0]; |
base[0]=base[0]; |
840 |
return Cnil; |
return Cnil; |
841 |
} |
} |
842 |
/* local entry for function PARSE-SLOT-DESCRIPTION */ |
/* local entry for function PARSE-SLOT-DESCRIPTION */ |
843 |
|
|
844 |
static object LI5(V117,V118) |
static object LI5(V119,V120) |
845 |
|
|
846 |
register object V117;object V118; |
register object V119;object V120; |
847 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
848 |
goto TTL; |
goto TTL; |
849 |
TTL:; |
TTL:; |
850 |
{object V119; |
{object V121; |
851 |
object V120; |
object V122; |
852 |
register object V121; |
register object V123; |
853 |
register object V122; |
register object V124; |
|
V119= Cnil; |
|
|
V120= Cnil; |
|
854 |
V121= Cnil; |
V121= Cnil; |
855 |
V122= Cnil; |
V122= Cnil; |
856 |
if(!(type_of((V117))!=t_cons)){ |
V123= Cnil; |
|
goto T347;} |
|
|
V119= (V117); |
|
|
goto T345; |
|
|
goto T347; |
|
|
T347:; |
|
|
if(!(endp_prop(cdr((V117))))){ |
|
|
goto T351;} |
|
|
V119= car((V117)); |
|
|
goto T345; |
|
|
goto T351; |
|
|
T351:; |
|
|
V119= car((V117)); |
|
|
V120= cadr((V117)); |
|
|
{register object V123; |
|
|
register object V124; |
|
|
register object V125; |
|
|
V123= cddr((V117)); |
|
857 |
V124= Cnil; |
V124= Cnil; |
858 |
V125= Cnil; |
if(!(type_of((V119))!=t_cons)){ |
859 |
goto T360; |
goto T350;} |
860 |
T360:; |
V121= (V119); |
861 |
if(!(endp_prop((V123)))){ |
goto T348; |
862 |
goto T361;} |
goto T350; |
863 |
goto T345; |
T350:; |
864 |
goto T361; |
if(!(endp_prop(cdr((V119))))){ |
865 |
T361:; |
goto T354;} |
866 |
V124= car((V123)); |
V121= car((V119)); |
867 |
if(!(endp_prop(cdr((V123))))){ |
goto T348; |
868 |
goto T367;} |
goto T354; |
869 |
|
T354:; |
870 |
|
V121= car((V119)); |
871 |
|
V122= cadr((V119)); |
872 |
|
{register object V125; |
873 |
|
register object V126; |
874 |
|
register object V127; |
875 |
|
V125= cddr((V119)); |
876 |
|
V126= Cnil; |
877 |
|
V127= Cnil; |
878 |
|
goto T363; |
879 |
|
T363:; |
880 |
|
if(!(endp_prop((V125)))){ |
881 |
|
goto T364;} |
882 |
|
goto T348; |
883 |
|
goto T364; |
884 |
|
T364:; |
885 |
|
V126= car((V125)); |
886 |
|
if(!(endp_prop(cdr((V125))))){ |
887 |
|
goto T370;} |
888 |
base[0]= VV[46]; |
base[0]= VV[46]; |
889 |
base[1]= (V123); |
base[1]= (V125); |
890 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
891 |
Lerror(); |
Lerror(); |
892 |
vs_top=sup; |
vs_top=sup; |
893 |
goto T367; |
goto T370; |
894 |
T367:; |
T370:; |
895 |
V125= cadr((V123)); |
V127= cadr((V125)); |
896 |
{object V126= (V124); |
{object V128= (V126); |
897 |
if((V126!= VV[75]))goto T375; |
if((V128!= VV[75]))goto T378; |
898 |
V121= (V125); |
V123= (V127); |
899 |
goto T374; |
goto T377; |
900 |
goto T375; |
goto T378; |
901 |
T375:; |
T378:; |
902 |
if((V126!= VV[113]))goto T377; |
if((V128!= VV[114]))goto T380; |
903 |
V122= (V125); |
V124= (V127); |
904 |
goto T374; |
goto T377; |
905 |
goto T377; |
goto T380; |
906 |
T377:; |
T380:; |
907 |
base[0]= VV[47]; |
base[0]= VV[47]; |
908 |
base[1]= (V123); |
base[1]= (V125); |
909 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
910 |
Lerror(); |
Lerror(); |
911 |
vs_top=sup;} |
vs_top=sup;} |
912 |
goto T374; |
goto T377; |
913 |
T374:; |
T377:; |
914 |
V123= cddr((V123)); |
V125= cddr((V125)); |
915 |
goto T360;} |
goto T363;} |
916 |
goto T345; |
goto T348; |
917 |
T345:; |
T348:; |
918 |
{object V127 = list(5,(V119),(V120),(V121),(V122),(V118)); |
{object V129 = list(5,(V121),(V122),(V123),(V124),(V120)); |
919 |
VMR5(V127)}} |
VMR5(V129)}} |
920 |
base[0]=base[0]; |
base[0]=base[0]; |
921 |
return Cnil; |
return Cnil; |
922 |
} |
} |
923 |
/* local entry for function OVERWRITE-SLOT-DESCRIPTIONS */ |
/* local entry for function OVERWRITE-SLOT-DESCRIPTIONS */ |
924 |
|
|
925 |
static object LI6(V130,V131) |
static object LI6(V132,V133) |
926 |
|
|
927 |
object V130;register object V131; |
object V132;register object V133; |
928 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
929 |
goto TTL; |
goto TTL; |
930 |
TTL:; |
TTL:; |
931 |
if(((V131))!=Cnil){ |
if(((V133))!=Cnil){ |
932 |
goto T385;} |
goto T388;} |
933 |
{object V132 = Cnil; |
{object V134 = Cnil; |
934 |
VMR6(V132)} |
VMR6(V134)} |
935 |
goto T385; |
goto T388; |
936 |
T385:; |
T388:; |
937 |
{register object V133; |
{register object V135; |
938 |
base[0]= caar((V131)); |
base[0]= caar((V133)); |
939 |
base[1]= (V130); |
base[1]= (V132); |
940 |
base[2]= VV[16]; |
base[2]= VV[16]; |
941 |
base[3]= symbol_function(VV[114]); |
base[3]= symbol_function(VV[115]); |
942 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
943 |
Lmember(); |
Lmember(); |
944 |
vs_top=sup; |
vs_top=sup; |
945 |
V133= vs_base[0]; |
V135= vs_base[0]; |
946 |
if(((V133))==Cnil){ |
if(((V135))==Cnil){ |
947 |
goto T393;} |
goto T396;} |
948 |
if((cadddr(car((V133))))!=Cnil){ |
if((cadddr(car((V135))))!=Cnil){ |
949 |
goto T395;} |
goto T398;} |
950 |
if((cadddr(car((V131))))==Cnil){ |
if((cadddr(car((V133))))==Cnil){ |
951 |
goto T395;} |
goto T398;} |
952 |
base[0]= VV[48]; |
base[0]= VV[48]; |
953 |
base[1]= (V133); |
base[1]= (V135); |
954 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
955 |
Lerror(); |
Lerror(); |
956 |
vs_top=sup; |
vs_top=sup; |
957 |
goto T395; |
goto T398; |
958 |
T395:; |
T398:; |
959 |
{object V134; |
{object V136; |
960 |
object V135; |
object V137; |
961 |
V134= car((V133)); |
V136= car((V135)); |
962 |
V135= (*(LnkLI115))(caddr(car((V133)))); |
V137= (*(LnkLI116))(caddr(car((V135)))); |
963 |
if(type_of(cddr((V134)))!=t_cons)FEwrong_type_argument(Scons,cddr((V134))); |
if(type_of(cddr((V136)))!=t_cons)FEwrong_type_argument(Scons,cddr((V136))); |
964 |
(cddr((V134)))->c.c_car = (V135); |
(cddr((V136)))->c.c_car = (V137); |
965 |
(void)(cddr((V134)));}{object V137; |
(void)(cddr((V136)));}{object V139; |
966 |
V137= caddr(car((V133))); |
V139= caddr(car((V135))); |
967 |
if(V137==Cnil)goto T410; |
if(V139==Cnil)goto T413; |
968 |
V136= V137; |
V138= V139; |
|
goto T409; |
|
|
goto T410; |
|
|
T410:;} |
|
|
V136= Ct; |
|
|
goto T409; |
|
|
T409:; |
|
|
V138= (*(LnkLI116))(V136);{object V140; |
|
|
V140= caddr(car((V131))); |
|
|
if(V140==Cnil)goto T413; |
|
|
V139= V140; |
|
969 |
goto T412; |
goto T412; |
970 |
goto T413; |
goto T413; |
971 |
T413:;} |
T413:;} |
972 |
V139= Ct; |
V138= Ct; |
973 |
goto T412; |
goto T412; |
974 |
T412:; |
T412:; |
975 |
V141= (*(LnkLI116))(V139); |
V140= (*(LnkLI117))(V138);{object V142; |
976 |
if(equal(/* INLINE-ARGS */V138,/* INLINE-ARGS */V141)){ |
V142= caddr(car((V133))); |
977 |
goto T406;} |
if(V142==Cnil)goto T416; |
978 |
|
V141= V142; |
979 |
|
goto T415; |
980 |
|
goto T416; |
981 |
|
T416:;} |
982 |
|
V141= Ct; |
983 |
|
goto T415; |
984 |
|
T415:; |
985 |
|
V143= (*(LnkLI117))(V141); |
986 |
|
if(equal(/* INLINE-ARGS */V140,/* INLINE-ARGS */V143)){ |
987 |
|
goto T409;} |
988 |
base[0]= VV[49]; |
base[0]= VV[49]; |
989 |
base[1]= car((V133)); |
base[1]= car((V135)); |
990 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
991 |
Lerror(); |
Lerror(); |
992 |
vs_top=sup; |
vs_top=sup; |
993 |
goto T406; |
goto T409; |
994 |
T406:; |
T409:; |
995 |
V142= list(5,caar((V133)),cadar((V133)),caddar((V133)),cadddr(car((V133))),car(cddddr(car((V131))))); |
V144= list(5,caar((V135)),cadar((V135)),caddar((V135)),cadddr(car((V135))),car(cddddr(car((V133))))); |
996 |
V143= (*(LnkLI117))((V130),cdr((V131))); |
V145= (*(LnkLI118))((V132),cdr((V133))); |
997 |
{object V144 = make_cons(/* INLINE-ARGS */V142,/* INLINE-ARGS */V143); |
{object V146 = make_cons(/* INLINE-ARGS */V144,/* INLINE-ARGS */V145); |
998 |
VMR6(V144)} |
VMR6(V146)} |
999 |
goto T393; |
goto T396; |
1000 |
T393:; |
T396:; |
1001 |
V145= car((V131)); |
V147= car((V133)); |
1002 |
V146= (*(LnkLI117))((V130),cdr((V131))); |
V148= (*(LnkLI118))((V132),cdr((V133))); |
1003 |
{object V147 = make_cons(/* INLINE-ARGS */V145,/* INLINE-ARGS */V146); |
{object V149 = make_cons(/* INLINE-ARGS */V147,/* INLINE-ARGS */V148); |
1004 |
VMR6(V147)}} |
VMR6(V149)}} |
1005 |
base[0]=base[0]; |
base[0]=base[0]; |
1006 |
return Cnil; |
return Cnil; |
1007 |
} |
} |
1008 |
/* local entry for function MAKE-T-TYPE */ |
/* local entry for function MAKE-T-TYPE */ |
1009 |
|
|
1010 |
static object LI7(V151,V152,V153) |
static object LI7(V153,V154,V155) |
1011 |
|
|
1012 |
object V151;object V152;object V153; |
object V153;object V154;object V155; |
1013 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
1014 |
goto TTL; |
goto TTL; |
1015 |
TTL:; |
TTL:; |
|
{object V154; |
|
|
V154= Cnil; |
|
|
{register object V155; |
|
|
V155= (VFUN_NARGS=5,(*(LnkLI118))((V151),VV[50],VV[51],VV[52],Ct)); |
|
|
if(((V152))==Cnil){ |
|
|
goto T419;} |
|
1016 |
{object V156; |
{object V156; |
1017 |
object V157; |
V156= Cnil; |
1018 |
V156= get((V152),VV[53],Cnil); |
{register object V157; |
1019 |
V157= Cnil; |
V157= (VFUN_NARGS=5,(*(LnkLI119))((V153),VV[50],VV[51],VV[52],Ct)); |
1020 |
if((V156)!=Cnil){ |
if(((V154))==Cnil){ |
1021 |
goto T423;} |
goto T422;} |
1022 |
|
{object V158; |
1023 |
|
object V159; |
1024 |
|
V158= get((V154),VV[53],Cnil); |
1025 |
|
V159= Cnil; |
1026 |
|
if((V158)!=Cnil){ |
1027 |
|
goto T426;} |
1028 |
base[0]= VV[54]; |
base[0]= VV[54]; |
1029 |
base[1]= (V152); |
base[1]= (V154); |
1030 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1031 |
Lerror(); |
Lerror(); |
1032 |
vs_top=sup; |
vs_top=sup; |
1033 |
goto T423; |
goto T426; |
1034 |
T423:; |
T426:; |
1035 |
V157= structure_ref((V156),VV[53],2); |
V159= structure_ref((V158),VV[53],2); |
1036 |
{object V158; |
{object V160; |
1037 |
register object V159; |
register object V161; |
1038 |
V160 = make_fixnum((long)length((V157))); |
V162 = make_fixnum((long)length((V159))); |
1039 |
V158= (number_compare((V151),V160)<=0?((V151)):V160); |
V160= (number_compare((V153),V162)<=0?((V153)):V162); |
1040 |
V159= small_fixnum(0); |
V161= small_fixnum(0); |
1041 |
goto T431; |
goto T434; |
1042 |
T431:; |
T434:; |
1043 |
if(!(number_compare((V159),(V158))>=0)){ |
if(!(number_compare((V161),(V160))>=0)){ |
1044 |
goto T432;} |
goto T435;} |
1045 |
goto T419; |
goto T422; |
1046 |
goto T432; |
goto T435; |
1047 |
T432:; |
T435:; |
1048 |
V161= aref1((V157),fixint((V159))); |
V163= aref1((V159),fixint((V161))); |
1049 |
(void)(aset1((V155),fixint((V159)),/* INLINE-ARGS */V161)); |
(void)(aset1((V157),fixint((V161)),/* INLINE-ARGS */V163)); |
1050 |
V159= one_plus((V159)); |
V161= one_plus((V161)); |
1051 |
goto T431;}} |
goto T434;}} |
1052 |
goto T419; |
goto T422; |
1053 |
T419:; |
T422:; |
|
{register object V162; |
|
|
register object V163; |
|
|
V162= (V153); |
|
|
V163= car((V162)); |
|
|
goto T444; |
|
|
T444:; |
|
|
if(!(endp_prop((V162)))){ |
|
|
goto T445;} |
|
|
goto T440; |
|
|
goto T445; |
|
|
T445:; |
|
|
V154= car(cddddr((V163))); |
|
1054 |
{register object V164; |
{register object V164; |
1055 |
V164= caddr((V163)); |
register object V165; |
1056 |
base[1]= (V164); |
V164= (V155); |
1057 |
|
V165= car((V164)); |
1058 |
|
goto T447; |
1059 |
|
T447:; |
1060 |
|
if(!(endp_prop((V164)))){ |
1061 |
|
goto T448;} |
1062 |
|
goto T443; |
1063 |
|
goto T448; |
1064 |
|
T448:; |
1065 |
|
V156= car(cddddr((V165))); |
1066 |
|
{register object V166; |
1067 |
|
V166= caddr((V165)); |
1068 |
|
base[1]= (V166); |
1069 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1070 |
(void) (*Lnk119)(); |
(void) (*Lnk120)(); |
1071 |
vs_top=sup; |
vs_top=sup; |
1072 |
V165= vs_base[0]; |
V167= vs_base[0]; |
1073 |
if(!(number_compare(V165,symbol_value(VV[55]))<=0)){ |
if(!(number_compare(V167,symbol_value(VV[55]))<=0)){ |
1074 |
goto T451;} |
goto T454;} |
1075 |
base[1]= (V164); |
base[1]= (V166); |
1076 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1077 |
(void) (*Lnk120)(); |
(void) (*Lnk121)(); |
1078 |
vs_top=sup; |
vs_top=sup; |
1079 |
V166= vs_base[0]; |
V168= vs_base[0]; |
1080 |
(void)(aset1((V155),fixint((V154)),V166));} |
(void)(aset1((V157),fixint((V156)),V168));} |
1081 |
goto T451; |
goto T454; |
1082 |
T451:; |
T454:; |
1083 |
V162= cdr((V162)); |
V164= cdr((V164)); |
1084 |
V163= car((V162)); |
V165= car((V164)); |
1085 |
goto T444;} |
goto T447;} |
1086 |
goto T440; |
goto T443; |
1087 |
T440:; |
T443:; |
1088 |
V167 = make_fixnum((long)length(symbol_value(VV[56]))); |
V169 = make_fixnum((long)length(symbol_value(VV[56]))); |
1089 |
if(!(number_compare((V151),V167)<0)){ |
if(!(number_compare((V153),V169)<0)){ |
1090 |
goto T465;} |
goto T468;} |
1091 |
{register object V169; |
{register object V171; |
1092 |
V169= small_fixnum(0); |
V171= small_fixnum(0); |
1093 |
|
goto T473; |
1094 |
|
T473:; |
1095 |
|
if(!(number_compare((V171),V153)>=0)){ |
1096 |
|
goto T474;} |
1097 |
|
goto T470; |
1098 |
|
goto T474; |
1099 |
|
T474:; |
1100 |
|
{long V172= fix(aref1((V157),fixint((V171)))); |
1101 |
|
if((/* INLINE-ARGS */V172)==(0)){ |
1102 |
|
goto T478;}} |
1103 |
|
{object V173 = (V157); |
1104 |
|
VMR7(V173)} |
1105 |
|
goto T478; |
1106 |
|
T478:; |
1107 |
|
V171= one_plus((V171)); |
1108 |
|
goto T473;} |
1109 |
goto T470; |
goto T470; |
1110 |
T470:; |
T470:; |
1111 |
if(!(number_compare((V169),V151)>=0)){ |
{object V174 = symbol_value(VV[56]); |
1112 |
goto T471;} |
VMR7(V174)} |
1113 |
goto T467; |
goto T468; |
1114 |
goto T471; |
T468:; |
1115 |
T471:; |
{object V175 = (V157); |
1116 |
{long V170= fix(aref1((V155),fixint((V169)))); |
VMR7(V175)}}} |
|
if((/* INLINE-ARGS */V170)==(0)){ |
|
|
goto T475;}} |
|
|
{object V171 = (V155); |
|
|
VMR7(V171)} |
|
|
goto T475; |
|
|
T475:; |
|
|
V169= one_plus((V169)); |
|
|
goto T470;} |
|
|
goto T467; |
|
|
T467:; |
|
|
{object V172 = symbol_value(VV[56]); |
|
|
VMR7(V172)} |
|
|
goto T465; |
|
|
T465:; |
|
|
{object V173 = (V155); |
|
|
VMR7(V173)}}} |
|
1117 |
base[0]=base[0]; |
base[0]=base[0]; |
1118 |
return Cnil; |
return Cnil; |
1119 |
} |
} |
1120 |
/* local entry for function ROUND-UP */ |
/* local entry for function ROUND-UP */ |
1121 |
|
|
1122 |
static object LI8(V176,V177) |
static object LI8(V178,V179) |
1123 |
|
|
1124 |
long V176;long V177; |
long V178;long V179; |
1125 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
1126 |
goto TTL; |
goto TTL; |
1127 |
TTL:; |
TTL:; |
1128 |
base[0]= make_fixnum(V176); |
base[0]= make_fixnum(V178); |
1129 |
base[1]= make_fixnum(V177); |
base[1]= make_fixnum(V179); |
1130 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1131 |
Lceiling(); |
Lceiling(); |
1132 |
vs_top=sup; |
vs_top=sup; |
1133 |
V176= fix(vs_base[0]); |
V178= fix(vs_base[0]); |
1134 |
{long V178 = (long)(V176)*(V177); |
{long V180 = (long)(V178)*(V179); |
1135 |
VMR8((object)V178)} |
VMR8((object)V180)} |
1136 |
base[0]=base[0]; |
base[0]=base[0]; |
1137 |
} |
} |
1138 |
/* local entry for function GET-SLOT-POS */ |
/* local entry for function GET-SLOT-POS */ |
1139 |
|
|
1140 |
static object LI9(V182,V183,V184) |
static object LI9(V184,V185,V186) |
1141 |
|
|
1142 |
object V182;object V183;object V184; |
object V184;object V185;object V186; |
1143 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
1144 |
goto TTL; |
goto TTL; |
1145 |
TTL:; |
TTL:; |
1146 |
{register object V185; |
{register object V187; |
1147 |
object V186; |
object V188; |
1148 |
object V187; |
object V189; |
|
V185= Cnil; |
|
|
V186= Cnil; |
|
1149 |
V187= Cnil; |
V187= Cnil; |
1150 |
{register object V188; |
V188= Cnil; |
1151 |
register object V189; |
V189= Cnil; |
1152 |
V188= (V184); |
{register object V190; |
1153 |
V189= car((V188)); |
register object V191; |
1154 |
goto T493; |
V190= (V186); |
1155 |
T493:; |
V191= car((V190)); |
1156 |
if(!(endp_prop((V188)))){ |
goto T496; |
1157 |
goto T494;} |
T496:; |
1158 |
goto T489; |
if(!(endp_prop((V190)))){ |
1159 |
goto T494; |
goto T497;} |
1160 |
T494:; |
goto T492; |
1161 |
if(((V189))==Cnil){ |
goto T497; |
1162 |
goto T498;} |
T497:; |
1163 |
if((car((V189)))==Cnil){ |
if(((V191))==Cnil){ |
1164 |
goto T498;} |
goto T501;} |
1165 |
V185= (*(LnkLI115))(caddr((V189))); |
if((car((V191)))==Cnil){ |
1166 |
if(type_of(cddr(V189))!=t_cons)FEwrong_type_argument(Scons,cddr(V189)); |
goto T501;} |
1167 |
(cddr(V189))->c.c_car = V185; |
V187= (*(LnkLI116))(caddr((V191))); |
1168 |
(void)(cddr(V189)); |
if(type_of(cddr(V191))!=t_cons)FEwrong_type_argument(Scons,cddr(V191)); |
1169 |
{register object V192; |
(cddr(V191))->c.c_car = V187; |
1170 |
V192= cadr((V189)); |
(void)(cddr(V191)); |
1171 |
base[1]= (V192); |
{register object V194; |
1172 |
base[2]= (V185); |
V194= cadr((V191)); |
1173 |
|
base[1]= (V194); |
1174 |
|
base[2]= (V187); |
1175 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1176 |
(void) (*Lnk121)(); |
(void) (*Lnk122)(); |
1177 |
vs_top=sup; |
vs_top=sup; |
1178 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1179 |
goto T507;} |
goto T510;} |
1180 |
if(!(type_of((V192))==t_symbol)){ |
if(!(type_of((V194))==t_symbol)){ |
1181 |
goto T513;} |
goto T516;} |
1182 |
base[1]= (V192); |
base[1]= (V194); |
1183 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1184 |
Lconstantp(); |
Lconstantp(); |
1185 |
vs_top=sup; |
vs_top=sup; |
1186 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1187 |
goto T513;} |
goto T516;} |
1188 |
base[1]= (V192); |
base[1]= (V194); |
1189 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1190 |
Lsymbol_value(); |
Lsymbol_value(); |
1191 |
vs_top=sup; |
vs_top=sup; |
1192 |
V192= vs_base[0]; |
V194= vs_base[0]; |
1193 |
goto T513; |
goto T516; |
1194 |
T513:; |
T516:; |
1195 |
base[1]= (V192); |
base[1]= (V194); |
1196 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1197 |
Lconstantp(); |
Lconstantp(); |
1198 |
vs_top=sup; |
vs_top=sup; |
1199 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1200 |
goto T521;} |
goto T524;} |
1201 |
goto T507; |
goto T510; |
1202 |
goto T521; |
goto T524; |
1203 |
T521:; |
T524:; |
|
{object V194; |
|
|
V194= (*(LnkLI122))((V192),(V185)); |
|
|
if(type_of(cdr(V189))!=t_cons)FEwrong_type_argument(Scons,cdr(V189)); |
|
|
(cdr(V189))->c.c_car = (V194); |
|
|
(void)(cdr(V189));}} |
|
|
goto T507; |
|
|
T507:; |
|
|
{register object x= (V185),V195= VV[58]; |
|
|
while(!endp(V195)) |
|
|
if(x==(V195->c.c_car)){ |
|
|
goto T527; |
|
|
}else V195=V195->c.c_cdr; |
|
|
goto T498;} |
|
|
goto T527; |
|
|
T527:; |
|
|
V186= Ct; |
|
|
goto T498; |
|
|
T498:; |
|
|
V188= cdr((V188)); |
|
|
V189= car((V188)); |
|
|
goto T493;} |
|
|
goto T489; |
|
|
T489:; |
|
1204 |
{object V196; |
{object V196; |
1205 |
if(((V186))==Cnil){ |
V196= (*(LnkLI123))((V194),(V187)); |
1206 |
goto T535;} |
if(type_of(cdr(V191))!=t_cons)FEwrong_type_argument(Scons,cdr(V191)); |
1207 |
V196= Cnil; |
(cdr(V191))->c.c_car = (V196); |
1208 |
goto T534; |
(void)(cdr(V191));}} |
1209 |
goto T535; |
goto T510; |
1210 |
T535:; |
T510:; |
1211 |
V197 = make_fixnum((long)length(symbol_value(VV[57]))); |
{register object x= (V187),V197= VV[58]; |
1212 |
if(number_compare((V182),V197)<0){ |
while(!endp(V197)) |
1213 |
goto T537;} |
if(x==(V197->c.c_car)){ |
1214 |
V196= Cnil; |
goto T530; |
1215 |
goto T534; |
}else V197=V197->c.c_cdr; |
1216 |
goto T537; |
goto T501;} |
1217 |
T537:;{object V198; |
goto T530; |
1218 |
V198= symbol_value(VV[57]); |
T530:; |
1219 |
|
V188= Ct; |
1220 |
|
goto T501; |
1221 |
|
T501:; |
1222 |
|
V190= cdr((V190)); |
1223 |
|
V191= car((V190)); |
1224 |
|
goto T496;} |
1225 |
|
goto T492; |
1226 |
|
T492:; |
1227 |
|
{object V198; |
1228 |
|
if(((V188))==Cnil){ |
1229 |
|
goto T538;} |
1230 |
|
V198= Cnil; |
1231 |
|
goto T537; |
1232 |
|
goto T538; |
1233 |
|
T538:; |
1234 |
|
V199 = make_fixnum((long)length(symbol_value(VV[57]))); |
1235 |
|
if(number_compare((V184),V199)<0){ |
1236 |
|
goto T540;} |
1237 |
|
V198= Cnil; |
1238 |
|
goto T537; |
1239 |
|
goto T540; |
1240 |
|
T540:;{object V200; |
1241 |
|
V200= symbol_value(VV[57]); |
1242 |
base[0]= Ct; |
base[0]= Ct; |
1243 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1244 |
(void) (*Lnk123)(); |
(void) (*Lnk124)(); |
1245 |
vs_top=sup; |
vs_top=sup; |
1246 |
V199= vs_base[0]; |
V201= vs_base[0]; |
1247 |
V196= list(3,V198,number_times((V182),V199),Cnil);} |
V198= list(3,V200,number_times((V184),V201),Cnil);} |
1248 |
goto T534; |
goto T537; |
1249 |
T534:; |
T537:; |
1250 |
if(((V196))==Cnil){ |
if(((V198))==Cnil){ |
1251 |
goto T542;} |
goto T545;} |
1252 |
{object V200 = (V196); |
{object V202 = (V198); |
1253 |
VMR9(V200)} |
VMR9(V202)} |
1254 |
goto T542; |
goto T545; |
1255 |
T542:; |
T545:; |
1256 |
{object V201; |
{object V203; |
1257 |
register long V202; |
register long V204; |
1258 |
long V203; |
long V205; |
|
long V204; |
|
|
object V205; |
|
1259 |
long V206; |
long V206; |
1260 |
V201= (VFUN_NARGS=5,(*(LnkLI118))((V182),VV[50],VV[59],VV[52],Ct)); |
object V207; |
1261 |
V202= 0; |
long V208; |
1262 |
V203= 0; |
V203= (VFUN_NARGS=5,(*(LnkLI119))((V184),VV[50],VV[59],VV[52],Ct)); |
1263 |
V204= 0; |
V204= 0; |
1264 |
|
V205= 0; |
1265 |
V206= 0; |
V206= 0; |
1266 |
V205= Cnil; |
V208= 0; |
1267 |
{register object V207; |
V207= Cnil; |
1268 |
register object V208; |
{register object V209; |
1269 |
V207= (V184); |
register object V210; |
1270 |
V208= car((V207)); |
V209= (V186); |
1271 |
goto T553; |
V210= car((V209)); |
1272 |
T553:; |
goto T556; |
1273 |
if(!(endp_prop((V207)))){ |
T556:; |
1274 |
goto T554;} |
if(!(endp_prop((V209)))){ |
1275 |
goto T549; |
goto T557;} |
1276 |
goto T554; |
goto T552; |
1277 |
T554:; |
goto T557; |
1278 |
V205= caddr((V208)); |
T557:; |
1279 |
base[1]= (V205); |
V207= caddr((V210)); |
1280 |
|
base[1]= (V207); |
1281 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1282 |
(void) (*Lnk119)(); |
(void) (*Lnk120)(); |
1283 |
vs_top=sup; |
vs_top=sup; |
1284 |
V204= fix(vs_base[0]); |
V206= fix(vs_base[0]); |
1285 |
V209 = make_fixnum(V204); |
V211 = make_fixnum(V206); |
1286 |
if(number_compare(V209,symbol_value(VV[55]))<=0){ |
if(number_compare(V211,symbol_value(VV[55]))<=0){ |
1287 |
goto T563;} |
goto T566;} |
1288 |
V205= Ct; |
V207= Ct; |
1289 |
if(type_of(cddr(V208))!=t_cons)FEwrong_type_argument(Scons,cddr(V208)); |
if(type_of(cddr(V210))!=t_cons)FEwrong_type_argument(Scons,cddr(V210)); |
1290 |
(cddr(V208))->c.c_car = Ct; |
(cddr(V210))->c.c_car = Ct; |
1291 |
(void)(cddr(V208)); |
(void)(cddr(V210)); |
1292 |
V204= fix(symbol_value(VV[55])); |
V206= fix(symbol_value(VV[55])); |
1293 |
V208= nconc((V208),VV[60]); |
V210= nconc((V210),VV[60]); |
1294 |
goto T563; |
goto T566; |
1295 |
T563:; |
T566:; |
1296 |
V206= (long)(*(LnkLI124))(V202,V204); |
V208= (long)(*(LnkLI125))(V204,V206); |
1297 |
if(!((V202)==(V206))){ |
if(!((V204)==(V208))){ |
1298 |
goto T576;} |
goto T579;} |
1299 |
goto T575; |
goto T578; |
1300 |
goto T576; |
goto T579; |
1301 |
T576:; |
T579:; |
1302 |
V187= Ct; |
V189= Ct; |
1303 |
goto T575; |
goto T578; |
1304 |
T575:; |
T578:; |
1305 |
V202= V206; |
V204= V208; |
1306 |
V212 = make_fixnum(V202); |
V214 = make_fixnum(V204); |
1307 |
(void)(aset1((V201),V203,V212)); |
(void)(aset1((V203),V205,V214)); |
1308 |
V213 = make_fixnum(V202); |
V215 = make_fixnum(V204); |
1309 |
base[1]= (V205); |
base[1]= (V207); |
1310 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1311 |
(void) (*Lnk123)(); |
(void) (*Lnk124)(); |
1312 |
vs_top=sup; |
vs_top=sup; |
1313 |
V214= vs_base[0]; |
V216= vs_base[0]; |
1314 |
V202= fix(number_plus(V213,V214)); |
V204= fix(number_plus(V215,V216)); |
1315 |
V203= (long)(V203)+(1); |
V205= (long)(V205)+(1); |
1316 |
V207= cdr((V207)); |
V209= cdr((V209)); |
1317 |
V208= car((V207)); |
V210= car((V209)); |
1318 |
goto T553;} |
goto T556;} |
1319 |
goto T549; |
goto T552; |
1320 |
T549:; |
T552:; |
1321 |
base[0]= Ct; |
base[0]= Ct; |
1322 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1323 |
(void) (*Lnk123)(); |
(void) (*Lnk124)(); |
1324 |
vs_top=sup; |
vs_top=sup; |
1325 |
V215= vs_base[0]; |
V217= vs_base[0]; |
1326 |
V216 = make_fixnum((long)(*(LnkLI124))(V202,fix(V215))); |
V218 = make_fixnum((long)(*(LnkLI125))(V204,fix(V217))); |
1327 |
{object V217 = list(3,(V201),V216,(V187)); |
{object V219 = list(3,(V203),V218,(V189)); |
1328 |
VMR9(V217)}}}} |
VMR9(V219)}}}} |
1329 |
base[0]=base[0]; |
base[0]=base[0]; |
1330 |
return Cnil; |
return Cnil; |
1331 |
} |
} |
1332 |
/* local entry for function DEFINE-STRUCTURE */ |
/* local entry for function DEFINE-STRUCTURE */ |
1333 |
|
|
1334 |
static object LI10(object V229,object V228,object V227,object V226,object V225,object V224,object V223,object V222,object V221,object V220,object V219,object V218,object first,...) |
static object LI10(object V232,object V231,object V230,object V229,object V228,object V227,object V226,object V225,object V224,object V223,object V222,object V221,object V220,object first,...) |
1335 |
{ |
{ |
1336 |
va_list ap; |
va_list ap; |
1337 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
1338 |
{object V230; |
{object V233; |
|
register object V231; |
|
|
object V232; |
|
|
object V233; |
|
1339 |
object V234; |
object V234; |
1340 |
object V235; |
register object V235; |
1341 |
register object V236; |
object V236; |
1342 |
object V237; |
object V237; |
1343 |
object V238; |
object V238; |
1344 |
object V239; |
object V239; |
1345 |
object V240; |
register object V240; |
1346 |
object V241; |
object V241; |
1347 |
register object V242; |
object V242; |
1348 |
|
object V243; |
1349 |
|
object V244; |
1350 |
|
object V245; |
1351 |
|
register object V246; |
1352 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1353 |
va_start(ap,first); |
va_start(ap,first); |
1354 |
if(narg <12) too_few_arguments(); |
if(narg <13) too_few_arguments(); |
1355 |
Vcs[0]=MMcons(V229,Cnil); |
Vcs[0]=MMcons(V232,Cnil); |
1356 |
V230= V228; |
V233= V231; |
1357 |
V231= V227; |
V234= V230; |
1358 |
V232= V226; |
V235= V229; |
1359 |
V233= V225; |
V236= V228; |
1360 |
V234= V224; |
V237= V227; |
1361 |
V235= V223; |
V238= V226; |
1362 |
V236= V222; |
V239= V225; |
1363 |
V237= V221; |
V240= V224; |
1364 |
V238= V220; |
V241= V223; |
1365 |
V239= V219; |
V242= V222; |
1366 |
V240= V218; |
V243= V221; |
1367 |
narg = narg - 12; |
V244= V220; |
1368 |
if (narg <= 0) goto T595; |
narg = narg - 13; |
1369 |
|
if (narg <= 0) goto T598; |
1370 |
else { |
else { |
1371 |
V241= first;} |
V245= first;} |
1372 |
if (--narg <= 0) goto T596; |
if (--narg <= 0) goto T599; |
1373 |
else { |
else { |
1374 |
V242= va_arg(ap,object);} |
V246= va_arg(ap,object);} |
1375 |
--narg; goto T597; |
--narg; goto T600; |
1376 |
goto T595; |
goto T598; |
1377 |
T595:; |
T598:; |
1378 |
V241= Cnil; |
V245= Cnil; |
1379 |
goto T596; |
goto T599; |
1380 |
T596:; |
T599:; |
1381 |
V242= Cnil; |
V246= Cnil; |
1382 |
goto T597; |
goto T600; |
1383 |
T597:; |
T600:; |
1384 |
{object V243; |
{object V247; |
1385 |
object V244; |
object V248; |
1386 |
V243= Cnil; |
V247= Cnil; |
1387 |
V244= Cnil; |
V248= Cnil; |
1388 |
if(type_of((V231))==t_cons){ |
if(type_of((V235))==t_cons){ |
1389 |
goto T603;} |
goto T606;} |
1390 |
goto T602; |
goto T605; |
1391 |
goto T603; |
goto T606; |
1392 |
T603:; |
T606:; |
1393 |
if((car((V231)))==(VV[19])){ |
if((car((V235)))==(VV[19])){ |
1394 |
goto T605;} |
goto T608;} |
1395 |
goto T602; |
goto T605; |
1396 |
|
goto T608; |
1397 |
|
T608:; |
1398 |
|
V235= VV[19]; |
1399 |
goto T605; |
goto T605; |
1400 |
T605:; |
T605:; |
1401 |
V231= VV[19]; |
V248= make_fixnum((long)length((V237))); |
1402 |
goto T602; |
{register object V249; |
1403 |
T602:; |
register object V250; |
1404 |
V244= make_fixnum((long)length((V233))); |
V249= (V237); |
1405 |
{register object V245; |
V250= car((V249)); |
1406 |
register object V246; |
goto T617; |
1407 |
V245= (V233); |
T617:; |
1408 |
V246= car((V245)); |
if(!(endp_prop((V249)))){ |
1409 |
goto T614; |
goto T618;} |
1410 |
T614:; |
goto T613; |
1411 |
if(!(endp_prop((V245)))){ |
goto T618; |
1412 |
goto T615;} |
T618:; |
1413 |
goto T610; |
if((V250)==Cnil){ |
1414 |
goto T615; |
goto T622;} |
1415 |
T615:; |
if((car((V250)))!=Cnil){ |
1416 |
if((V246)==Cnil){ |
goto T623;} |
1417 |
goto T619;} |
goto T622; |
1418 |
if((car((V246)))!=Cnil){ |
goto T623; |
1419 |
goto T620;} |
T623:; |
|
goto T619; |
|
|
goto T620; |
|
|
T620:; |
|
1420 |
base[1]= (Vcs[0]->c.c_car); |
base[1]= (Vcs[0]->c.c_car); |
1421 |
base[2]= (V230); |
base[2]= (V233); |
1422 |
base[3]= (V231); |
base[3]= (V234); |
1423 |
base[4]= (V232); |
base[4]= (V235); |
1424 |
base[5]= (V236); |
base[5]= (V236); |
1425 |
base[6]= (V242); |
base[6]= (V240); |
1426 |
{object V247; |
base[7]= (V246); |
1427 |
V247= (V246); |
{object V251; |
1428 |
vs_top=base+7; |
V251= (V250); |
1429 |
while(!endp(V247)) |
vs_top=base+8; |
1430 |
{vs_push(car(V247));V247=cdr(V247);} |
while(!endp(V251)) |
1431 |
|
{vs_push(car(V251));V251=cdr(V251);} |
1432 |
vs_base=base+1;} |
vs_base=base+1;} |
1433 |
(void) (*Lnk125)(); |
(void) (*Lnk126)(); |
1434 |
vs_top=sup; |
vs_top=sup; |
1435 |
goto T619; |
goto T622; |
1436 |
T619:; |
T622:; |
1437 |
V245= cdr((V245)); |
V249= cdr((V249)); |
1438 |
V246= car((V245)); |
V250= car((V249)); |
1439 |
goto T614;} |
goto T617;} |
1440 |
goto T610; |
goto T613; |
1441 |
T610:; |
T613:; |
1442 |
if(((V234))==Cnil){ |
if(((V238))==Cnil){ |
1443 |
goto T634;} |
goto T638;} |
1444 |
if(((V242))!=Cnil){ |
if(((V246))!=Cnil){ |
1445 |
goto T634;} |
goto T638;} |
1446 |
base[0]= (V234); |
base[0]= (V238); |
1447 |
{object V248= (V231); |
{object V252= (V235); |
1448 |
if((V248!= Cnil))goto T641; |
if((V252!= Cnil))goto T645; |
|
base[1]= symbol_function(VV[126]); |
|
|
goto T640; |
|
|
goto T641; |
|
|
T641:; |
|
|
if((V248!= VV[20]))goto T642; |
|
1449 |
base[1]= symbol_function(VV[127]); |
base[1]= symbol_function(VV[127]); |
1450 |
goto T640; |
goto T644; |
1451 |
goto T642; |
goto T645; |
1452 |
T642:; |
T645:; |
1453 |
if((V248!= VV[19]))goto T643; |
if((V252!= VV[20]))goto T646; |
1454 |
base[1]= symbol_function(VV[128]); |
base[1]= symbol_function(VV[128]); |
1455 |
goto T640; |
goto T644; |
1456 |
goto T643; |
goto T646; |
1457 |
T643:; |
T646:; |
1458 |
FEerror("The ECASE key value ~s is illegal.",1,V248); |
if((V252!= VV[19]))goto T647; |
1459 |
|
base[1]= symbol_function(VV[129]); |
1460 |
|
goto T644; |
1461 |
|
goto T647; |
1462 |
|
T647:; |
1463 |
|
FEerror("The ECASE key value ~s is illegal.",1,V252); |
1464 |
base[1]= Cnil; |
base[1]= Cnil; |
1465 |
goto T640;} |
goto T644;} |
1466 |
goto T640; |
goto T644; |
1467 |
T640:; |
T644:; |
1468 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1469 |
siLfset(); |
siLfset(); |
1470 |
vs_top=sup; |
vs_top=sup; |
1471 |
goto T634; |
goto T638; |
1472 |
T634:; |
T638:; |
1473 |
if(((V231))!=Cnil){ |
if(((V235))!=Cnil){ |
1474 |
goto T646;} |
goto T650;} |
1475 |
if(!(((Vcs[0]->c.c_car))==(VV[53]))){ |
if(!(((Vcs[0]->c.c_car))==(VV[53]))){ |
1476 |
goto T646;} |
goto T650;} |
1477 |
base[1]= Ct; |
base[1]= Ct; |
1478 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1479 |
(void) (*Lnk123)(); |
(void) (*Lnk124)(); |
1480 |
vs_top=sup; |
vs_top=sup; |
1481 |
V249= vs_base[0]; |
V253= vs_base[0]; |
1482 |
V250= number_times((V244),V249); |
V254= number_times((V248),V253); |
1483 |
base[0]= (VFUN_NARGS=5,(*(LnkLI118))(/* INLINE-ARGS */V250,VV[50],VV[61],VV[52],Ct)); |
base[0]= (VFUN_NARGS=5,(*(LnkLI119))(/* INLINE-ARGS */V254,VV[50],VV[61],VV[52],Ct)); |
1484 |
base[1]= (*(LnkLI129))((V244),Cnil,(V233)); |
base[1]= (*(LnkLI130))((V248),Cnil,(V237)); |
1485 |
base[2]= symbol_value(VV[57]); |
base[2]= symbol_value(VV[57]); |
1486 |
base[3]= (V233); |
base[3]= (V237); |
1487 |
base[4]= Ct; |
base[4]= Ct; |
1488 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
1489 |
(void) (*Lnk130)(); |
(void) (*Lnk131)(); |
1490 |
vs_top=sup; |
vs_top=sup; |
1491 |
V243= vs_base[0]; |
V247= vs_base[0]; |
1492 |
goto T644; |
goto T648; |
1493 |
goto T646; |
goto T650; |
1494 |
T646:; |
T650:; |
|
{object V251; |
|
|
object V252; |
|
|
object V253; |
|
|
object V254; |
|
|
if((V236)==Cnil){ |
|
|
V254= Cnil; |
|
|
goto T658;} |
|
|
V254= get((V236),VV[53],Cnil); |
|
|
goto T658; |
|
|
T658:; |
|
|
V251= Cnil; |
|
|
V252= small_fixnum(0); |
|
|
V253= Cnil; |
|
|
if(((V254))==Cnil){ |
|
|
goto T659;} |
|
|
if((structure_ref((V254),VV[53],11))==Cnil){ |
|
|
goto T662;} |
|
|
if((structure_ref((V254),VV[53],3))==Cnil){ |
|
|
goto T663;} |
|
1495 |
{object V255; |
{object V255; |
1496 |
V255= get((Vcs[0]->c.c_car),VV[53],Cnil); |
object V256; |
1497 |
if((V255)==Cnil){ |
object V257; |
1498 |
goto T668;} |
object V258; |
1499 |
V256= structure_ref((V255),VV[53],4); |
if((V240)==Cnil){ |
1500 |
if((/* INLINE-ARGS */V256)==((V254))){ |
V258= Cnil; |
1501 |
goto T662;}} |
goto T662;} |
1502 |
goto T668; |
V258= get((V240),VV[53],Cnil); |
|
T668:; |
|
|
goto T663; |
|
|
T663:; |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI131))(VV[62],(V236)))); |
|
1503 |
goto T662; |
goto T662; |
1504 |
T662:; |
T662:; |
1505 |
{object V257; |
V255= Cnil; |
1506 |
object V259; |
V256= small_fixnum(0); |
1507 |
V257= (Vcs[0]->c.c_car); |
V257= Cnil; |
1508 |
base[1]= (V257); |
if(((V258))==Cnil){ |
1509 |
base[2]= structure_ref(V254,VV[53],3); |
goto T663;} |
1510 |
|
if((structure_ref((V258),VV[53],11))==Cnil){ |
1511 |
|
goto T666;} |
1512 |
|
if((structure_ref((V258),VV[53],3))==Cnil){ |
1513 |
|
goto T667;} |
1514 |
|
{object V259; |
1515 |
|
V259= get((Vcs[0]->c.c_car),VV[53],Cnil); |
1516 |
|
if((V259)==Cnil){ |
1517 |
|
goto T672;} |
1518 |
|
V260= structure_ref((V259),VV[53],4); |
1519 |
|
if((/* INLINE-ARGS */V260)==((V258))){ |
1520 |
|
goto T666;}} |
1521 |
|
goto T672; |
1522 |
|
T672:; |
1523 |
|
goto T667; |
1524 |
|
T667:; |
1525 |
|
(void)((VFUN_NARGS=2,(*(LnkLI132))(VV[62],(V240)))); |
1526 |
|
goto T666; |
1527 |
|
T666:; |
1528 |
|
{object V261; |
1529 |
|
object V263; |
1530 |
|
V261= (Vcs[0]->c.c_car); |
1531 |
|
base[1]= (V261); |
1532 |
|
base[2]= structure_ref(V258,VV[53],3); |
1533 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1534 |
Ladjoin(); |
Ladjoin(); |
1535 |
vs_top=sup; |
vs_top=sup; |
1536 |
V259= vs_base[0]; |
V263= vs_base[0]; |
1537 |
(void)(structure_set(V254,VV[53],3,(V259)));} |
(void)(structure_set(V258,VV[53],3,(V263)));} |
1538 |
goto T659; |
goto T663; |
1539 |
T659:; |
T663:; |
1540 |
if(((V231))!=Cnil){ |
if(((V235))!=Cnil){ |
1541 |
goto T674;} |
goto T678;} |
1542 |
V251= (*(LnkLI132))((V244),(V236),(V233)); |
V255= (*(LnkLI133))((V248),(V240),(V237)); |
1543 |
V252= cadr((V251)); |
V256= cadr((V255)); |
1544 |
V253= caddr((V251)); |
V257= caddr((V255)); |
1545 |
V251= car((V251)); |
V255= car((V255)); |
1546 |
goto T674; |
goto T678; |
1547 |
T674:; |
T678:; |
1548 |
if(((V231))==Cnil){ |
if(((V235))==Cnil){ |
|
goto T686;} |
|
|
V260= Cnil; |
|
|
goto T685; |
|
|
goto T686; |
|
|
T686:; |
|
|
V260= (*(LnkLI129))((V244),(V236),(V233)); |
|
|
goto T685; |
|
|
T685:; |
|
|
V243= (VFUN_NARGS=32,(*(LnkLI133))(VV[63],(Vcs[0]->c.c_car),VV[64],(V244),VV[65],V260,VV[66],(V251),VV[67],(V252),VV[68],(V253),VV[69],(V235),VV[70],(V254),VV[71],(V237),VV[72],(V233),VV[73],(V238),VV[74],(V239),VV[75],(V231),VV[76],(V232),VV[77],(V241),VV[78],(V230)));} |
|
|
goto T644; |
|
|
T644:; |
|
|
{object V261; |
|
|
V261= get((Vcs[0]->c.c_car),VV[53],Cnil); |
|
|
if(!(((Vcs[0]->c.c_car))==(VV[53]))){ |
|
|
goto T692;} |
|
|
if(((V261))==Cnil){ |
|
|
goto T694;} |
|
|
(void)((VFUN_NARGS=1,(*(LnkLI131))(VV[79]))); |
|
|
goto T694; |
|
|
T694:; |
|
|
if((V261)!=Cnil){ |
|
1549 |
goto T690;} |
goto T690;} |
1550 |
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V243))); |
V264= Cnil; |
1551 |
goto T690; |
goto T689; |
1552 |
goto T692; |
goto T690; |
1553 |
T692:; |
T690:; |
1554 |
if(((V261))==Cnil){ |
V264= (*(LnkLI130))((V248),(V240),(V237)); |
1555 |
|
goto T689; |
1556 |
|
T689:; |
1557 |
|
V247= (VFUN_NARGS=32,(*(LnkLI134))(VV[63],(Vcs[0]->c.c_car),VV[64],(V248),VV[65],V264,VV[66],(V255),VV[67],(V256),VV[68],(V257),VV[69],(V239),VV[70],(V258),VV[71],(V241),VV[72],(V237),VV[73],(V242),VV[74],(V243),VV[75],(V235),VV[76],(V236),VV[77],(V245),VV[78],(V233)));} |
1558 |
|
goto T648; |
1559 |
|
T648:; |
1560 |
|
{object V265; |
1561 |
|
V265= get((Vcs[0]->c.c_car),VV[53],Cnil); |
1562 |
|
if(!(((Vcs[0]->c.c_car))==(VV[53]))){ |
1563 |
|
goto T696;} |
1564 |
|
if(((V265))==Cnil){ |
1565 |
goto T698;} |
goto T698;} |
1566 |
(void)((*(LnkLI134))((V261),(V243),(Vcs[0]->c.c_car))); |
(void)((VFUN_NARGS=1,(*(LnkLI132))(VV[79]))); |
|
goto T690; |
|
1567 |
goto T698; |
goto T698; |
1568 |
T698:; |
T698:; |
1569 |
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V243))); |
if((V265)!=Cnil){ |
1570 |
goto T690; |
goto T694;} |
1571 |
T690:; |
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V247))); |
1572 |
if(((V241))==Cnil){ |
goto T694; |
1573 |
goto T700;} |
goto T696; |
1574 |
(void)(sputprop((Vcs[0]->c.c_car),VV[80],(V241))); |
T696:; |
1575 |
goto T700; |
if(((V265))==Cnil){ |
1576 |
T700:; |
goto T702;} |
1577 |
if(((V231))!=Cnil){ |
(void)((*(LnkLI135))((V265),(V247),(Vcs[0]->c.c_car))); |
1578 |
goto T688;} |
goto T694; |
1579 |
if(((V240))==Cnil){ |
goto T702; |
1580 |
goto T688;} |
T702:; |
1581 |
base[0]= (V240); |
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V247))); |
1582 |
|
goto T694; |
1583 |
|
T694:; |
1584 |
|
if(((V245))==Cnil){ |
1585 |
|
goto T704;} |
1586 |
|
(void)(sputprop((Vcs[0]->c.c_car),VV[80],(V245))); |
1587 |
|
goto T704; |
1588 |
|
T704:; |
1589 |
|
if(((V235))!=Cnil){ |
1590 |
|
goto T692;} |
1591 |
|
if(((V244))==Cnil){ |
1592 |
|
goto T692;} |
1593 |
|
base[0]= (V244); |
1594 |
base[1]= VV[3]; |
base[1]= VV[3]; |
1595 |
base[2]= VV[81]; |
base[2]= VV[81]; |
1596 |
base[3]= Ct; |
base[3]= Ct; |
1597 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1598 |
(void) (*Lnk109)(); |
(void) (*Lnk110)(); |
1599 |
vs_top=sup; |
vs_top=sup; |
1600 |
if((V242)!=Cnil){ |
if((V246)!=Cnil){ |
1601 |
goto T712;} |
goto T716;} |
1602 |
base[0]= (V240); |
base[0]= (V244); |
1603 |
base[1]= |
base[1]= |
1604 |
make_cclosure_new(LC20,Cnil,Vcs[0],Cdata); |
make_cclosure_new(LC20,Cnil,Vcs[0],Cdata); |
1605 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1606 |
siLfset(); |
siLfset(); |
1607 |
vs_top=sup; |
vs_top=sup; |
1608 |
goto T712; |
goto T716; |
1609 |
T712:; |
T716:; |
1610 |
(void)(sputprop((V240),VV[82],VV[83])); |
(void)(sputprop((V244),VV[82],VV[83])); |
1611 |
(void)(sputprop((V240),VV[84],(Vcs[0]->c.c_car)));} |
(void)(sputprop((V244),VV[84],(Vcs[0]->c.c_car)));} |
1612 |
goto T688; |
goto T692; |
1613 |
T688:; |
T692:; |
1614 |
{object V262 = Cnil; |
{object V266 = Cnil; |
1615 |
VMR10(V262)}} |
VMR10(V266)}} |
1616 |
va_end(ap); |
va_end(ap); |
1617 |
base[0]=base[0]; |
base[0]=base[0]; |
1618 |
return Cnil;} |
return Cnil;} |
1625 |
vs_reserve(VM11); |
vs_reserve(VM11); |
1626 |
check_arg(2); |
check_arg(2); |
1627 |
vs_top=sup; |
vs_top=sup; |
1628 |
{object V263=base[0]->c.c_cdr; |
{object V267=base[0]->c.c_cdr; |
1629 |
if(endp(V263))invalid_macro_call(); |
if(endp(V267))invalid_macro_call(); |
1630 |
base[2]= (V263->c.c_car); |
base[2]= (V267->c.c_car); |
1631 |
V263=V263->c.c_cdr; |
V267=V267->c.c_cdr; |
1632 |
base[3]= V263;} |
base[3]= V267;} |
1633 |
{register object V264; |
{register object V268; |
1634 |
object V265; |
object V269; |
|
register object V266; |
|
|
register object V267; |
|
|
register object V268; |
|
|
register object V269; |
|
1635 |
register object V270; |
register object V270; |
1636 |
register object V271; |
register object V271; |
1637 |
register object V272; |
register object V272; |
1641 |
register object V276; |
register object V276; |
1642 |
register object V277; |
register object V277; |
1643 |
register object V278; |
register object V278; |
1644 |
object V279; |
register object V279; |
1645 |
object V280; |
register object V280; |
1646 |
register object V281; |
register object V281; |
1647 |
V264= base[3]; |
register object V282; |
1648 |
V265= Cnil; |
object V283; |
1649 |
V266= Cnil; |
object V284; |
1650 |
V267= Cnil; |
register object V285; |
1651 |
V268= Cnil; |
register object V286; |
1652 |
|
V268= base[3]; |
1653 |
V269= Cnil; |
V269= Cnil; |
1654 |
V270= Cnil; |
V270= Cnil; |
1655 |
V271= Cnil; |
V271= Cnil; |
1663 |
V279= Cnil; |
V279= Cnil; |
1664 |
V280= Cnil; |
V280= Cnil; |
1665 |
V281= Cnil; |
V281= Cnil; |
1666 |
|
V282= Cnil; |
1667 |
|
V283= Cnil; |
1668 |
|
V284= Cnil; |
1669 |
|
V285= Cnil; |
1670 |
|
V286= Cnil; |
1671 |
if(!(type_of(base[2])==t_cons)){ |
if(!(type_of(base[2])==t_cons)){ |
1672 |
goto T716;} |
goto T720;} |
1673 |
V265= cdr(base[2]); |
V269= cdr(base[2]); |
1674 |
base[2]= car(base[2]); |
base[2]= car(base[2]); |
1675 |
goto T716; |
goto T720; |
1676 |
T716:; |
T720:; |
1677 |
base[4]= coerce_to_string(base[2]); |
base[4]= coerce_to_string(base[2]); |
1678 |
base[5]= VV[85]; |
base[5]= VV[85]; |
1679 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1680 |
(void) (*Lnk107)(); |
(void) (*Lnk108)(); |
1681 |
vs_top=sup; |
vs_top=sup; |
1682 |
V266= vs_base[0]; |
V270= vs_base[0]; |
1683 |
base[5]= VV[86]; |
base[5]= VV[86]; |
1684 |
base[6]= coerce_to_string(base[2]); |
base[6]= coerce_to_string(base[2]); |
1685 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1686 |
(void) (*Lnk107)(); |
(void) (*Lnk108)(); |
1687 |
vs_top=sup; |
vs_top=sup; |
1688 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1689 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1690 |
Lintern(); |
Lintern(); |
1691 |
vs_top=sup; |
vs_top=sup; |
1692 |
V268= vs_base[0]; |
V272= vs_base[0]; |
1693 |
base[5]= VV[87]; |
base[5]= VV[87]; |
1694 |
base[6]= coerce_to_string(base[2]); |
base[6]= coerce_to_string(base[2]); |
1695 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1696 |
(void) (*Lnk107)(); |
(void) (*Lnk108)(); |
1697 |
vs_top=sup; |
vs_top=sup; |
1698 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1699 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1700 |
Lintern(); |
Lintern(); |
1701 |
vs_top=sup; |
vs_top=sup; |
1702 |
V270= vs_base[0]; |
V274= vs_base[0]; |
1703 |
base[5]= coerce_to_string(base[2]); |
base[5]= coerce_to_string(base[2]); |
1704 |
base[6]= VV[88]; |
base[6]= VV[88]; |
1705 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1706 |
(void) (*Lnk107)(); |
(void) (*Lnk108)(); |
1707 |
vs_top=sup; |
vs_top=sup; |
1708 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1709 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1710 |
Lintern(); |
Lintern(); |
1711 |
vs_top=sup; |
vs_top=sup; |
1712 |
V271= vs_base[0]; |
V275= vs_base[0]; |
1713 |
{register object V282; |
{register object V287; |
1714 |
register object V283; |
register object V288; |
1715 |
register object V284; |
register object V289; |
1716 |
V282= (V265); |
V287= (V269); |
1717 |
V283= Cnil; |
V288= Cnil; |
1718 |
V284= Cnil; |
V289= Cnil; |
1719 |
goto T743; |
goto T747; |
1720 |
T743:; |
T747:; |
1721 |
if(!(endp_prop((V282)))){ |
if(!(endp_prop((V287)))){ |
1722 |
goto T744;} |
goto T748;} |
1723 |
goto T741; |
goto T745; |
1724 |
goto T744; |
goto T748; |
1725 |
T744:; |
T748:; |
1726 |
if(!(type_of(car((V282)))==t_cons)){ |
if(!(type_of(car((V287)))==t_cons)){ |
1727 |
goto T750;} |
goto T754;} |
1728 |
if(endp_prop(cdar((V282)))){ |
if(endp_prop(cdar((V287)))){ |
1729 |
goto T750;} |
goto T754;} |
1730 |
V283= caar((V282)); |
V288= caar((V287)); |
1731 |
V284= cadar((V282)); |
V289= cadar((V287)); |
1732 |
{object V285= (V283); |
{object V290= (V288); |
1733 |
if((V285!= VV[78]))goto T758; |
if((V290!= VV[78]))goto T762; |
1734 |
if(((V284))!=Cnil){ |
if(((V289))!=Cnil){ |
1735 |
goto T760;} |
goto T764;} |
1736 |
V266= VV[89]; |
V270= VV[89]; |
1737 |
goto T748; |
V286= Ct; |
1738 |
goto T760; |
goto T752; |
|
T760:; |
|
|
V266= (V284); |
|
|
goto T748; |
|
|
goto T758; |
|
|
T758:; |
|
|
if((V285!= VV[135]))goto T764; |
|
|
if(((V284))!=Cnil){ |
|
|
goto T766;} |
|
|
V269= Ct; |
|
|
goto T748; |
|
|
goto T766; |
|
|
T766:; |
|
|
if(!(endp_prop(cddar((V282))))){ |
|
|
goto T770;} |
|
|
V267= make_cons((V284),(V267)); |
|
|
goto T748; |
|
|
goto T770; |
|
|
T770:; |
|
|
V267= make_cons(cdar((V282)),(V267)); |
|
|
goto T748; |
|
1739 |
goto T764; |
goto T764; |
1740 |
T764:; |
T764:; |
1741 |
if((V285!= VV[136]))goto T774; |
V270= (V289); |
1742 |
V270= (V284); |
goto T752; |
1743 |
goto T748; |
goto T762; |
1744 |
goto T774; |
T762:; |
1745 |
T774:; |
if((V290!= VV[136]))goto T770; |
1746 |
if((V285!= VV[52]))goto T776; |
if(((V289))!=Cnil){ |
1747 |
V281= (V284); |
goto T772;} |
1748 |
goto T748; |
V273= Ct; |
1749 |
|
goto T752; |
1750 |
|
goto T772; |
1751 |
|
T772:; |
1752 |
|
if(!(endp_prop(cddar((V287))))){ |
1753 |
|
goto T776;} |
1754 |
|
V271= make_cons((V289),(V271)); |
1755 |
|
goto T752; |
1756 |
goto T776; |
goto T776; |
1757 |
T776:; |
T776:; |
1758 |
if((V285!= VV[137]))goto T778; |
V271= make_cons(cdar((V287)),(V271)); |
1759 |
V271= (V284); |
goto T752; |
1760 |
V272= Ct; |
goto T770; |
1761 |
goto T748; |
T770:; |
1762 |
goto T778; |
if((V290!= VV[137]))goto T780; |
1763 |
T778:; |
V274= (V289); |
1764 |
if((V285!= VV[138]))goto T782; |
goto T752; |
1765 |
V273= cdar((V282)); |
goto T780; |
1766 |
if((get((V284),VV[53],Cnil))!=Cnil){ |
T780:; |
1767 |
goto T748;} |
if((V290!= VV[52]))goto T782; |
1768 |
|
V285= (V289); |
1769 |
|
goto T752; |
1770 |
|
goto T782; |
1771 |
|
T782:; |
1772 |
|
if((V290!= VV[138]))goto T784; |
1773 |
|
V275= (V289); |
1774 |
|
V276= Ct; |
1775 |
|
goto T752; |
1776 |
|
goto T784; |
1777 |
|
T784:; |
1778 |
|
if((V290!= VV[139]))goto T788; |
1779 |
|
V277= cdar((V287)); |
1780 |
|
if((get((V289),VV[53],Cnil))!=Cnil){ |
1781 |
|
goto T752;} |
1782 |
base[4]= VV[90]; |
base[4]= VV[90]; |
1783 |
base[5]= (V284); |
base[5]= (V289); |
1784 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1785 |
Lerror(); |
Lerror(); |
1786 |
vs_top=sup; |
vs_top=sup; |
1787 |
goto T748; |
goto T752; |
1788 |
goto T782; |
goto T788; |
1789 |
T782:; |
T788:; |
1790 |
if((V285!= VV[71]))goto T789; |
if((V290!= VV[71]))goto T795; |
1791 |
if(type_of((V284))==t_cons){ |
if(type_of((V289))==t_cons){ |
1792 |
goto T791;} |
goto T797;} |
1793 |
goto T790; |
goto T796; |
|
goto T791; |
|
|
T791:; |
|
|
if((car((V284)))==(VV[91])){ |
|
|
goto T793;} |
|
|
goto T790; |
|
|
goto T793; |
|
|
T793:; |
|
|
V284= cadr((V284)); |
|
|
goto T790; |
|
|
T790:; |
|
|
V274= (V284); |
|
|
goto T748; |
|
|
goto T789; |
|
|
T789:; |
|
|
if((V285!= VV[75]))goto T797; |
|
|
V275= (V284); |
|
|
goto T748; |
|
1794 |
goto T797; |
goto T797; |
1795 |
T797:; |
T797:; |
1796 |
if((V285!= VV[139]))goto T799; |
if((car((V289)))==(VV[91])){ |
1797 |
V277= (V284); |
goto T799;} |
1798 |
goto T748; |
goto T796; |
1799 |
goto T799; |
goto T799; |
1800 |
T799:; |
T799:; |
1801 |
|
V289= cadr((V289)); |
1802 |
|
goto T796; |
1803 |
|
T796:; |
1804 |
|
V278= (V289); |
1805 |
|
goto T752; |
1806 |
|
goto T795; |
1807 |
|
T795:; |
1808 |
|
if((V290!= VV[75]))goto T803; |
1809 |
|
V279= (V289); |
1810 |
|
goto T752; |
1811 |
|
goto T803; |
1812 |
|
T803:; |
1813 |
|
if((V290!= VV[140]))goto T805; |
1814 |
|
V281= (V289); |
1815 |
|
goto T752; |
1816 |
|
goto T805; |
1817 |
|
T805:; |
1818 |
base[4]= VV[92]; |
base[4]= VV[92]; |
1819 |
base[5]= (V283); |
base[5]= (V288); |
1820 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1821 |
Lerror(); |
Lerror(); |
1822 |
vs_top=sup; |
vs_top=sup; |
1823 |
goto T748;} |
goto T752;} |
1824 |
goto T750; |
goto T754; |
1825 |
T750:; |
T754:; |
1826 |
if(!(type_of(car((V282)))==t_cons)){ |
if(!(type_of(car((V287)))==t_cons)){ |
1827 |
goto T805;} |
goto T811;} |
1828 |
V283= caar((V282)); |
V288= caar((V287)); |
1829 |
goto T803; |
goto T809; |
|
goto T805; |
|
|
T805:; |
|
|
V283= car((V282)); |
|
|
goto T803; |
|
|
T803:; |
|
|
{object V286= (V283); |
|
|
if((V286!= VV[135]))goto T809; |
|
|
V267= make_cons((V268),(V267)); |
|
|
goto T748; |
|
|
goto T809; |
|
|
T809:; |
|
|
if((V286!= VV[78]) |
|
|
&& (V286!= VV[136]) |
|
|
&& (V286!= VV[137]) |
|
|
&& (V286!= VV[71]))goto T811; |
|
|
goto T748; |
|
1830 |
goto T811; |
goto T811; |
1831 |
T811:; |
T811:; |
1832 |
if((V286!= VV[76]))goto T812; |
V288= car((V287)); |
1833 |
V276= Ct; |
goto T809; |
1834 |
goto T748; |
T809:; |
1835 |
goto T812; |
{object V291= (V288); |
1836 |
T812:; |
if((V291!= VV[136]))goto T815; |
1837 |
base[4]= VV[93]; |
V271= make_cons((V272),(V271)); |
1838 |
base[5]= (V283); |
goto T752; |
1839 |
|
goto T815; |
1840 |
|
T815:; |
1841 |
|
if((V291!= VV[137]) |
1842 |
|
&& (V291!= VV[138]) |
1843 |
|
&& (V291!= VV[71]))goto T817; |
1844 |
|
goto T752; |
1845 |
|
goto T817; |
1846 |
|
T817:; |
1847 |
|
if((V291!= VV[78]))goto T818; |
1848 |
|
V270= VV[93]; |
1849 |
|
V286= Ct; |
1850 |
|
goto T752; |
1851 |
|
goto T818; |
1852 |
|
T818:; |
1853 |
|
if((V291!= VV[76]))goto T822; |
1854 |
|
V280= Ct; |
1855 |
|
goto T752; |
1856 |
|
goto T822; |
1857 |
|
T822:; |
1858 |
|
base[4]= VV[94]; |
1859 |
|
base[5]= (V288); |
1860 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1861 |
Lerror(); |
Lerror(); |
1862 |
vs_top=sup;} |
vs_top=sup;} |
1863 |
goto T748; |
goto T752; |
1864 |
T748:; |
T752:; |
1865 |
V282= cdr((V282)); |
V287= cdr((V287)); |
1866 |
goto T743;} |
goto T747;} |
1867 |
goto T741; |
goto T745; |
1868 |
T741:; |
T745:; |
1869 |
base[4]= coerce_to_string((V266)); |
base[4]= coerce_to_string((V270)); |
1870 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1871 |
Lintern(); |
Lintern(); |
1872 |
vs_top=sup; |
vs_top=sup; |
1873 |
V266= vs_base[0]; |
V270= vs_base[0]; |
1874 |
if((V273)==Cnil){ |
if((V277)==Cnil){ |
1875 |
goto T822;} |
goto T832;} |
1876 |
if(((V274))==Cnil){ |
if(((V278))==Cnil){ |
1877 |
goto T823;} |
goto T833;} |
1878 |
goto T822; |
goto T832; |
1879 |
goto T823; |
goto T833; |
1880 |
T823:; |
T833:; |
1881 |
V287= get(car((V273)),VV[53],Cnil); |
V292= get(car((V277)),VV[53],Cnil); |
1882 |
V274= structure_ref(V287,VV[53],6); |
V278= structure_ref(V292,VV[53],6); |
1883 |
goto T822; |
goto T832; |
1884 |
T822:; |
T832:; |
1885 |
if(endp_prop((V264))){ |
if(endp_prop((V268))){ |
1886 |
goto T827;} |
goto T837;} |
1887 |
if(!(type_of(car((V264)))==t_string)){ |
if(!(type_of(car((V268)))==t_string)){ |
1888 |
goto T827;} |
goto T837;} |
1889 |
V280= car((V264)); |
V284= car((V268)); |
1890 |
V264= cdr((V264)); |
V268= cdr((V268)); |
1891 |
goto T827; |
goto T837; |
1892 |
T827:; |
T837:; |
1893 |
if(((V273))==Cnil){ |
if(((V277))==Cnil){ |
1894 |
goto T835;} |
goto T845;} |
1895 |
V288= get(car((V273)),VV[53],Cnil); |
V293= get(car((V277)),VV[53],Cnil); |
1896 |
V289= structure_ref(V288,VV[53],16); |
V294= structure_ref(V293,VV[53],16); |
1897 |
if(equal((V275),/* INLINE-ARGS */V289)){ |
if(equal((V279),/* INLINE-ARGS */V294)){ |
1898 |
goto T835;} |
goto T845;} |
1899 |
base[4]= VV[94]; |
base[4]= VV[95]; |
1900 |
base[5]= car((V273)); |
base[5]= car((V277)); |
1901 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1902 |
Lerror(); |
Lerror(); |
1903 |
vs_top=sup; |
vs_top=sup; |
|
goto T835; |
|
|
T835:; |
|
|
if(((V273))!=Cnil){ |
|
|
goto T845;} |
|
|
V278= small_fixnum(0); |
|
|
goto T843; |
|
1904 |
goto T845; |
goto T845; |
1905 |
T845:; |
T845:; |
1906 |
V290= get(car((V273)),VV[53],Cnil); |
if(((V277))!=Cnil){ |
1907 |
V278= structure_ref(V290,VV[53],14); |
goto T855;} |
1908 |
goto T843; |
V282= small_fixnum(0); |
1909 |
T843:; |
goto T853; |
1910 |
if(((V275))==Cnil){ |
goto T855; |
1911 |
goto T850;} |
T855:; |
1912 |
if(((V277))==Cnil){ |
V295= get(car((V277)),VV[53],Cnil); |
1913 |
goto T850;} |
V282= structure_ref(V295,VV[53],14); |
1914 |
V278= number_plus((V278),(V277)); |
goto T853; |
1915 |
goto T850; |
T853:; |
1916 |
T850:; |
if(((V279))==Cnil){ |
1917 |
if(((V275))==Cnil){ |
goto T860;} |
1918 |
goto T856;} |
if(((V281))==Cnil){ |
1919 |
if(((V276))==Cnil){ |
goto T860;} |
1920 |
goto T856;} |
V282= number_plus((V282),(V281)); |
1921 |
V279= (V278); |
goto T860; |
1922 |
V278= one_plus((V278)); |
T860:; |
1923 |
goto T856; |
if(((V279))==Cnil){ |
1924 |
T856:; |
goto T866;} |
1925 |
{register object V291; |
if(((V280))==Cnil){ |
1926 |
register object V292; |
goto T866;} |
1927 |
V291= (V264); |
V283= (V282); |
1928 |
V292= Cnil; |
V282= one_plus((V282)); |
1929 |
goto T866; |
goto T866; |
1930 |
T866:; |
T866:; |
1931 |
if(!(endp_prop((V291)))){ |
{register object V296; |
1932 |
goto T867;} |
register object V297; |
1933 |
V264= nreverse((V292)); |
V296= (V268); |
1934 |
goto T864; |
V297= Cnil; |
1935 |
goto T867; |
goto T876; |
1936 |
T867:; |
T876:; |
1937 |
V293= (*(LnkLI140))(car((V291)),(V278)); |
if(!(endp_prop((V296)))){ |
1938 |
V292= make_cons(/* INLINE-ARGS */V293,(V292)); |
goto T877;} |
1939 |
V278= one_plus((V278)); |
V268= nreverse((V297)); |
1940 |
V291= cdr((V291)); |
goto T874; |
1941 |
goto T866;} |
goto T877; |
1942 |
goto T864; |
T877:; |
1943 |
T864:; |
V298= (*(LnkLI141))(car((V296)),(V282)); |
1944 |
if(((V275))==Cnil){ |
V297= make_cons(/* INLINE-ARGS */V298,(V297)); |
1945 |
goto T879;} |
V282= one_plus((V282)); |
1946 |
if(((V276))==Cnil){ |
V296= cdr((V296)); |
1947 |
goto T879;} |
goto T876;} |
1948 |
V294= list(2,Cnil,base[2]); |
goto T874; |
1949 |
V264= make_cons(/* INLINE-ARGS */V294,(V264)); |
T874:; |
1950 |
goto T879; |
if(((V279))==Cnil){ |
1951 |
T879:; |
goto T889;} |
1952 |
if(((V275))==Cnil){ |
if(((V280))==Cnil){ |
1953 |
goto T885;} |
goto T889;} |
1954 |
if(((V277))==Cnil){ |
V299= list(2,Cnil,base[2]); |
1955 |
goto T885;} |
V268= make_cons(/* INLINE-ARGS */V299,(V268)); |
1956 |
base[4]= (V277); |
goto T889; |
1957 |
|
T889:; |
1958 |
|
if(((V279))==Cnil){ |
1959 |
|
goto T895;} |
1960 |
|
if(((V281))==Cnil){ |
1961 |
|
goto T895;} |
1962 |
|
base[4]= (V281); |
1963 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1964 |
Lmake_list(); |
Lmake_list(); |
1965 |
vs_top=sup; |
vs_top=sup; |
1966 |
V295= vs_base[0]; |
V300= vs_base[0]; |
1967 |
V264= append(V295,(V264)); |
V268= append(V300,(V268)); |
1968 |
goto T885; |
goto T895; |
1969 |
T885:; |
T895:; |
1970 |
{object V296; |
{object V301; |
1971 |
V296= (((V273))==Cnil?Ct:Cnil); |
V301= (((V277))==Cnil?Ct:Cnil); |
1972 |
if(((V296))==Cnil){ |
if(((V301))==Cnil){ |
1973 |
goto T896;} |
goto T906;} |
1974 |
goto T893; |
goto T903; |
1975 |
goto T896; |
goto T906; |
1976 |
T896:; |
T906:; |
1977 |
if(!(endp_prop(cdr((V273))))){ |
if(!(endp_prop(cdr((V277))))){ |
1978 |
goto T899;} |
goto T909;} |
1979 |
V297= get(car((V273)),VV[53],Cnil); |
V302= get(car((V277)),VV[53],Cnil); |
1980 |
V298= structure_ref(V297,VV[53],7); |
V303= structure_ref(V302,VV[53],7); |
1981 |
V264= append(/* INLINE-ARGS */V298,(V264)); |
V268= append(/* INLINE-ARGS */V303,(V268)); |
1982 |
goto T893; |
goto T903; |
1983 |
goto T899; |
goto T909; |
1984 |
T899:; |
T909:; |
1985 |
{object V300; |
{object V305; |
1986 |
object V301= cdr((V273)); |
object V306= cdr((V277)); |
1987 |
if(endp(V301)){ |
if(endp(V306)){ |
1988 |
V299= Cnil; |
V304= Cnil; |
1989 |
goto T904;} |
goto T914;} |
1990 |
base[4]=V300=MMcons(Cnil,Cnil); |
base[4]=V305=MMcons(Cnil,Cnil); |
1991 |
goto T905; |
goto T915; |
1992 |
T905:; |
T915:; |
1993 |
(V300->c.c_car)= (*(LnkLI140))((V301->c.c_car),small_fixnum(0)); |
(V305->c.c_car)= (*(LnkLI141))((V306->c.c_car),small_fixnum(0)); |
1994 |
V301=MMcdr(V301); |
V306=MMcdr(V306); |
1995 |
if(endp(V301)){ |
if(endp(V306)){ |
1996 |
V299= base[4]; |
V304= base[4]; |
1997 |
goto T904;} |
goto T914;} |
1998 |
V300=MMcdr(V300)=MMcons(Cnil,Cnil); |
V305=MMcdr(V305)=MMcons(Cnil,Cnil); |
1999 |
goto T905;} |
goto T915;} |
2000 |
goto T904; |
goto T914; |
2001 |
T904:; |
T914:; |
2002 |
V303= get(car((V273)),VV[53],Cnil); |
V308= get(car((V277)),VV[53],Cnil); |
2003 |
V304= structure_ref(V303,VV[53],7); |
V309= structure_ref(V308,VV[53],7); |
2004 |
V305= (*(LnkLI117))(V299,/* INLINE-ARGS */V304); |
V310= (*(LnkLI118))(V304,/* INLINE-ARGS */V309); |
2005 |
V264= append(/* INLINE-ARGS */V305,(V264));} |
V268= append(/* INLINE-ARGS */V310,(V268));} |
2006 |
goto T893; |
goto T903; |
2007 |
T893:; |
T903:; |
2008 |
if(((V269))==Cnil){ |
if(((V273))==Cnil){ |
2009 |
goto T910;} |
goto T920;} |
2010 |
if(((V267))==Cnil){ |
if(((V271))==Cnil){ |
2011 |
goto T908;} |
goto T918;} |
2012 |
base[4]= VV[95]; |
base[4]= VV[96]; |
2013 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2014 |
Lerror(); |
Lerror(); |
2015 |
vs_top=sup; |
vs_top=sup; |
2016 |
goto T908; |
goto T918; |
2017 |
goto T910; |
goto T920; |
2018 |
T910:; |
T920:; |
2019 |
if(((V267))!=Cnil){ |
if(((V271))!=Cnil){ |
2020 |
goto T908;} |
goto T918;} |
2021 |
V267= make_cons((V268),Cnil); |
V271= make_cons((V272),Cnil); |
2022 |
goto T908; |
goto T918; |
2023 |
T908:;{object V306; |
T918:;{object V311; |
2024 |
{object V309; |
{object V314; |
2025 |
object V310= (V267); |
object V315= (V271); |
2026 |
if(endp(V310)){ |
if(endp(V315)){ |
2027 |
V308= Cnil; |
V313= Cnil; |
2028 |
goto T921;} |
goto T931;} |
2029 |
base[4]=V309=MMcons(Cnil,Cnil); |
base[4]=V314=MMcons(Cnil,Cnil); |
2030 |
goto T922; |
goto T932; |
2031 |
T922:; |
T932:; |
2032 |
base[5]= (V310->c.c_car); |
base[5]= (V315->c.c_car); |
2033 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2034 |
Lsymbolp(); |
Lsymbolp(); |
2035 |
vs_top=sup; |
vs_top=sup; |
2036 |
(V309->c.c_car)= vs_base[0]; |
(V314->c.c_car)= vs_base[0]; |
2037 |
V310=MMcdr(V310); |
V315=MMcdr(V315); |
2038 |
if(endp(V310)){ |
if(endp(V315)){ |
2039 |
V308= base[4]; |
V313= base[4]; |
2040 |
goto T921;} |
goto T931;} |
2041 |
V309=MMcdr(V309)=MMcons(Cnil,Cnil); |
V314=MMcdr(V314)=MMcons(Cnil,Cnil); |
2042 |
goto T922;} |
goto T932;} |
2043 |
goto T921; |
goto T931; |
2044 |
T921:; |
T931:; |
2045 |
{register object x= Ct,V307= V308; |
{register object x= Ct,V312= V313; |
2046 |
while(!endp(V307)) |
while(!endp(V312)) |
2047 |
if(eql(x,V307->c.c_car)){ |
if(eql(x,V312->c.c_car)){ |
2048 |
V306= V307; |
V311= V312; |
2049 |
goto T920; |
goto T930; |
2050 |
}else V307=V307->c.c_cdr; |
}else V312=V312->c.c_cdr; |
2051 |
V306= Cnil;} |
V311= Cnil;} |
2052 |
goto T920; |
goto T930; |
2053 |
T920:; |
T930:; |
2054 |
if(V306==Cnil)goto T919; |
if(V311==Cnil)goto T929; |
2055 |
goto T918; |
goto T928; |
2056 |
goto T919; |
goto T929; |
2057 |
T919:;} |
T929:;} |
2058 |
{object V311; |
{object V316; |
2059 |
base[6]= VV[96]; |
base[6]= VV[97]; |
2060 |
base[7]= (V268); |
base[7]= (V272); |
2061 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2062 |
(void) (*Lnk107)(); |
(void) (*Lnk108)(); |
2063 |
vs_top=sup; |
vs_top=sup; |
2064 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
2065 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2066 |
Lintern(); |
Lintern(); |
2067 |
vs_top=sup; |
vs_top=sup; |
2068 |
V311= vs_base[0]; |
V316= vs_base[0]; |
2069 |
V267= make_cons((V311),(V267));} |
V271= make_cons((V316),(V271));} |
2070 |
goto T918; |
goto T928; |
2071 |
T918:; |
T928:; |
2072 |
if(((V275))==Cnil){ |
if(((V279))==Cnil){ |
2073 |
goto T930;} |
goto T940;} |
2074 |
if(((V276))!=Cnil){ |
if(((V280))!=Cnil){ |
2075 |
goto T930;} |
goto T940;} |
2076 |
if(((V272))==Cnil){ |
if(((V276))==Cnil){ |
|
goto T935;} |
|
|
base[4]= VV[97]; |
|
|
base[5]= (V271); |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
goto T935; |
|
|
T935:; |
|
|
V271= Cnil; |
|
|
goto T930; |
|
|
T930:; |
|
|
if(((V273))==Cnil){ |
|
|
goto T941;} |
|
|
V273= car((V273)); |
|
|
goto T941; |
|
|
T941:; |
|
|
if(((V274))==Cnil){ |
|
|
goto T945;} |
|
|
if(((V275))==Cnil){ |
|
2077 |
goto T945;} |
goto T945;} |
2078 |
base[4]= VV[98]; |
base[4]= VV[98]; |
2079 |
vs_top=(vs_base=base+4)+1; |
base[5]= (V275); |
2080 |
|
vs_top=(vs_base=base+4)+2; |
2081 |
Lerror(); |
Lerror(); |
2082 |
vs_top=sup; |
vs_top=sup; |
2083 |
goto T945; |
goto T945; |
2084 |
T945:; |
T945:; |
2085 |
base[4]= VV[100]; |
V275= Cnil; |
2086 |
|
goto T940; |
2087 |
|
T940:; |
2088 |
|
if(((V277))==Cnil){ |
2089 |
|
goto T951;} |
2090 |
|
V277= car((V277)); |
2091 |
|
goto T951; |
2092 |
|
T951:; |
2093 |
|
if(((V278))==Cnil){ |
2094 |
|
goto T955;} |
2095 |
|
if(((V279))==Cnil){ |
2096 |
|
goto T955;} |
2097 |
|
base[4]= VV[99]; |
2098 |
|
vs_top=(vs_base=base+4)+1; |
2099 |
|
Lerror(); |
2100 |
|
vs_top=sup; |
2101 |
|
goto T955; |
2102 |
|
T955:; |
2103 |
|
base[4]= VV[101]; |
2104 |
base[5]= list(2,VV[11],base[2]); |
base[5]= list(2,VV[11],base[2]); |
2105 |
base[6]= list(2,VV[11],(V266)); |
base[6]= list(2,VV[11],(V270)); |
2106 |
base[7]= list(2,VV[11],(V275)); |
base[7]= list(2,VV[11],(V286)); |
2107 |
base[8]= list(2,VV[11],(V276)); |
base[8]= list(2,VV[11],(V279)); |
2108 |
base[9]= list(2,VV[11],(V264)); |
base[9]= list(2,VV[11],(V280)); |
2109 |
base[10]= list(2,VV[11],(V270)); |
base[10]= list(2,VV[11],(V268)); |
2110 |
base[11]= list(2,VV[11],(V281)); |
base[11]= list(2,VV[11],(V274)); |
2111 |
base[12]= list(2,VV[11],(V273)); |
base[12]= list(2,VV[11],(V285)); |
2112 |
base[13]= list(2,VV[11],(V274)); |
base[13]= list(2,VV[11],(V277)); |
2113 |
base[14]= list(2,VV[11],(V267)); |
base[14]= list(2,VV[11],(V278)); |
2114 |
base[15]= list(2,VV[11],(V278)); |
base[15]= list(2,VV[11],(V271)); |
2115 |
base[16]= list(2,VV[11],(V271)); |
base[16]= list(2,VV[11],(V282)); |
2116 |
base[17]= list(2,VV[11],(V280)); |
base[17]= list(2,VV[11],(V275)); |
2117 |
vs_top=(vs_base=base+4)+14; |
base[18]= list(2,VV[11],(V284)); |
2118 |
|
vs_top=(vs_base=base+4)+15; |
2119 |
Llist(); |
Llist(); |
2120 |
vs_top=sup; |
vs_top=sup; |
2121 |
V312= vs_base[0]; |
V317= vs_base[0]; |
2122 |
{object V314; |
{object V319; |
2123 |
object V315= (V267); |
object V320= (V271); |
2124 |
if(endp(V315)){ |
if(endp(V320)){ |
2125 |
base[4]= Cnil; |
base[4]= Cnil; |
2126 |
goto T967;} |
goto T978;} |
2127 |
base[5]=V314=MMcons(Cnil,Cnil); |
base[5]=V319=MMcons(Cnil,Cnil); |
2128 |
goto T968; |
goto T979; |
2129 |
T968:; |
T979:; |
2130 |
(V314->c.c_car)= (*(LnkLI141))(base[2],(V315->c.c_car),(V275),(V276),(V264)); |
(V319->c.c_car)= (*(LnkLI142))(base[2],(V320->c.c_car),(V279),(V280),(V268)); |
2131 |
V315=MMcdr(V315); |
V320=MMcdr(V320); |
2132 |
if(endp(V315)){ |
if(endp(V320)){ |
2133 |
base[4]= base[5]; |
base[4]= base[5]; |
2134 |
goto T967;} |
goto T978;} |
2135 |
V314=MMcdr(V314)=MMcons(Cnil,Cnil); |
V319=MMcdr(V319)=MMcons(Cnil,Cnil); |
2136 |
goto T968;} |
goto T979;} |
2137 |
goto T967; |
goto T978; |
2138 |
T967:; |
T978:; |
2139 |
|
if(((V279))==Cnil){ |
2140 |
|
goto T983;} |
2141 |
if(((V275))==Cnil){ |
if(((V275))==Cnil){ |
2142 |
goto T972;} |
goto T983;} |
2143 |
if(((V271))==Cnil){ |
V322= (*(LnkLI143))(base[2],(V275),(V279),(V280),(V283)); |
2144 |
goto T972;} |
base[5]= make_cons(/* INLINE-ARGS */V322,Cnil); |
2145 |
V317= (*(LnkLI142))(base[2],(V271),(V275),(V276),(V279)); |
goto T981; |
2146 |
base[5]= make_cons(/* INLINE-ARGS */V317,Cnil); |
goto T983; |
2147 |
goto T970; |
T983:; |
|
goto T972; |
|
|
T972:; |
|
2148 |
base[5]= Cnil; |
base[5]= Cnil; |
2149 |
goto T970; |
goto T981; |
2150 |
T970:; |
T981:; |
2151 |
V318= list(2,VV[11],base[2]); |
V323= list(2,VV[11],base[2]); |
2152 |
base[6]= make_cons(/* INLINE-ARGS */V318,Cnil); |
base[6]= make_cons(/* INLINE-ARGS */V323,Cnil); |
2153 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2154 |
Lappend(); |
Lappend(); |
2155 |
vs_top=sup; |
vs_top=sup; |
2156 |
V313= vs_base[0]; |
V318= vs_base[0]; |
2157 |
base[4]= listA(3,VV[99],V312,V313); |
base[4]= listA(3,VV[100],V317,V318); |
2158 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2159 |
return;} |
return;} |
2160 |
} |
} |
2164 |
{ |
{ |
2165 |
va_list ap; |
va_list ap; |
2166 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
2167 |
{object V319; |
{object V324; |
|
object V320; |
|
|
object V321; |
|
|
object V322; |
|
|
object V323; |
|
|
object V324; |
|
2168 |
object V325; |
object V325; |
2169 |
object V326; |
object V326; |
2170 |
object V327; |
object V327; |
2177 |
object V334; |
object V334; |
2178 |
object V335; |
object V335; |
2179 |
object V336; |
object V336; |
2180 |
|
object V337; |
2181 |
|
object V338; |
2182 |
|
object V339; |
2183 |
|
object V340; |
2184 |
|
object V341; |
2185 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2186 |
va_start(ap,first); |
va_start(ap,first); |
2187 |
narg= narg - 0; |
narg= narg - 0; |
2188 |
{ |
{ |
2189 |
parse_key_new_new(narg,Vcs +0,(struct key *)&LI12key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)&LI12key,first,ap); |
2190 |
V319=(Vcs[0]); |
V324=(Vcs[0]); |
2191 |
V320=(Vcs[1]); |
V325=(Vcs[1]); |
2192 |
V321=(Vcs[2]); |
V326=(Vcs[2]); |
2193 |
V322=(Vcs[3]); |
V327=(Vcs[3]); |
2194 |
V323=(Vcs[4]); |
V328=(Vcs[4]); |
2195 |
V324=(Vcs[5]); |
V329=(Vcs[5]); |
2196 |
V325=(Vcs[6]); |
V330=(Vcs[6]); |
2197 |
V326=(Vcs[7]); |
V331=(Vcs[7]); |
2198 |
V327=(Vcs[8]); |
V332=(Vcs[8]); |
2199 |
V328=(Vcs[9]); |
V333=(Vcs[9]); |
2200 |
V329=(Vcs[10]); |
V334=(Vcs[10]); |
2201 |
V330=(Vcs[11]); |
V335=(Vcs[11]); |
2202 |
V331=(Vcs[12]); |
V336=(Vcs[12]); |
2203 |
V332=(Vcs[13]); |
V337=(Vcs[13]); |
2204 |
V333=(Vcs[14]); |
V338=(Vcs[14]); |
2205 |
V334=(Vcs[15]); |
V339=(Vcs[15]); |
2206 |
V335=(Vcs[16]); |
V340=(Vcs[16]); |
2207 |
V336=(Vcs[17]); |
V341=(Vcs[17]); |
2208 |
base[0]= VV[53]; |
base[0]= VV[53]; |
2209 |
base[1]= (V319); |
base[1]= (V324); |
2210 |
base[2]= (V320); |
base[2]= (V325); |
2211 |
base[3]= (V321); |
base[3]= (V326); |
2212 |
base[4]= (V322); |
base[4]= (V327); |
2213 |
base[5]= (V323); |
base[5]= (V328); |
2214 |
base[6]= (V324); |
base[6]= (V329); |
2215 |
base[7]= (V325); |
base[7]= (V330); |
2216 |
base[8]= (V326); |
base[8]= (V331); |
2217 |
base[9]= (V327); |
base[9]= (V332); |
2218 |
base[10]= (V328); |
base[10]= (V333); |
2219 |
base[11]= (V329); |
base[11]= (V334); |
2220 |
base[12]= (V330); |
base[12]= (V335); |
2221 |
base[13]= (V331); |
base[13]= (V336); |
2222 |
base[14]= (V332); |
base[14]= (V337); |
2223 |
base[15]= (V333); |
base[15]= (V338); |
2224 |
base[16]= (V334); |
base[16]= (V339); |
2225 |
base[17]= (V335); |
base[17]= (V340); |
2226 |
base[18]= (V336); |
base[18]= (V341); |
2227 |
vs_top=(vs_base=base+0)+19; |
vs_top=(vs_base=base+0)+19; |
2228 |
siLmake_structure(); |
siLmake_structure(); |
2229 |
vs_top=sup; |
vs_top=sup; |
2230 |
{object V337 = vs_base[0]; |
{object V342 = vs_base[0]; |
2231 |
VMR12(V337)} |
VMR12(V342)} |
2232 |
va_end(ap); |
va_end(ap); |
2233 |
base[0]=base[0]; |
base[0]=base[0]; |
2234 |
return Cnil;} |
return Cnil;} |
2235 |
}} |
}} |
2236 |
/* local entry for function CHECK-S-DATA */ |
/* local entry for function CHECK-S-DATA */ |
2237 |
|
|
2238 |
static object LI13(V341,V342,V343) |
static object LI13(V346,V347,V348) |
2239 |
|
|
2240 |
register object V341;register object V342;object V343; |
register object V346;register object V347;object V348; |
2241 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
2242 |
goto TTL; |
goto TTL; |
2243 |
TTL:; |
TTL:; |
2244 |
if((structure_ref((V341),VV[53],3))==Cnil){ |
if((structure_ref((V346),VV[53],3))==Cnil){ |
2245 |
goto T996;} |
goto T1007;} |
2246 |
V344= structure_ref((V341),VV[53],3); |
V349= structure_ref((V346),VV[53],3); |
2247 |
(void)(structure_set((V342),VV[53],3,/* INLINE-ARGS */V344)); |
(void)(structure_set((V347),VV[53],3,/* INLINE-ARGS */V349)); |
2248 |
goto T996; |
goto T1007; |
2249 |
T996:; |
T1007:; |
2250 |
if((structure_ref((V341),VV[53],11))==Cnil){ |
if((structure_ref((V346),VV[53],11))==Cnil){ |
2251 |
goto T999;} |
goto T1010;} |
2252 |
(void)(structure_set((V342),VV[53],11,Ct)); |
(void)(structure_set((V347),VV[53],11,Ct)); |
2253 |
goto T999; |
goto T1010; |
2254 |
T999:; |
T1010:; |
2255 |
if(equalp((V342),(V341))){ |
if(equalp((V347),(V346))){ |
2256 |
goto T1003;} |
goto T1014;} |
2257 |
(void)((VFUN_NARGS=2,(*(LnkLI131))(VV[101],(V343)))); |
(void)((VFUN_NARGS=2,(*(LnkLI132))(VV[102],(V348)))); |
2258 |
{object V345 = sputprop((V343),VV[53],(V342)); |
{object V350 = sputprop((V348),VV[53],(V347)); |
2259 |
VMR13(V345)} |
VMR13(V350)} |
2260 |
goto T1003; |
goto T1014; |
2261 |
T1003:; |
T1014:; |
2262 |
{object V346 = Cnil; |
{object V351 = Cnil; |
2263 |
VMR13(V346)} |
VMR13(V351)} |
2264 |
return Cnil; |
return Cnil; |
2265 |
} |
} |
2266 |
/* local entry for function FREEZE-DEFSTRUCT */ |
/* local entry for function FREEZE-DEFSTRUCT */ |
2267 |
|
|
2268 |
static object LI14(V348) |
static object LI14(V353) |
2269 |
|
|
2270 |
object V348; |
object V353; |
2271 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
2272 |
goto TTL; |
goto TTL; |
2273 |
TTL:; |
TTL:; |
2274 |
{object V349; |
{object V354; |
2275 |
if(type_of((V348))==t_symbol){ |
if(type_of((V353))==t_symbol){ |
2276 |
goto T1007;} |
goto T1018;} |
2277 |
V349= Cnil; |
V354= Cnil; |
2278 |
goto T1006; |
goto T1017; |
2279 |
goto T1007; |
goto T1018; |
2280 |
T1007:; |
T1018:; |
2281 |
V349= get((V348),VV[53],Cnil); |
V354= get((V353),VV[53],Cnil); |
2282 |
goto T1006; |
goto T1017; |
2283 |
T1006:; |
T1017:; |
2284 |
if(((V349))==Cnil){ |
if(((V354))==Cnil){ |
2285 |
goto T1010;} |
goto T1021;} |
2286 |
{object V350 = structure_set((V349),VV[53],11,Ct); |
{object V355 = structure_set((V354),VV[53],11,Ct); |
2287 |
VMR14(V350)} |
VMR14(V355)} |
2288 |
goto T1010; |
goto T1021; |
2289 |
T1010:; |
T1021:; |
2290 |
{object V351 = Cnil; |
{object V356 = Cnil; |
2291 |
VMR14(V351)}} |
VMR14(V356)}} |
2292 |
return Cnil; |
return Cnil; |
2293 |
} |
} |
2294 |
/* function definition for SHARP-S-READER */ |
/* function definition for SHARP-S-READER */ |
2297 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2298 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
2299 |
vs_reserve(VM15); |
vs_reserve(VM15); |
2300 |
{object V352; |
{object V357; |
2301 |
object V353; |
object V358; |
2302 |
object V354; |
object V359; |
2303 |
check_arg(3); |
check_arg(3); |
2304 |
V352=(base[0]); |
V357=(base[0]); |
2305 |
V353=(base[1]); |
V358=(base[1]); |
2306 |
V354=(base[2]); |
V359=(base[2]); |
2307 |
vs_top=sup; |
vs_top=sup; |
2308 |
goto TTL; |
goto TTL; |
2309 |
TTL:; |
TTL:; |
2310 |
if(((V354))==Cnil){ |
if(((V359))==Cnil){ |
2311 |
goto T1012;} |
goto T1023;} |
2312 |
if((symbol_value(VV[102]))!=Cnil){ |
if((symbol_value(VV[103]))!=Cnil){ |
2313 |
goto T1012;} |
goto T1023;} |
2314 |
base[3]= VV[103]; |
base[3]= VV[104]; |
2315 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2316 |
Lerror(); |
Lerror(); |
2317 |
vs_top=sup; |
vs_top=sup; |
2318 |
goto T1012; |
goto T1023; |
2319 |
T1012:; |
T1023:; |
2320 |
{register object V355; |
{register object V360; |
2321 |
register object V356; |
register object V361; |
2322 |
{object V357; |
{object V362; |
2323 |
base[5]= (V352); |
base[5]= (V357); |
2324 |
base[6]= Ct; |
base[6]= Ct; |
2325 |
base[7]= Cnil; |
base[7]= Cnil; |
2326 |
base[8]= Ct; |
base[8]= Ct; |
2327 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2328 |
Lread(); |
Lread(); |
2329 |
vs_top=sup; |
vs_top=sup; |
2330 |
V357= vs_base[0]; |
V362= vs_base[0]; |
2331 |
if((symbol_value(VV[102]))==Cnil){ |
if((symbol_value(VV[103]))==Cnil){ |
2332 |
goto T1024;} |
goto T1035;} |
2333 |
base[5]= Cnil; |
base[5]= Cnil; |
2334 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2335 |
return; |
return; |
2336 |
goto T1024; |
goto T1035; |
2337 |
T1024:; |
T1035:; |
2338 |
V355= (V357);}{object V358; |
V360= (V362);}{object V363; |
2339 |
V358= get(car((V355)),VV[53],Cnil); |
V363= get(car((V360)),VV[53],Cnil); |
2340 |
if(V358==Cnil)goto T1028; |
if(V363==Cnil)goto T1039; |
2341 |
V356= V358; |
V361= V363; |
2342 |
goto T1027; |
goto T1038; |
2343 |
goto T1028; |
goto T1039; |
2344 |
T1028:;} |
T1039:;} |
2345 |
base[5]= VV[104]; |
base[5]= VV[105]; |
2346 |
base[6]= car((V355)); |
base[6]= car((V360)); |
2347 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2348 |
Lerror(); |
Lerror(); |
2349 |
vs_top=sup; |
vs_top=sup; |
2350 |
V356= vs_base[0]; |
V361= vs_base[0]; |
2351 |
goto T1027; |
goto T1038; |
2352 |
T1027:; |
T1038:; |
2353 |
{register object V359; |
{register object V364; |
2354 |
V359= cdr((V355)); |
V364= cdr((V360)); |
2355 |
goto T1034; |
goto T1045; |
2356 |
T1034:; |
T1045:; |
2357 |
if(!(endp_prop((V359)))){ |
if(!(endp_prop((V364)))){ |
2358 |
goto T1035;} |
goto T1046;} |
2359 |
{register object V360; |
{register object V365; |
2360 |
V360= structure_ref((V356),VV[53],13); |
V365= structure_ref((V361),VV[53],13); |
2361 |
goto T1040; |
goto T1051; |
2362 |
T1040:; |
T1051:; |
2363 |
if(!(endp_prop((V360)))){ |
if(!(endp_prop((V365)))){ |
2364 |
goto T1041;} |
goto T1052;} |
2365 |
base[5]= VV[105]; |
base[5]= VV[106]; |
2366 |
base[6]= car((V355)); |
base[6]= car((V360)); |
2367 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2368 |
Lerror(); |
Lerror(); |
2369 |
return; |
return; |
2370 |
goto T1041; |
goto T1052; |
2371 |
T1041:; |
T1052:; |
2372 |
if(!(type_of(car((V360)))==t_symbol)){ |
if(!(type_of(car((V365)))==t_symbol)){ |
2373 |
goto T1047;} |
goto T1058;} |
2374 |
base[5]= car((V360)); |
base[5]= car((V365)); |
2375 |
{object V361; |
{object V366; |
2376 |
V361= cdr((V355)); |
V366= cdr((V360)); |
2377 |
vs_top=base+6; |
vs_top=base+6; |
2378 |
while(!endp(V361)) |
while(!endp(V366)) |
2379 |
{vs_push(car(V361));V361=cdr(V361);} |
{vs_push(car(V366));V366=cdr(V366);} |
2380 |
vs_base=base+6;} |
vs_base=base+6;} |
2381 |
super_funcall_no_event(base[5]); |
super_funcall_no_event(base[5]); |
2382 |
return; |
return; |
2383 |
goto T1047; |
goto T1058; |
2384 |
T1047:; |
T1058:; |
2385 |
V360= cdr((V360)); |
V365= cdr((V365)); |
2386 |
goto T1040;} |
goto T1051;} |
2387 |
goto T1035; |
goto T1046; |
2388 |
T1035:; |
T1046:; |
2389 |
base[5]= coerce_to_string(car((V359))); |
base[5]= coerce_to_string(car((V364))); |
2390 |
base[6]= VV[106]; |
base[6]= VV[107]; |
2391 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2392 |
Lintern(); |
Lintern(); |
2393 |
vs_top=sup; |
vs_top=sup; |
2394 |
V362= vs_base[0]; |
V367= vs_base[0]; |
2395 |
if(type_of((V359))!=t_cons)FEwrong_type_argument(Scons,(V359)); |
if(type_of((V364))!=t_cons)FEwrong_type_argument(Scons,(V364)); |
2396 |
((V359))->c.c_car = V362; |
((V364))->c.c_car = V367; |
2397 |
V359= cddr((V359)); |
V364= cddr((V364)); |
2398 |
goto T1034;}} |
goto T1045;}} |
2399 |
} |
} |
2400 |
} |
} |
2401 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
2405 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2406 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
2407 |
vs_reserve(VM16); |
vs_reserve(VM16); |
2408 |
{object V363; |
{object V368; |
2409 |
check_arg(1); |
check_arg(1); |
2410 |
V363=(base[0]); |
V368=(base[0]); |
2411 |
vs_top=sup; |
vs_top=sup; |
2412 |
base[1]= (V363); |
base[1]= (V368); |
2413 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
2414 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2415 |
(void) (*Lnk146)(); |
(void) (*Lnk147)(); |
2416 |
return; |
return; |
2417 |
} |
} |
2418 |
} |
} |
2423 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2424 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
2425 |
vs_reserve(VM17); |
vs_reserve(VM17); |
2426 |
{object V364; |
{object V369; |
2427 |
check_arg(1); |
check_arg(1); |
2428 |
V364=(base[0]); |
V369=(base[0]); |
2429 |
vs_top=sup; |
vs_top=sup; |
2430 |
if(!(type_of((V364))==t_cons)){ |
if(!(type_of((V369))==t_cons)){ |
2431 |
goto T1066;} |
goto T1077;} |
2432 |
base[1]= car((V364)); |
base[1]= car((V369)); |
2433 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2434 |
return; |
return; |
2435 |
goto T1066; |
goto T1077; |
2436 |
T1066:; |
T1077:; |
2437 |
base[1]= Cnil; |
base[1]= Cnil; |
2438 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2439 |
return; |
return; |
2446 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2447 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
2448 |
vs_reserve(VM18); |
vs_reserve(VM18); |
2449 |
{object V365; |
{object V370; |
2450 |
check_arg(1); |
check_arg(1); |
2451 |
V365=(base[0]); |
V370=(base[0]); |
2452 |
vs_top=sup; |
vs_top=sup; |
2453 |
base[1]= aref1((V365),fixint((base0[0]->c.c_car))); |
base[1]= aref1((V370),fixint((base0[0]->c.c_car))); |
2454 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2455 |
return; |
return; |
2456 |
} |
} |
2462 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2463 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
2464 |
vs_reserve(VM19); |
vs_reserve(VM19); |
2465 |
{object V366; |
{object V371; |
2466 |
check_arg(1); |
check_arg(1); |
2467 |
V366=(base[0]); |
V371=(base[0]); |
2468 |
vs_top=sup; |
vs_top=sup; |
2469 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
2470 |
base[2]= (V366); |
base[2]= (V371); |
2471 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2472 |
siLlist_nth(); |
siLlist_nth(); |
2473 |
return; |
return; |
2480 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2481 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
2482 |
vs_reserve(VM20); |
vs_reserve(VM20); |
2483 |
{object V367; |
{object V372; |
2484 |
check_arg(1); |
check_arg(1); |
2485 |
V367=(base[0]); |
V372=(base[0]); |
2486 |
vs_top=sup; |
vs_top=sup; |
2487 |
if(!(type_of((V367))==t_structure)){ |
if(!(type_of((V372))==t_structure)){ |
2488 |
goto T1071;} |
goto T1082;} |
2489 |
goto T1070; |
goto T1081; |
2490 |
goto T1071; |
goto T1082; |
2491 |
T1071:; |
T1082:; |
2492 |
base[1]= VV[5]; |
base[1]= VV[5]; |
2493 |
base[2]= (V367); |
base[2]= (V372); |
2494 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2495 |
Lerror(); |
Lerror(); |
2496 |
vs_top=sup; |
vs_top=sup; |
2497 |
goto T1070; |
goto T1081; |
2498 |
T1070:; |
T1081:; |
2499 |
base[1]= (V367); |
base[1]= (V372); |
2500 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
2501 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2502 |
(void) (*Lnk147)(); |
(void) (*Lnk148)(); |
2503 |
return; |
return; |
2504 |
} |
} |
2505 |
} |
} |
2506 |
static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* STRUCTURE-REF1 */ |
static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* STRUCTURE-REF1 */ |
2507 |
static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* STRUCTURE-SUBTYPE-P */ |
2508 |
static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)&LnkLI142,5,first,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */ |
static object LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)&LnkLI143,5,first,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */ |
2509 |
static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)&LnkLI141,5,first,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */ |
static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)&LnkLI142,5,first,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */ |
2510 |
static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)&LnkLI140,2,first,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */ |
static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)&LnkLI141,2,first,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */ |
2511 |
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)&LnkLI134,3,first,ap);va_end(ap);return V1;} /* CHECK-S-DATA */ |
static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)&LnkLI135,3,first,ap);va_end(ap);return V1;} /* CHECK-S-DATA */ |
2512 |
static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[133],(void **)&LnkLI133,first,ap);va_end(ap);return V1;} /* MAKE-S-DATA */ |
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[134],(void **)&LnkLI134,first,ap);va_end(ap);return V1;} /* MAKE-S-DATA */ |
2513 |
static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)&LnkLI132,3,first,ap);va_end(ap);return V1;} /* GET-SLOT-POS */ |
static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[133],(void **)&LnkLI133,3,first,ap);va_end(ap);return V1;} /* GET-SLOT-POS */ |
2514 |
static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)&LnkLI131,first,ap);va_end(ap);return V1;} /* WARN */ |
static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[132],(void **)&LnkLI132,first,ap);va_end(ap);return V1;} /* WARN */ |
2515 |
static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* MAKE-S-DATA-STRUCTURE */ |
static void LnkT131(){ call_or_link(VV[131],(void **)&Lnk131);} /* MAKE-S-DATA-STRUCTURE */ |
2516 |
static object LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)&LnkLI129,3,first,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */ |
static object LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)&LnkLI130,3,first,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */ |
2517 |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* MAKE-ACCESS-FUNCTION */ |
static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* MAKE-ACCESS-FUNCTION */ |
2518 |
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)&LnkLI124,20738,first,ap);va_end(ap);return V1;} /* ROUND-UP */ |
static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)&LnkLI125,20738,first,ap);va_end(ap);return V1;} /* ROUND-UP */ |
2519 |
static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* SIZE-OF */ |
static void LnkT124(){ call_or_link(VV[124],(void **)&Lnk124);} /* SIZE-OF */ |
2520 |
static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)&LnkLI122,2,first,ap);va_end(ap);return V1;} /* COERCE */ |
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)&LnkLI123,2,first,ap);va_end(ap);return V1;} /* COERCE */ |
2521 |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* TYPEP */ |
static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* TYPEP */ |
2522 |
static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* AET-TYPE */ |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* AET-TYPE */ |
2523 |
static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* ALIGNMENT */ |
static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* ALIGNMENT */ |
2524 |
static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[118],(void **)&LnkLI118,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
static object LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[119],(void **)&LnkLI119,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
2525 |
static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)&LnkLI117,2,first,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */ |
static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)&LnkLI118,2,first,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */ |
2526 |
static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)&LnkLI117,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
2527 |
static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
2528 |
static object LnkTLI111(){return call_proc0(VV[111],(void **)&LnkLI111);} /* ILLEGAL-BOA */ |
static object LnkTLI112(){return call_proc0(VV[112],(void **)&LnkLI112);} /* ILLEGAL-BOA */ |
2529 |
static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* SUBTYPEP */ |
static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* SUBTYPEP */ |
2530 |
static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* RECORD-FN */ |
static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* RECORD-FN */ |
2531 |
static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[108],(void **)&LnkLI108,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */ |
static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[109],(void **)&LnkLI109,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */ |
2532 |
static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* STRING-CONCATENATE */ |
static void LnkT108(){ call_or_link(VV[108],(void **)&Lnk108);} /* STRING-CONCATENATE */ |
2533 |
|
|
2534 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2535 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |