2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_install.h" |
#include "clcs_install.h" |
4 |
void init_clcs_install(){do_init(VV);} |
void init_clcs_install(){do_init(VV);} |
5 |
/* local entry for function progn 'compile2181 */ |
/* function definition for INSTALL-SYMBOL */ |
6 |
|
|
7 |
static object LI1() |
static void L1() |
8 |
|
{register object *base=vs_base; |
9 |
{ VMB1 VMS1 VMV1 |
register object *sup=base+VM1; VC1 |
10 |
goto TTL; |
vs_check; |
11 |
TTL:; |
{register object V1; |
12 |
base[0]= VV[0]; |
object V2; |
13 |
vs_top=(vs_base=base+0)+1; |
V1=(base[0]); |
14 |
(void) (*Lnk26)(); |
V2=(base[1]); |
15 |
vs_top=sup; |
vs_top=sup; |
|
{object V1 = Cnil; |
|
|
VMR1(V1)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile2193 */ |
|
|
|
|
|
static object LI2() |
|
|
|
|
|
{ VMB2 VMS2 VMV2 |
|
16 |
goto TTL; |
goto TTL; |
17 |
TTL:; |
TTL:; |
18 |
base[0]= VV[0]; |
{object V3 =((V1))->s.s_plist; |
19 |
vs_top=(vs_base=base+0)+1; |
object ind= VV[0]; |
20 |
Lboundp(); |
while(V3!=Cnil){ |
21 |
vs_top=sup; |
if(V3->c.c_car==ind){ |
22 |
if((vs_base[0])==Cnil){ |
if(((V3->c.c_cdr->c.c_car))!=Cnil){ |
23 |
goto T4;} |
goto T1;} |
24 |
goto T3; |
goto T3; |
25 |
goto T4; |
}else V3=V3->c.c_cdr->c.c_cdr;}} |
|
T4:; |
|
|
setq(VV[0],VV[1]); |
|
26 |
goto T3; |
goto T3; |
27 |
T3:; |
T3:; |
28 |
{object V2 = Cnil; |
base[2]= (V1); |
29 |
VMR2(V2)} |
vs_top=(vs_base=base+2)+1; |
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile2206 */ |
|
|
|
|
|
static object LI3() |
|
|
|
|
|
{ VMB3 VMS3 VMV3 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{object V3 = Cnil; |
|
|
VMR3(V3)} |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function INSTALL-SYMBOL */ |
|
|
|
|
|
static object LI4(V6,V7) |
|
|
|
|
|
register object V6;object V7; |
|
|
{ VMB4 VMS4 VMV4 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
if((get((V6),VV[2],Cnil))!=Cnil){ |
|
|
goto T9;} |
|
|
base[0]= (V6); |
|
|
vs_top=(vs_base=base+0)+1; |
|
30 |
Lsymbol_function(); |
Lsymbol_function(); |
31 |
vs_top=sup; |
vs_top=sup; |
32 |
V8= vs_base[0]; |
V4= vs_base[0]; |
33 |
(void)(sputprop((V6),VV[2],V8)); |
(void)(sputprop((V1),VV[0],V4)); |
34 |
goto T9; |
goto T1; |
35 |
T9:; |
T1:; |
36 |
base[0]= (V6); |
base[2]= (V1); |
37 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+2)+1; |
38 |
Lsymbol_function(); |
Lsymbol_function(); |
39 |
vs_top=sup; |
vs_top=sup; |
40 |
V9= vs_base[0]; |
V5= vs_base[0]; |
41 |
base[0]= (V7); |
base[2]= (V2); |
42 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+2)+1; |
43 |
Lsymbol_function(); |
Lsymbol_function(); |
44 |
vs_top=sup; |
vs_top=sup; |
45 |
V10= vs_base[0]; |
V6= vs_base[0]; |
46 |
if((V9)==(V10)){ |
if((V5)==(V6)){ |
47 |
goto T15;} |
goto T7;} |
48 |
base[0]= (V6); |
base[2]= (V1); |
49 |
base[2]= (V7); |
base[4]= (V2); |
50 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+4)+1; |
51 |
Lsymbol_function(); |
Lsymbol_function(); |
52 |
vs_top=sup; |
vs_top=sup; |
53 |
base[1]= vs_base[0]; |
base[3]= vs_base[0]; |
54 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+2)+2; |
55 |
siLfset(); |
siLfset(); |
56 |
vs_top=sup; |
return; |
57 |
{object V11 = vs_base[0]; |
goto T7; |
58 |
VMR4(V11)} |
T7:; |
59 |
goto T15; |
base[2]= Cnil; |
60 |
T15:; |
vs_top=(vs_base=base+2)+1; |
61 |
{object V12 = Cnil; |
return; |
62 |
VMR4(V12)} |
} |
|
base[0]=base[0]; |
|
|
return Cnil; |
|
63 |
} |
} |
64 |
/* local entry for function REVERT-SYMBOL */ |
/* function definition for REVERT-SYMBOL */ |
|
|
|
|
static object LI5(V14) |
|
65 |
|
|
66 |
register object V14; |
static void L2() |
67 |
{ VMB5 VMS5 VMV5 |
{register object *base=vs_base; |
68 |
|
register object *sup=base+VM2; VC2 |
69 |
|
vs_check; |
70 |
|
{register object V7; |
71 |
|
V7=(base[0]); |
72 |
|
vs_top=sup; |
73 |
goto TTL; |
goto TTL; |
74 |
TTL:; |
TTL:; |
75 |
if((get((V14),VV[2],Cnil))==Cnil){ |
{object V8 =((V7))->s.s_plist; |
76 |
goto T25;} |
object ind= VV[0]; |
77 |
base[0]= (V14); |
while(V8!=Cnil){ |
78 |
vs_top=(vs_base=base+0)+1; |
if(V8->c.c_car==ind){ |
79 |
|
if(((V8->c.c_cdr->c.c_car))==Cnil){ |
80 |
|
goto T17;} |
81 |
|
goto T19; |
82 |
|
}else V8=V8->c.c_cdr->c.c_cdr;} |
83 |
|
goto T17;} |
84 |
|
goto T19; |
85 |
|
T19:; |
86 |
|
base[1]= (V7); |
87 |
|
vs_top=(vs_base=base+1)+1; |
88 |
Lsymbol_function(); |
Lsymbol_function(); |
89 |
vs_top=sup; |
vs_top=sup; |
90 |
V15= vs_base[0]; |
V9= vs_base[0]; |
91 |
V16= get((V14),VV[2],Cnil); |
{object V11 =((V7))->s.s_plist; |
92 |
if((V15)==(V16)){ |
object ind= VV[0]; |
93 |
goto T25;} |
while(V11!=Cnil){ |
94 |
base[0]= (V14); |
if(V11->c.c_car==ind){ |
95 |
base[1]= get((V14),VV[2],Cnil); |
V10= (V11->c.c_cdr->c.c_car); |
96 |
vs_top=(vs_base=base+0)+2; |
goto T23; |
97 |
siLfset(); |
}else V11=V11->c.c_cdr->c.c_cdr;} |
98 |
vs_top=sup; |
V10= Cnil;} |
99 |
{object V17 = vs_base[0]; |
goto T23; |
100 |
VMR5(V17)} |
T23:; |
101 |
|
if((V9)==(V10)){ |
102 |
|
goto T17;} |
103 |
|
base[1]= (V7); |
104 |
|
{object V12 =((V7))->s.s_plist; |
105 |
|
object ind= VV[0]; |
106 |
|
while(V12!=Cnil){ |
107 |
|
if(V12->c.c_car==ind){ |
108 |
|
base[2]= (V12->c.c_cdr->c.c_car); |
109 |
|
goto T25; |
110 |
|
}else V12=V12->c.c_cdr->c.c_cdr;} |
111 |
|
base[2]= Cnil;} |
112 |
goto T25; |
goto T25; |
113 |
T25:; |
T25:; |
114 |
{object V18 = Cnil; |
vs_top=(vs_base=base+1)+2; |
115 |
VMR5(V18)} |
siLfset(); |
116 |
base[0]=base[0]; |
return; |
117 |
return Cnil; |
goto T17; |
118 |
|
T17:; |
119 |
|
base[1]= Cnil; |
120 |
|
vs_top=(vs_base=base+1)+1; |
121 |
|
return; |
122 |
|
} |
123 |
} |
} |
124 |
/* local entry for function progn 'compile2266 */ |
/* function definition for INSTALL-CLCS-SYMBOLS */ |
125 |
|
|
126 |
static object LI6() |
static void L3() |
127 |
|
{register object *base=vs_base; |
128 |
{ VMB6 VMS6 VMV6 |
register object *sup=base+VM3; VC3 |
129 |
goto TTL; |
vs_check; |
|
TTL:; |
|
|
base[0]= VV[3]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
(void) (*Lnk26)(); |
|
130 |
vs_top=sup; |
vs_top=sup; |
|
{object V19 = Cnil; |
|
|
VMR6(V19)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile2278 */ |
|
|
|
|
|
static object LI7() |
|
|
|
|
|
{ VMB7 VMS7 VMV7 |
|
131 |
goto TTL; |
goto TTL; |
132 |
TTL:; |
TTL:; |
133 |
base[0]= VV[3]; |
{register object V13; |
134 |
|
register object V14; |
135 |
|
V13= (VV[1]->s.s_dbind); |
136 |
|
V14= CMPcar((V13)); |
137 |
|
goto T30; |
138 |
|
T30:; |
139 |
|
if(!(((V13))==Cnil)){ |
140 |
|
goto T31;} |
141 |
|
goto T26; |
142 |
|
goto T31; |
143 |
|
T31:; |
144 |
|
base[1]= CMPcar((V14)); |
145 |
|
base[2]= CMPcadr((V14)); |
146 |
|
vs_top=(vs_base=base+1)+2; |
147 |
|
(void) (*Lnk22)(); |
148 |
|
vs_top=sup; |
149 |
|
V13= CMPcdr((V13)); |
150 |
|
V14= CMPcar((V13)); |
151 |
|
goto T30;} |
152 |
|
goto T26; |
153 |
|
T26:; |
154 |
|
base[0]= Cnil; |
155 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
156 |
Lboundp(); |
return; |
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T37;} |
|
|
goto T36; |
|
|
goto T37; |
|
|
T37:; |
|
|
base[1]= symbol_value(VV[0]); |
|
|
{object V21; |
|
|
object V22= base[1]; |
|
|
if(endp(V22)){ |
|
|
V20= Cnil; |
|
|
goto T41;} |
|
|
base[0]=V21=MMcons(Cnil,Cnil); |
|
|
goto T42; |
|
|
T42:; |
|
|
base[2]= symbol_name((V22->c.c_car)); |
|
|
base[3]= VV[4]; |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
Lintern(); |
|
|
vs_top=sup; |
|
|
V24= vs_base[0]; |
|
|
(V21->c.c_car)= list(2,V24,(V22->c.c_car)); |
|
|
V22=MMcdr(V22); |
|
|
if(endp(V22)){ |
|
|
V20= base[0]; |
|
|
goto T41;} |
|
|
V21=MMcdr(V21)=MMcons(Cnil,Cnil); |
|
|
goto T42;} |
|
|
goto T41; |
|
|
T41:; |
|
|
setq(VV[3],nconc(V20,VV[5])); |
|
|
goto T36; |
|
|
T36:; |
|
|
{object V25 = Cnil; |
|
|
VMR7(V25)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile2295 */ |
|
|
|
|
|
static object LI8() |
|
|
|
|
|
{ VMB8 VMS8 VMV8 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{object V26 = Cnil; |
|
|
VMR8(V26)} |
|
|
return Cnil; |
|
157 |
} |
} |
158 |
/* local entry for function INSTALL-CLCS-SYMBOLS */ |
/* function definition for REVERT-CLCS-SYMBOLS */ |
159 |
|
|
160 |
static object LI9() |
static void L4() |
161 |
|
{register object *base=vs_base; |
162 |
{ VMB9 VMS9 VMV9 |
register object *sup=base+VM4; VC4 |
163 |
|
vs_check; |
164 |
|
vs_top=sup; |
165 |
goto TTL; |
goto TTL; |
166 |
TTL:; |
TTL:; |
167 |
{register object V27; |
{register object V15; |
168 |
register object V28; |
register object V16; |
169 |
V27= symbol_value(VV[3]); |
V15= reverse((VV[1]->s.s_dbind)); |
170 |
V28= car((V27)); |
V16= CMPcar((V15)); |
171 |
goto T52; |
goto T47; |
172 |
T52:; |
T47:; |
173 |
if(!(endp_prop((V27)))){ |
if(!(((V15))==Cnil)){ |
174 |
goto T53;} |
goto T48;} |
175 |
goto T48; |
goto T43; |
|
goto T53; |
|
|
T53:; |
|
|
(void)((*(LnkLI27))(car((V28)),cadr((V28)))); |
|
|
V27= cdr((V27)); |
|
|
V28= car((V27)); |
|
|
goto T52;} |
|
176 |
goto T48; |
goto T48; |
177 |
T48:; |
T48:; |
178 |
{object V29 = Cnil; |
base[2]= CMPcar((V16)); |
179 |
VMR9(V29)} |
vs_top=(vs_base=base+2)+1; |
180 |
base[0]=base[0]; |
(void) (*Lnk23)(); |
181 |
return Cnil; |
vs_top=sup; |
182 |
} |
V15= CMPcdr((V15)); |
183 |
/* local entry for function REVERT-CLCS-SYMBOLS */ |
V16= CMPcar((V15)); |
184 |
|
goto T47;} |
185 |
static object LI10() |
goto T43; |
186 |
|
T43:; |
187 |
{ VMB10 VMS10 VMV10 |
base[0]= Cnil; |
188 |
goto TTL; |
vs_top=(vs_base=base+0)+1; |
189 |
TTL:; |
return; |
|
{register object V30; |
|
|
register object V31; |
|
|
V30= reverse(symbol_value(VV[3])); |
|
|
V31= car((V30)); |
|
|
goto T67; |
|
|
T67:; |
|
|
if(!(endp_prop((V30)))){ |
|
|
goto T68;} |
|
|
goto T63; |
|
|
goto T68; |
|
|
T68:; |
|
|
(void)((*(LnkLI28))(car((V31)))); |
|
|
V30= cdr((V30)); |
|
|
V31= car((V30)); |
|
|
goto T67;} |
|
|
goto T63; |
|
|
T63:; |
|
|
{object V32 = Cnil; |
|
|
VMR10(V32)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
190 |
} |
} |
191 |
/* function definition for CLCS-COMPILE-FILE */ |
/* function definition for CLCS-COMPILE-FILE */ |
192 |
|
|
193 |
static void L11() |
static void L5() |
194 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
195 |
register object *VOL sup=base+VM11; VC11 |
register object *VOL sup=base+VM5; VC5 |
196 |
vs_reserve(VM11); |
vs_check; |
197 |
bds_check; |
bds_check; |
198 |
{VOL object V33; |
{VOL object V17; |
|
if(vs_top-vs_base<1) too_few_arguments(); |
|
199 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
200 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
201 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
202 |
{object *p=vs_top; |
{object *p=vs_top; |
203 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
204 |
V33=(base[1]); |
V17=(base[1]); |
205 |
vs_top=sup; |
vs_top=sup; |
206 |
goto T79; |
goto T60; |
207 |
T79:; |
T60:; |
208 |
base[2]=MMcons(Cnil,base[0]); |
base[2]=MMcons(Cnil,base[0]); |
209 |
base[3]=alloc_frame_id(); |
base[3]=alloc_frame_id(); |
210 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
211 |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
212 |
if(nlj_active){ |
if(nlj_active){ |
213 |
nlj_active=FALSE; |
nlj_active=FALSE; |
214 |
if(eql(nlj_tag,VV[15]))goto T82; |
if(eql(nlj_tag,VV[11]))goto T63; |
215 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
216 |
} |
} |
217 |
V34= |
base[5]= VV[3]; |
218 |
make_cclosure_new(LC16,Cnil,base[3],Cdata); |
base[6]= VV[4]; |
219 |
V35= |
base[7]= VV[5]; |
220 |
make_cclosure_new(LC17,Cnil,base[3],Cdata); |
base[8]= |
221 |
V36= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V34,VV[10],V35)); |
make_cclosure_new(LC9,Cnil,base[3],Cdata); |
222 |
V37= make_cons(/* INLINE-ARGS */V36,Cnil); |
base[9]= VV[6]; |
223 |
base[4]= make_cons(/* INLINE-ARGS */V37,symbol_value(VV[6])); |
base[10]= |
224 |
bds_bind(VV[6],base[4]); |
make_cclosure_new(LC10,Cnil,base[3],Cdata); |
225 |
{register object V38; |
vs_top=(vs_base=base+5)+6; |
226 |
{register object V39; |
(void) (*Lnk24)(); |
227 |
V39= get(VV[12],VV[2],Cnil); |
vs_top=sup; |
228 |
if(((V39))==Cnil){ |
V18= vs_base[0]; |
229 |
goto T91;} |
V19= make_cons(V18,Cnil); |
230 |
base[5]= (V39); |
base[4]= make_cons(/* INLINE-ARGS */V19,(VV[2]->s.s_dbind)); |
231 |
goto T88; |
bds_bind(VV[2],base[4]); |
232 |
goto T91; |
{register object V20; |
233 |
T91:; |
{register object V21; |
234 |
base[5]= symbol_function(VV[12]);} |
{object V22 =(VV[8])->s.s_plist; |
235 |
goto T88; |
object ind= VV[0]; |
236 |
T88:; |
while(V22!=Cnil){ |
237 |
|
if(V22->c.c_car==ind){ |
238 |
|
V21= (V22->c.c_cdr->c.c_car); |
239 |
|
goto T75; |
240 |
|
}else V22=V22->c.c_cdr->c.c_cdr;} |
241 |
|
V21= Cnil;} |
242 |
|
goto T75; |
243 |
|
T75:; |
244 |
|
if(((V21))==Cnil){ |
245 |
|
goto T77;} |
246 |
|
base[5]= (V21); |
247 |
|
goto T74; |
248 |
|
goto T77; |
249 |
|
T77:; |
250 |
|
base[5]= (VV[8]->s.s_gfdef);} |
251 |
|
goto T74; |
252 |
|
T74:; |
253 |
base[6]= (base[0]->c.c_car); |
base[6]= (base[0]->c.c_car); |
254 |
{object V40; |
{object V23; |
255 |
V40= (V33); |
V23= (V17); |
256 |
vs_top=base+7; |
vs_top=base+7; |
257 |
while(!endp(V40)) |
while(V23!=Cnil) |
258 |
{vs_push(car(V40));V40=cdr(V40);} |
{vs_push((V23)->c.c_car);V23=(V23)->c.c_cdr;} |
259 |
vs_base=base+6;} |
vs_base=base+6;} |
260 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
261 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
263 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
264 |
Llist(); |
Llist(); |
265 |
vs_top=sup; |
vs_top=sup; |
266 |
V38= vs_base[0]; |
V20= vs_base[0]; |
267 |
if((symbol_value(VV[13]))!=Cnil){ |
if(((VV[9]->s.s_dbind))!=Cnil){ |
268 |
goto T95;} |
goto T81;} |
269 |
base[5]= (V38); |
base[5]= (V20); |
270 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
271 |
Lvalues_list(); |
Lvalues_list(); |
272 |
frs_pop(); |
frs_pop(); |
273 |
bds_unwind1; |
bds_unwind1; |
274 |
return; |
return; |
275 |
goto T95; |
goto T81; |
276 |
T95:; |
T81:; |
277 |
base[5]= VV[14]; |
base[5]= VV[10]; |
278 |
base[6]= VV[12]; |
base[6]= VV[8]; |
279 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
280 |
(void) (*Lnk30)(); |
(void) (*Lnk25)(); |
281 |
vs_top=sup; |
vs_top=sup; |
282 |
frs_pop(); |
frs_pop(); |
283 |
bds_unwind1; |
bds_unwind1; |
284 |
goto T80;} |
goto T61;} |
285 |
goto T82; |
goto T63; |
286 |
T82:; |
T63:; |
287 |
{register object V41; |
{register object V24; |
288 |
V41= (base[2]->c.c_car); |
V24= (base[2]->c.c_car); |
|
ck_larg_exactly(0,(V41)); |
|
289 |
base[4]= Cnil; |
base[4]= Cnil; |
290 |
base[5]= Ct; |
base[5]= Ct; |
291 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
292 |
vs_top=sup; |
vs_top=sup; |
293 |
frs_pop(); |
frs_pop(); |
294 |
goto T80;} |
goto T61;} |
295 |
frs_pop(); |
frs_pop(); |
296 |
goto T80; |
goto T61; |
297 |
goto T80; |
goto T61; |
298 |
T80:; |
T61:; |
299 |
goto T79; |
goto T60; |
300 |
} |
} |
301 |
} |
} |
302 |
/* function definition for CLCS-COMPILE */ |
/* function definition for CLCS-COMPILE */ |
303 |
|
|
304 |
static void L12() |
static void L6() |
305 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
306 |
register object *VOL sup=base+VM12; VC12 |
register object *VOL sup=base+VM6; VC6 |
307 |
vs_reserve(VM12); |
vs_check; |
308 |
bds_check; |
bds_check; |
309 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
310 |
{object *p=vs_top; |
{object *p=vs_top; |
311 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
312 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
313 |
vs_top=sup; |
vs_top=sup; |
314 |
goto T106; |
goto T92; |
315 |
T106:; |
T92:; |
316 |
base[1]=MMcons(Cnil,base[0]); |
base[1]=MMcons(Cnil,base[0]); |
317 |
base[2]=alloc_frame_id(); |
base[2]=alloc_frame_id(); |
318 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
319 |
frs_push(FRS_CATCH,(base[2]->c.c_car)); |
frs_push(FRS_CATCH,(base[2]->c.c_car)); |
320 |
if(nlj_active){ |
if(nlj_active){ |
321 |
nlj_active=FALSE; |
nlj_active=FALSE; |
322 |
if(eql(nlj_tag,VV[19]))goto T109; |
if(eql(nlj_tag,VV[15]))goto T95; |
323 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
324 |
} |
} |
325 |
V42= |
base[4]= VV[3]; |
326 |
make_cclosure_new(LC18,Cnil,base[2],Cdata); |
base[5]= VV[4]; |
327 |
V43= |
base[6]= VV[5]; |
328 |
make_cclosure_new(LC19,Cnil,base[2],Cdata); |
base[7]= |
329 |
V44= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V42,VV[10],V43)); |
make_cclosure_new(LC11,Cnil,base[2],Cdata); |
330 |
V45= make_cons(/* INLINE-ARGS */V44,Cnil); |
base[8]= VV[6]; |
331 |
base[3]= make_cons(/* INLINE-ARGS */V45,symbol_value(VV[6])); |
base[9]= |
332 |
bds_bind(VV[6],base[3]); |
make_cclosure_new(LC12,Cnil,base[2],Cdata); |
333 |
{register object V46; |
vs_top=(vs_base=base+4)+6; |
334 |
{register object V47; |
(void) (*Lnk24)(); |
335 |
V47= get(VV[17],VV[2],Cnil); |
vs_top=sup; |
336 |
if(((V47))==Cnil){ |
V25= vs_base[0]; |
337 |
goto T118;} |
V26= make_cons(V25,Cnil); |
338 |
base[4]= (V47); |
base[3]= make_cons(/* INLINE-ARGS */V26,(VV[2]->s.s_dbind)); |
339 |
goto T115; |
bds_bind(VV[2],base[3]); |
340 |
goto T118; |
{register object V27; |
341 |
T118:; |
{register object V28; |
342 |
base[4]= symbol_function(VV[12]);} |
{object V29 =(VV[13])->s.s_plist; |
343 |
goto T115; |
object ind= VV[0]; |
344 |
T115:; |
while(V29!=Cnil){ |
345 |
{object V48; |
if(V29->c.c_car==ind){ |
346 |
V48= (base[0]->c.c_car); |
V28= (V29->c.c_cdr->c.c_car); |
347 |
|
goto T107; |
348 |
|
}else V29=V29->c.c_cdr->c.c_cdr;} |
349 |
|
V28= Cnil;} |
350 |
|
goto T107; |
351 |
|
T107:; |
352 |
|
if(((V28))==Cnil){ |
353 |
|
goto T109;} |
354 |
|
base[4]= (V28); |
355 |
|
goto T106; |
356 |
|
goto T109; |
357 |
|
T109:; |
358 |
|
base[4]= (VV[8]->s.s_gfdef);} |
359 |
|
goto T106; |
360 |
|
T106:; |
361 |
|
{object V30; |
362 |
|
V30= (base[0]->c.c_car); |
363 |
vs_top=base+5; |
vs_top=base+5; |
364 |
while(!endp(V48)) |
while(V30!=Cnil) |
365 |
{vs_push(car(V48));V48=cdr(V48);} |
{vs_push((V30)->c.c_car);V30=(V30)->c.c_cdr;} |
366 |
vs_base=base+5;} |
vs_base=base+5;} |
367 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
368 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
370 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
371 |
Llist(); |
Llist(); |
372 |
vs_top=sup; |
vs_top=sup; |
373 |
V46= vs_base[0]; |
V27= vs_base[0]; |
374 |
if((symbol_value(VV[13]))!=Cnil){ |
if(((VV[9]->s.s_dbind))!=Cnil){ |
375 |
goto T121;} |
goto T112;} |
376 |
base[4]= (V46); |
base[4]= (V27); |
377 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
378 |
Lvalues_list(); |
Lvalues_list(); |
379 |
frs_pop(); |
frs_pop(); |
380 |
bds_unwind1; |
bds_unwind1; |
381 |
return; |
return; |
382 |
goto T121; |
goto T112; |
383 |
T121:; |
T112:; |
384 |
base[4]= VV[18]; |
base[4]= VV[14]; |
385 |
base[5]= VV[17]; |
base[5]= VV[13]; |
386 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
387 |
(void) (*Lnk30)(); |
(void) (*Lnk25)(); |
388 |
vs_top=sup; |
vs_top=sup; |
389 |
frs_pop(); |
frs_pop(); |
390 |
bds_unwind1; |
bds_unwind1; |
391 |
goto T107;} |
goto T93;} |
392 |
goto T109; |
goto T95; |
393 |
T109:; |
T95:; |
394 |
{register object V49; |
{register object V31; |
395 |
V49= (base[1]->c.c_car); |
V31= (base[1]->c.c_car); |
|
ck_larg_exactly(0,(V49)); |
|
396 |
base[3]= Cnil; |
base[3]= Cnil; |
397 |
base[4]= Ct; |
base[4]= Ct; |
398 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
399 |
vs_top=sup; |
vs_top=sup; |
400 |
frs_pop(); |
frs_pop(); |
401 |
goto T107;} |
goto T93;} |
402 |
frs_pop(); |
frs_pop(); |
403 |
goto T107; |
goto T93; |
404 |
goto T107; |
goto T93; |
405 |
T107:; |
T93:; |
406 |
goto T106; |
goto T92; |
407 |
} |
} |
408 |
/* function definition for CLCS-LOAD */ |
/* function definition for CLCS-LOAD */ |
409 |
|
|
410 |
static void L13() |
static void L7() |
411 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
412 |
register object *VOL sup=base+VM13; VC13 |
register object *VOL sup=base+VM7; VC7 |
413 |
vs_reserve(VM13); |
vs_check; |
414 |
bds_check; |
bds_check; |
415 |
{VOL object V50; |
{VOL object V32; |
|
if(vs_top-vs_base<1) too_few_arguments(); |
|
416 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
417 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
418 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
419 |
{object *p=vs_top; |
{object *p=vs_top; |
420 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
421 |
V50=(base[1]); |
V32=(base[1]); |
422 |
vs_top=sup; |
vs_top=sup; |
423 |
goto T132; |
goto T123; |
424 |
T132:; |
T123:; |
425 |
base[2]=MMcons(Cnil,base[0]); |
base[2]=MMcons(Cnil,base[0]); |
426 |
base[3]=alloc_frame_id(); |
base[3]=alloc_frame_id(); |
427 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
428 |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
429 |
if(nlj_active){ |
if(nlj_active){ |
430 |
nlj_active=FALSE; |
nlj_active=FALSE; |
431 |
if(eql(nlj_tag,VV[22]))goto T135; |
if(eql(nlj_tag,VV[18]))goto T126; |
432 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
433 |
} |
} |
434 |
V51= |
base[5]= VV[3]; |
435 |
make_cclosure_new(LC20,Cnil,base[3],Cdata); |
base[6]= VV[4]; |
436 |
V52= |
base[7]= VV[5]; |
437 |
make_cclosure_new(LC21,Cnil,base[3],Cdata); |
base[8]= |
438 |
V53= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V51,VV[10],V52)); |
make_cclosure_new(LC13,Cnil,base[3],Cdata); |
439 |
V54= make_cons(/* INLINE-ARGS */V53,Cnil); |
base[9]= VV[6]; |
440 |
base[4]= make_cons(/* INLINE-ARGS */V54,symbol_value(VV[6])); |
base[10]= |
441 |
bds_bind(VV[6],base[4]); |
make_cclosure_new(LC14,Cnil,base[3],Cdata); |
442 |
{register object V55; |
vs_top=(vs_base=base+5)+6; |
443 |
V55= get(VV[21],VV[2],Cnil); |
(void) (*Lnk24)(); |
444 |
if(((V55))==Cnil){ |
vs_top=sup; |
445 |
goto T142;} |
V33= vs_base[0]; |
446 |
base[5]= (V55); |
V34= make_cons(V33,Cnil); |
447 |
goto T139; |
base[4]= make_cons(/* INLINE-ARGS */V34,(VV[2]->s.s_dbind)); |
448 |
goto T142; |
bds_bind(VV[2],base[4]); |
449 |
T142:; |
{register object V35; |
450 |
base[5]= symbol_function(VV[21]);} |
{object V36 =(VV[17])->s.s_plist; |
451 |
goto T139; |
object ind= VV[0]; |
452 |
T139:; |
while(V36!=Cnil){ |
453 |
|
if(V36->c.c_car==ind){ |
454 |
|
V35= (V36->c.c_cdr->c.c_car); |
455 |
|
goto T136; |
456 |
|
}else V36=V36->c.c_cdr->c.c_cdr;} |
457 |
|
V35= Cnil;} |
458 |
|
goto T136; |
459 |
|
T136:; |
460 |
|
if(((V35))==Cnil){ |
461 |
|
goto T138;} |
462 |
|
base[5]= (V35); |
463 |
|
goto T135; |
464 |
|
goto T138; |
465 |
|
T138:; |
466 |
|
base[5]= (VV[17]->s.s_gfdef);} |
467 |
|
goto T135; |
468 |
|
T135:; |
469 |
base[6]= (base[0]->c.c_car); |
base[6]= (base[0]->c.c_car); |
470 |
{object V56; |
{object V37; |
471 |
V56= (V50); |
V37= (V32); |
472 |
vs_top=base+7; |
vs_top=base+7; |
473 |
while(!endp(V56)) |
while(V37!=Cnil) |
474 |
{vs_push(car(V56));V56=cdr(V56);} |
{vs_push((V37)->c.c_car);V37=(V37)->c.c_cdr;} |
475 |
vs_base=base+6;} |
vs_base=base+6;} |
476 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
477 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
480 |
frs_pop(); |
frs_pop(); |
481 |
bds_unwind1; |
bds_unwind1; |
482 |
return; |
return; |
483 |
goto T135; |
goto T126; |
484 |
T135:; |
T126:; |
485 |
{register object V57; |
{register object V38; |
486 |
V57= (base[2]->c.c_car); |
V38= (base[2]->c.c_car); |
|
ck_larg_exactly(0,(V57)); |
|
487 |
base[4]= Cnil; |
base[4]= Cnil; |
488 |
base[5]= Ct; |
base[5]= Ct; |
489 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
490 |
vs_top=sup; |
vs_top=sup; |
491 |
frs_pop(); |
frs_pop(); |
492 |
goto T133;} |
goto T124;} |
493 |
frs_pop(); |
frs_pop(); |
494 |
goto T133; |
goto T124; |
495 |
goto T133; |
goto T124; |
496 |
T133:; |
T124:; |
497 |
goto T132; |
goto T123; |
498 |
} |
} |
499 |
} |
} |
500 |
/* function definition for CLCS-OPEN */ |
/* function definition for CLCS-OPEN */ |
501 |
|
|
502 |
static void L14() |
static void L8() |
503 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
504 |
register object *VOL sup=base+VM14; VC14 |
register object *VOL sup=base+VM8; VC8 |
505 |
vs_reserve(VM14); |
vs_check; |
506 |
bds_check; |
bds_check; |
507 |
{VOL object V58; |
{VOL object V39; |
|
if(vs_top-vs_base<1) too_few_arguments(); |
|
508 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
509 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
510 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
511 |
{object *p=vs_top; |
{object *p=vs_top; |
512 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
513 |
V58=(base[1]); |
V39=(base[1]); |
514 |
vs_top=sup; |
vs_top=sup; |
515 |
goto T151; |
goto T147; |
516 |
T151:; |
T147:; |
517 |
base[2]=MMcons(Cnil,base[0]); |
base[2]=MMcons(Cnil,base[0]); |
518 |
base[3]=alloc_frame_id(); |
base[3]=alloc_frame_id(); |
519 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
520 |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
521 |
if(nlj_active){ |
if(nlj_active){ |
522 |
nlj_active=FALSE; |
nlj_active=FALSE; |
523 |
if(eql(nlj_tag,VV[25]))goto T154; |
if(eql(nlj_tag,VV[21]))goto T150; |
524 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
525 |
} |
} |
526 |
V59= |
base[5]= VV[3]; |
527 |
make_cclosure_new(LC22,Cnil,base[3],Cdata); |
base[6]= VV[4]; |
528 |
V60= |
base[7]= VV[5]; |
529 |
make_cclosure_new(LC23,Cnil,base[3],Cdata); |
base[8]= |
530 |
V61= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V59,VV[10],V60)); |
make_cclosure_new(LC15,Cnil,base[3],Cdata); |
531 |
V62= make_cons(/* INLINE-ARGS */V61,Cnil); |
base[9]= VV[6]; |
532 |
base[4]= make_cons(/* INLINE-ARGS */V62,symbol_value(VV[6])); |
base[10]= |
533 |
bds_bind(VV[6],base[4]); |
make_cclosure_new(LC16,Cnil,base[3],Cdata); |
534 |
{register object V63; |
vs_top=(vs_base=base+5)+6; |
535 |
V63= get(VV[24],VV[2],Cnil); |
(void) (*Lnk24)(); |
536 |
if(((V63))==Cnil){ |
vs_top=sup; |
537 |
goto T161;} |
V40= vs_base[0]; |
538 |
base[5]= (V63); |
V41= make_cons(V40,Cnil); |
539 |
goto T158; |
base[4]= make_cons(/* INLINE-ARGS */V41,(VV[2]->s.s_dbind)); |
540 |
goto T161; |
bds_bind(VV[2],base[4]); |
541 |
T161:; |
{register object V42; |
542 |
base[5]= symbol_function(VV[24]);} |
{object V43 =(VV[20])->s.s_plist; |
543 |
goto T158; |
object ind= VV[0]; |
544 |
T158:; |
while(V43!=Cnil){ |
545 |
|
if(V43->c.c_car==ind){ |
546 |
|
V42= (V43->c.c_cdr->c.c_car); |
547 |
|
goto T160; |
548 |
|
}else V43=V43->c.c_cdr->c.c_cdr;} |
549 |
|
V42= Cnil;} |
550 |
|
goto T160; |
551 |
|
T160:; |
552 |
|
if(((V42))==Cnil){ |
553 |
|
goto T162;} |
554 |
|
base[5]= (V42); |
555 |
|
goto T159; |
556 |
|
goto T162; |
557 |
|
T162:; |
558 |
|
base[5]= (VV[20]->s.s_gfdef);} |
559 |
|
goto T159; |
560 |
|
T159:; |
561 |
base[6]= (base[0]->c.c_car); |
base[6]= (base[0]->c.c_car); |
562 |
{object V64; |
{object V44; |
563 |
V64= (V58); |
V44= (V39); |
564 |
vs_top=base+7; |
vs_top=base+7; |
565 |
while(!endp(V64)) |
while(V44!=Cnil) |
566 |
{vs_push(car(V64));V64=cdr(V64);} |
{vs_push((V44)->c.c_car);V44=(V44)->c.c_cdr;} |
567 |
vs_base=base+6;} |
vs_base=base+6;} |
568 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
569 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
572 |
frs_pop(); |
frs_pop(); |
573 |
bds_unwind1; |
bds_unwind1; |
574 |
return; |
return; |
575 |
goto T154; |
goto T150; |
576 |
T154:; |
T150:; |
577 |
{register object V65; |
{register object V45; |
578 |
V65= (base[2]->c.c_car); |
V45= (base[2]->c.c_car); |
|
ck_larg_exactly(0,(V65)); |
|
579 |
base[4]= Cnil; |
base[4]= Cnil; |
580 |
base[5]= Ct; |
base[5]= Ct; |
581 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
582 |
vs_top=sup; |
vs_top=sup; |
583 |
frs_pop(); |
frs_pop(); |
584 |
goto T152;} |
goto T148;} |
585 |
frs_pop(); |
frs_pop(); |
586 |
goto T152; |
goto T148; |
587 |
goto T152; |
goto T148; |
588 |
T152:; |
T148:; |
589 |
goto T151; |
goto T147; |
590 |
} |
} |
591 |
} |
} |
|
/* local entry for function progn 'compile2835 */ |
|
|
|
|
|
static object LI15() |
|
|
|
|
|
{ VMB15 VMS15 VMV15 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
(void)((*(LnkLI31))()); |
|
|
{object V66 = Cnil; |
|
|
VMR15(V66)} |
|
|
return Cnil; |
|
|
} |
|
592 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
593 |
|
|
594 |
static void LC23(base0) |
static void LC16(base0) |
595 |
register object *base0; |
register object *base0; |
596 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
597 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM9; VC9 |
598 |
vs_reserve(VM16); |
vs_check; |
599 |
{register object V67; |
{register object V46; |
600 |
check_arg(1); |
V46=(base[0]); |
|
V67=(base[0]); |
|
601 |
vs_top=sup; |
vs_top=sup; |
602 |
base[1]= (V67); |
base[1]= (V46); |
603 |
base[2]= VV[23]; |
base[2]= VV[19]; |
604 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
605 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
606 |
Lformat(); |
Lformat(); |
609 |
} |
} |
610 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
611 |
|
|
612 |
static void LC22(base0) |
static void LC15(base0) |
613 |
register object *base0; |
register object *base0; |
614 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
615 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM10; VC10 |
616 |
vs_reserve(VM17); |
vs_check; |
617 |
{register object V68; |
{register object V47; |
618 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
619 |
{object *p=vs_top; |
{object *p=vs_top; |
620 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
621 |
V68=(base[0]); |
V47=(base[0]); |
622 |
vs_top=sup; |
vs_top=sup; |
623 |
(base0[1]->c.c_car)= (V68); |
(base0[1]->c.c_car)= (V47); |
624 |
{frame_ptr fr; |
{frame_ptr fr; |
625 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
626 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[25]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[21]); |
627 |
vs_base=vs_top; |
vs_base=vs_top; |
628 |
unwind(fr,VV[25]);} |
unwind(fr,VV[21]);} |
629 |
} |
} |
630 |
} |
} |
631 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
632 |
|
|
633 |
static void LC21(base0) |
static void LC14(base0) |
634 |
register object *base0; |
register object *base0; |
635 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
636 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM11; VC11 |
637 |
vs_reserve(VM18); |
vs_check; |
638 |
{register object V69; |
{register object V48; |
639 |
check_arg(1); |
V48=(base[0]); |
|
V69=(base[0]); |
|
640 |
vs_top=sup; |
vs_top=sup; |
641 |
base[1]= (V69); |
base[1]= (V48); |
642 |
base[2]= VV[20]; |
base[2]= VV[16]; |
643 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
644 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
645 |
Lformat(); |
Lformat(); |
648 |
} |
} |
649 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
650 |
|
|
651 |
static void LC20(base0) |
static void LC13(base0) |
652 |
register object *base0; |
register object *base0; |
653 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
654 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM12; VC12 |
655 |
vs_reserve(VM19); |
vs_check; |
656 |
{register object V70; |
{register object V49; |
657 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
658 |
{object *p=vs_top; |
{object *p=vs_top; |
659 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
660 |
V70=(base[0]); |
V49=(base[0]); |
661 |
vs_top=sup; |
vs_top=sup; |
662 |
(base0[1]->c.c_car)= (V70); |
(base0[1]->c.c_car)= (V49); |
663 |
{frame_ptr fr; |
{frame_ptr fr; |
664 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
665 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[22]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[18]); |
666 |
vs_base=vs_top; |
vs_base=vs_top; |
667 |
unwind(fr,VV[22]);} |
unwind(fr,VV[18]);} |
668 |
} |
} |
669 |
} |
} |
670 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
671 |
|
|
672 |
static void LC19(base0) |
static void LC12(base0) |
673 |
register object *base0; |
register object *base0; |
674 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
675 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM13; VC13 |
676 |
vs_reserve(VM20); |
vs_check; |
677 |
{register object V71; |
{register object V50; |
678 |
check_arg(1); |
V50=(base[0]); |
679 |
V71=(base[0]); |
vs_top=sup; |
680 |
vs_top=sup; |
base[1]= (V50); |
681 |
base[1]= (V71); |
base[2]= VV[12]; |
682 |
base[2]= VV[16]; |
base[3]= CMPcar((base0[2]->c.c_car)); |
|
base[3]= car((base0[2]->c.c_car)); |
|
683 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
684 |
Lformat(); |
Lformat(); |
685 |
return; |
return; |
687 |
} |
} |
688 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
689 |
|
|
690 |
static void LC18(base0) |
static void LC11(base0) |
691 |
register object *base0; |
register object *base0; |
692 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
693 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM14; VC14 |
694 |
vs_reserve(VM21); |
vs_check; |
695 |
{register object V72; |
{register object V51; |
696 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
697 |
{object *p=vs_top; |
{object *p=vs_top; |
698 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
699 |
V72=(base[0]); |
V51=(base[0]); |
700 |
vs_top=sup; |
vs_top=sup; |
701 |
(base0[1]->c.c_car)= (V72); |
(base0[1]->c.c_car)= (V51); |
702 |
{frame_ptr fr; |
{frame_ptr fr; |
703 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
704 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[19]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[15]); |
705 |
vs_base=vs_top; |
vs_base=vs_top; |
706 |
unwind(fr,VV[19]);} |
unwind(fr,VV[15]);} |
707 |
} |
} |
708 |
} |
} |
709 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
710 |
|
|
711 |
static void LC17(base0) |
static void LC10(base0) |
712 |
register object *base0; |
register object *base0; |
713 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
714 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM15; VC15 |
715 |
vs_reserve(VM22); |
vs_check; |
716 |
{register object V73; |
{register object V52; |
717 |
check_arg(1); |
V52=(base[0]); |
|
V73=(base[0]); |
|
718 |
vs_top=sup; |
vs_top=sup; |
719 |
base[1]= (V73); |
base[1]= (V52); |
720 |
base[2]= VV[11]; |
base[2]= VV[7]; |
721 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
722 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
723 |
Lformat(); |
Lformat(); |
726 |
} |
} |
727 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
728 |
|
|
729 |
static void LC16(base0) |
static void LC9(base0) |
730 |
register object *base0; |
register object *base0; |
731 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
732 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM16; VC16 |
733 |
vs_reserve(VM23); |
vs_check; |
734 |
{register object V74; |
{register object V53; |
735 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
736 |
{object *p=vs_top; |
{object *p=vs_top; |
737 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
738 |
V74=(base[0]); |
V53=(base[0]); |
739 |
vs_top=sup; |
vs_top=sup; |
740 |
(base0[1]->c.c_car)= (V74); |
(base0[1]->c.c_car)= (V53); |
741 |
{frame_ptr fr; |
{frame_ptr fr; |
742 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
743 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[15]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[11]); |
744 |
vs_base=vs_top; |
vs_base=vs_top; |
745 |
unwind(fr,VV[15]);} |
unwind(fr,VV[11]);} |
746 |
} |
} |
747 |
} |
} |
748 |
static object LnkTLI31(){return call_proc0(VV[31],(void **)(void *)&LnkLI31);} /* INSTALL-CLCS-SYMBOLS */ |
static void LnkT25(){ call_or_link(VV[25],(void **)(void *)&Lnk25);} /* ERROR */ |
749 |
static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* ERROR */ |
static void LnkT24(){ call_or_link(VV[24],(void **)(void *)&Lnk24);} /* MAKE-RESTART */ |
750 |
static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)(void *)&LnkLI29,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */ |
static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* REVERT-SYMBOL */ |
751 |
static object LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[28],(void **)(void *)&LnkLI28,1,first,ap);va_end(ap);return V1;} /* REVERT-SYMBOL */ |
static void LnkT22(){ call_or_link(VV[22],(void **)(void *)&Lnk22);} /* INSTALL-SYMBOL */ |
|
static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)(void *)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* INSTALL-SYMBOL */ |
|
|
static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* *MAKE-SPECIAL */ |
|
752 |
|
|
753 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
754 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |