52 |
bds_check; |
bds_check; |
53 |
goto TTL; |
goto TTL; |
54 |
TTL:; |
TTL:; |
55 |
if(!(endp_prop((V10)))){ |
if(!(((V10))==Cnil)){ |
56 |
goto T9;} |
goto T9;} |
57 |
(void)((*(LnkLI26))(VV[1],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI26))(VV[1],small_fixnum(1),small_fixnum(0))); |
58 |
goto T9; |
goto T9; |
59 |
T9:; |
T9:; |
60 |
if(type_of(car((V10)))==t_symbol){ |
if(type_of(CMPcar((V10)))==t_symbol){ |
61 |
goto T12;} |
goto T12;} |
62 |
(void)((VFUN_NARGS=2,(*(LnkLI27))(VV[2],car((V10))))); |
(void)((VFUN_NARGS=2,(*(LnkLI27))(VV[2],CMPcar((V10))))); |
63 |
goto T12; |
goto T12; |
64 |
T12:; |
T12:; |
65 |
{register object V11; |
{register object V11; |
66 |
object V12; |
object V12; |
67 |
V11= (VFUN_NARGS=8,(*(LnkLI28))(VV[3],car((V10)),VV[4],Cnil,VV[5],Cnil,VV[6],Cnil)); |
V11= (VFUN_NARGS=8,(*(LnkLI28))(VV[3],CMPcar((V10)),VV[4],Cnil,VV[5],Cnil,VV[6],Cnil)); |
68 |
bds_bind(VV[7],make_cons((V11),symbol_value(VV[7]))); |
bds_bind(VV[7],make_cons((V11),(VV[7]->s.s_dbind))); |
69 |
V12= (*(LnkLI29))(cdr((V10))); |
V12= (*(LnkLI29))(CMPcdr((V10))); |
70 |
if((structure_ref((V11),VV[0],3))!=Cnil){ |
if((STREF(object,(V11),12))!=Cnil){ |
71 |
goto T19;} |
goto T19;} |
72 |
if((structure_ref((V11),VV[0],2))==Cnil){ |
if((STREF(object,(V11),8))==Cnil){ |
73 |
goto T18;} |
goto T18;} |
74 |
goto T19; |
goto T19; |
75 |
T19:; |
T19:; |
76 |
setq(VV[8],number_plus(symbol_value(VV[8]),small_fixnum(1))); |
(VV[8]->s.s_dbind)= number_plus((VV[8]->s.s_dbind),small_fixnum(1)); |
77 |
goto T18; |
goto T18; |
78 |
T18:; |
T18:; |
79 |
if((structure_ref((V11),VV[0],3))!=Cnil){ |
if((STREF(object,(V11),12))!=Cnil){ |
80 |
goto T24;} |
goto T24;} |
81 |
if((structure_ref((V11),VV[0],2))!=Cnil){ |
if((STREF(object,(V11),8))!=Cnil){ |
82 |
goto T24;} |
goto T24;} |
83 |
if((structure_ref((V11),VV[0],1))==Cnil){ |
if((STREF(object,(V11),4))==Cnil){ |
84 |
goto T25;} |
goto T25;} |
85 |
goto T24; |
goto T24; |
86 |
T24:; |
T24:; |
87 |
V13= (*(LnkLI30))(cadr((V12))); |
V13= (*(LnkLI30))(CMPcadr((V12))); |
88 |
{object V14 = list(4,VV[1],/* INLINE-ARGS */V13,(V11),(V12)); |
{object V14 = list(4,VV[1],/* INLINE-ARGS */V13,(V11),(V12)); |
89 |
bds_unwind1; |
bds_unwind1; |
90 |
VMR2(V14)} |
VMR2(V14)} |
101 |
static void L3() |
static void L3() |
102 |
{register object *base=vs_base; |
{register object *base=vs_base; |
103 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
104 |
vs_reserve(VM3); |
vs_check; |
105 |
{register object V16; |
{register object V16; |
106 |
object V17; |
object V17; |
|
check_arg(2); |
|
107 |
V16=(base[0]); |
V16=(base[0]); |
108 |
V17=(base[1]); |
V17=(base[1]); |
109 |
vs_top=sup; |
vs_top=sup; |
110 |
goto TTL; |
goto TTL; |
111 |
TTL:; |
TTL:; |
112 |
if((structure_ref((V16),VV[0],3))==Cnil){ |
if((STREF(object,(V16),12))==Cnil){ |
113 |
goto T32;} |
goto T32;} |
114 |
base[2]= (*(LnkLI31))((V16),(V17)); |
base[2]= (*(LnkLI31))((V16),(V17)); |
115 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
116 |
return; |
return; |
117 |
goto T32; |
goto T32; |
118 |
T32:; |
T32:; |
119 |
if((structure_ref((V16),VV[0],2))==Cnil){ |
if((STREF(object,(V16),8))==Cnil){ |
120 |
goto T35;} |
goto T35;} |
121 |
base[2]= (*(LnkLI32))((V16),(V17)); |
base[2]= (*(LnkLI32))((V16),(V17)); |
122 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
135 |
static void L4() |
static void L4() |
136 |
{register object *base=vs_base; |
{register object *base=vs_base; |
137 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
138 |
vs_reserve(VM4); |
vs_check; |
139 |
{object V18; |
{object V18; |
140 |
object V19; |
object V19; |
|
check_arg(2); |
|
141 |
V18=(base[0]); |
V18=(base[0]); |
142 |
V19=(base[1]); |
V19=(base[1]); |
143 |
vs_top=sup; |
vs_top=sup; |
144 |
goto TTL; |
goto TTL; |
145 |
TTL:; |
TTL:; |
146 |
(void)(structure_set((V18),VV[0],4,symbol_value(VV[9]))); |
V20= Ct; |
147 |
(void)(structure_set((V18),VV[0],5,symbol_value(VV[10]))); |
STSET(object,(V18),16, (VV[9]->s.s_dbind)); |
148 |
|
(void)((VV[9]->s.s_dbind)); |
149 |
|
V21= Ct; |
150 |
|
STSET(object,(V18),20, (VV[10]->s.s_dbind)); |
151 |
|
(void)((VV[10]->s.s_dbind)); |
152 |
base[2]= (V19); |
base[2]= (V19); |
153 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
154 |
(void) (*Lnk34)(); |
(void) (*Lnk34)(); |
157 |
} |
} |
158 |
/* local entry for function C2BLOCK-CLB */ |
/* local entry for function C2BLOCK-CLB */ |
159 |
|
|
160 |
static object LI5(V22,V23) |
static object LI5(V24,V25) |
161 |
|
|
162 |
register object V22;object V23; |
register object V24;object V25; |
163 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
164 |
bds_check; |
bds_check; |
165 |
goto TTL; |
goto TTL; |
166 |
TTL:; |
TTL:; |
167 |
bds_bind(VV[11],symbol_value(VV[11])); |
bds_bind(VV[11],(VV[11]->s.s_dbind)); |
168 |
(void)(structure_set((V22),VV[0],4,symbol_value(VV[9]))); |
V26= Ct; |
169 |
(void)(structure_set((V22),VV[0],5,symbol_value(VV[10]))); |
STSET(object,(V24),16, (VV[9]->s.s_dbind)); |
170 |
V24= (*(LnkLI35))(); |
(void)((VV[9]->s.s_dbind)); |
171 |
(void)(structure_set((V22),VV[0],2,/* INLINE-ARGS */V24)); |
V27= Ct; |
172 |
|
STSET(object,(V24),20, (VV[10]->s.s_dbind)); |
173 |
|
(void)((VV[10]->s.s_dbind)); |
174 |
|
V28= (*(LnkLI35))(); |
175 |
|
V29= Ct; |
176 |
|
STSET(object,(V24),8, /* INLINE-ARGS */V28); |
177 |
|
(void)(/* INLINE-ARGS */V28); |
178 |
princ_str("\n ",VV[12]); |
princ_str("\n ",VV[12]); |
179 |
V25= structure_ref((V22),VV[0],2); |
(void)((*(LnkLI36))(STREF(object,(V24),8))); |
|
(void)((*(LnkLI36))(/* INLINE-ARGS */V25)); |
|
180 |
princ_str("=alloc_frame_id();",VV[12]); |
princ_str("=alloc_frame_id();",VV[12]); |
181 |
princ_str("\n frs_push(FRS_CATCH,",VV[12]); |
princ_str("\n frs_push(FRS_CATCH,",VV[12]); |
182 |
V26= structure_ref((V22),VV[0],2); |
(void)((*(LnkLI36))(STREF(object,(V24),8))); |
|
(void)((*(LnkLI36))(/* INLINE-ARGS */V26)); |
|
183 |
princ_str(");",VV[12]); |
princ_str(");",VV[12]); |
184 |
princ_str("\n if(nlj_active)",VV[12]); |
princ_str("\n if(nlj_active)",VV[12]); |
185 |
princ_str("\n {nlj_active=FALSE;frs_pop();",VV[12]); |
princ_str("\n {nlj_active=FALSE;frs_pop();",VV[12]); |
186 |
(void)((VFUN_NARGS=2,(*(LnkLI37))(VV[13],VV[14]))); |
(void)((VFUN_NARGS=2,(*(LnkLI37))(VV[13],VV[14]))); |
187 |
princ_char(125,VV[12]); |
princ_char(125,VV[12]); |
188 |
princ_str("\n else{",VV[12]); |
princ_str("\n else{",VV[12]); |
189 |
base[1]= make_cons(VV[16],symbol_value(VV[15])); |
base[1]= make_cons(VV[16],(VV[15]->s.s_dbind)); |
190 |
bds_bind(VV[15],base[1]); |
bds_bind(VV[15],base[1]); |
191 |
base[2]= (V23); |
base[2]= (V25); |
192 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
193 |
(void) (*Lnk34)(); |
(void) (*Lnk34)(); |
194 |
vs_top=sup; |
vs_top=sup; |
195 |
bds_unwind1; |
bds_unwind1; |
196 |
princ_str("\n }",VV[12]); |
princ_str("\n }",VV[12]); |
197 |
{object V27 = Cnil; |
{object V30 = Cnil; |
198 |
bds_unwind1; |
bds_unwind1; |
199 |
VMR5(V27)} |
VMR5(V30)} |
200 |
base[0]=base[0]; |
base[0]=base[0]; |
201 |
return Cnil; |
return Cnil; |
202 |
} |
} |
203 |
/* local entry for function C2BLOCK-CCB */ |
/* local entry for function C2BLOCK-CCB */ |
204 |
|
|
205 |
static object LI6(V30,V31) |
static object LI6(V33,V34) |
206 |
|
|
207 |
register object V30;object V31; |
register object V33;object V34; |
208 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
209 |
bds_check; |
bds_check; |
210 |
goto TTL; |
goto TTL; |
211 |
TTL:; |
TTL:; |
212 |
bds_bind(VV[11],symbol_value(VV[11])); |
bds_bind(VV[11],(VV[11]->s.s_dbind)); |
213 |
bds_bind(VV[17],symbol_value(VV[17])); |
bds_bind(VV[17],(VV[17]->s.s_dbind)); |
214 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],(VV[18]->s.s_dbind)); |
215 |
(void)(structure_set((V30),VV[0],4,symbol_value(VV[9]))); |
V35= Ct; |
216 |
(void)(structure_set((V30),VV[0],5,symbol_value(VV[10]))); |
STSET(object,(V33),16, (VV[9]->s.s_dbind)); |
217 |
V32= (*(LnkLI35))(); |
(void)((VV[9]->s.s_dbind)); |
218 |
(void)(structure_set((V30),VV[0],2,/* INLINE-ARGS */V32)); |
V36= Ct; |
219 |
V33= structure_ref((V30),VV[0],0); |
STSET(object,(V33),20, (VV[10]->s.s_dbind)); |
220 |
V34= (*(LnkLI38))(/* INLINE-ARGS */V33); |
(void)((VV[10]->s.s_dbind)); |
221 |
(void)(structure_set((V30),VV[0],6,/* INLINE-ARGS */V34)); |
V37= (*(LnkLI35))(); |
222 |
|
V38= Ct; |
223 |
|
STSET(object,(V33),8, /* INLINE-ARGS */V37); |
224 |
|
(void)(/* INLINE-ARGS */V37); |
225 |
|
V39= (*(LnkLI38))(STREF(object,(V33),0)); |
226 |
|
V40= Ct; |
227 |
|
STSET(object,(V33),24, /* INLINE-ARGS */V39); |
228 |
|
(void)(/* INLINE-ARGS */V39); |
229 |
princ_str("\n ",VV[12]); |
princ_str("\n ",VV[12]); |
230 |
V35= structure_ref((V30),VV[0],2); |
(void)((*(LnkLI36))(STREF(object,(V33),8))); |
|
(void)((*(LnkLI36))(/* INLINE-ARGS */V35)); |
|
231 |
princ_str("=alloc_frame_id();",VV[12]); |
princ_str("=alloc_frame_id();",VV[12]); |
232 |
princ_str("\n ",VV[12]); |
princ_str("\n ",VV[12]); |
233 |
V36= structure_ref((V30),VV[0],2); |
(void)((*(LnkLI36))(STREF(object,(V33),8))); |
|
(void)((*(LnkLI36))(/* INLINE-ARGS */V36)); |
|
234 |
princ_str("=MMcons(",VV[12]); |
princ_str("=MMcons(",VV[12]); |
235 |
V37= structure_ref((V30),VV[0],2); |
(void)((*(LnkLI36))(STREF(object,(V33),8))); |
|
(void)((*(LnkLI36))(/* INLINE-ARGS */V37)); |
|
236 |
princ_char(44,VV[12]); |
princ_char(44,VV[12]); |
237 |
(void)((VFUN_NARGS=0,(*(LnkLI39))())); |
(void)((VFUN_NARGS=0,(*(LnkLI39))())); |
238 |
princ_str(");",VV[12]); |
princ_str(");",VV[12]); |
239 |
V38= structure_ref((V30),VV[0],2); |
(void)((*(LnkLI40))(STREF(object,(V33),8))); |
240 |
(void)((*(LnkLI40))(/* INLINE-ARGS */V38)); |
V41= (*(LnkLI41))(); |
241 |
V39= (*(LnkLI41))(); |
V42= Ct; |
242 |
(void)(structure_set((V30),VV[0],3,/* INLINE-ARGS */V39)); |
STSET(object,(V33),12, /* INLINE-ARGS */V41); |
243 |
|
(void)(/* INLINE-ARGS */V41); |
244 |
princ_str("\n frs_push(FRS_CATCH,",VV[12]); |
princ_str("\n frs_push(FRS_CATCH,",VV[12]); |
245 |
V40= structure_ref((V30),VV[0],2); |
(void)((*(LnkLI42))(STREF(object,(V33),8))); |
|
(void)((*(LnkLI42))(/* INLINE-ARGS */V40)); |
|
246 |
princ_str(");",VV[12]); |
princ_str(");",VV[12]); |
247 |
princ_str("\n if(nlj_active)",VV[12]); |
princ_str("\n if(nlj_active)",VV[12]); |
248 |
princ_str("\n {nlj_active=FALSE;frs_pop();",VV[12]); |
princ_str("\n {nlj_active=FALSE;frs_pop();",VV[12]); |
249 |
(void)((VFUN_NARGS=2,(*(LnkLI37))(VV[13],VV[14]))); |
(void)((VFUN_NARGS=2,(*(LnkLI37))(VV[13],VV[14]))); |
250 |
princ_char(125,VV[12]); |
princ_char(125,VV[12]); |
251 |
princ_str("\n else{",VV[12]); |
princ_str("\n else{",VV[12]); |
252 |
base[3]= make_cons(VV[16],symbol_value(VV[15])); |
base[3]= make_cons(VV[16],(VV[15]->s.s_dbind)); |
253 |
bds_bind(VV[15],base[3]); |
bds_bind(VV[15],base[3]); |
254 |
base[4]= (V31); |
base[4]= (V34); |
255 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
256 |
(void) (*Lnk34)(); |
(void) (*Lnk34)(); |
257 |
vs_top=sup; |
vs_top=sup; |
258 |
bds_unwind1; |
bds_unwind1; |
259 |
princ_str("\n }",VV[12]); |
princ_str("\n }",VV[12]); |
260 |
{object V41 = Cnil; |
{object V43 = Cnil; |
261 |
bds_unwind1; |
bds_unwind1; |
262 |
bds_unwind1; |
bds_unwind1; |
263 |
bds_unwind1; |
bds_unwind1; |
264 |
VMR6(V41)} |
VMR6(V43)} |
265 |
base[0]=base[0]; |
base[0]=base[0]; |
266 |
return Cnil; |
return Cnil; |
267 |
} |
} |
268 |
/* local entry for function C1RETURN-FROM */ |
/* local entry for function C1RETURN-FROM */ |
269 |
|
|
270 |
static object LI7(V43) |
static object LI7(V45) |
271 |
|
|
272 |
object V43; |
object V45; |
273 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
274 |
goto TTL; |
goto TTL; |
275 |
TTL:; |
TTL:; |
276 |
if(!(endp_prop((V43)))){ |
if(!(((V45))==Cnil)){ |
277 |
goto T107;} |
goto T107;} |
278 |
(void)((*(LnkLI26))(VV[19],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI26))(VV[19],small_fixnum(1),small_fixnum(0))); |
279 |
goto T105; |
goto T105; |
280 |
goto T107; |
goto T107; |
281 |
T107:; |
T107:; |
282 |
if(endp_prop(cdr((V43)))){ |
if((CMPcdr((V45)))==Cnil){ |
283 |
goto T110;} |
goto T110;} |
284 |
if(endp_prop(cddr((V43)))){ |
if((CMPcddr((V45)))==Cnil){ |
285 |
goto T110;} |
goto T110;} |
286 |
V44 = make_fixnum((long)length((V43))); |
V46 = CMPmake_fixnum((long)length((V45))); |
287 |
(void)((*(LnkLI43))(VV[19],small_fixnum(2),V44)); |
(void)((*(LnkLI43))(VV[19],small_fixnum(2),V46)); |
288 |
goto T105; |
goto T105; |
289 |
goto T110; |
goto T110; |
290 |
T110:; |
T110:; |
291 |
if(type_of(car((V43)))==t_symbol){ |
if(type_of(CMPcar((V45)))==t_symbol){ |
292 |
goto T105;} |
goto T105;} |
293 |
(void)(car((V43))); |
(void)(CMPcar((V45))); |
294 |
goto T105; |
goto T105; |
295 |
T105:; |
T105:; |
296 |
{register object V45; |
{register object V47; |
|
register object V46; |
|
|
register object V47; |
|
297 |
register object V48; |
register object V48; |
298 |
V45= symbol_value(VV[7]); |
register object V49; |
299 |
V46= car((V43)); |
register object V50; |
300 |
V47= Cnil; |
V47= (VV[7]->s.s_dbind); |
301 |
V48= Cnil; |
V48= CMPcar((V45)); |
302 |
|
V49= Cnil; |
303 |
|
V50= Cnil; |
304 |
goto T120; |
goto T120; |
305 |
T120:; |
T120:; |
306 |
if(!(endp_prop((V45)))){ |
if(!(((V47))==Cnil)){ |
307 |
goto T121;} |
goto T121;} |
308 |
{object V49 = (VFUN_NARGS=2,(*(LnkLI27))(VV[21],(V46))); |
{object V51 = (VFUN_NARGS=2,(*(LnkLI27))(VV[21],(V48))); |
309 |
VMR7(V49)} |
VMR7(V51)} |
310 |
goto T121; |
goto T121; |
311 |
T121:; |
T121:; |
312 |
{object V50= car((V45)); |
{object V52= CMPcar((V47)); |
313 |
if((V50!= VV[44]))goto T126; |
if((V52!= VV[44]))goto T126; |
314 |
V47= Ct; |
V49= Ct; |
315 |
goto T125; |
goto T125; |
316 |
goto T126; |
goto T126; |
317 |
T126:; |
T126:; |
318 |
if((V50!= VV[45]))goto T128; |
if((V52!= VV[45]))goto T128; |
319 |
V48= Ct; |
V50= Ct; |
320 |
goto T125; |
goto T125; |
321 |
goto T128; |
goto T128; |
322 |
T128:; |
T128:; |
323 |
V51= structure_ref(car((V45)),VV[0],0); |
if(!((STREF(object,CMPcar((V47)),0))==((V48)))){ |
|
if(!((/* INLINE-ARGS */V51)==((V46)))){ |
|
324 |
goto T125;} |
goto T125;} |
325 |
{register object V52; |
{register object V53; |
326 |
register object V53; |
register object V54; |
327 |
V52= (*(LnkLI46))(cadr((V43))); |
V53= (*(LnkLI46))(CMPcadr((V45))); |
328 |
V53= car((V45)); |
V54= CMPcar((V47)); |
329 |
if(((V47))==Cnil){ |
if(((V49))==Cnil){ |
330 |
goto T136;} |
goto T136;} |
331 |
(void)(structure_set((V53),VV[0],3,Ct)); |
V55= Ct; |
332 |
|
STSET(object,(V54),12, Ct); |
333 |
|
(void)(Ct); |
334 |
goto T134; |
goto T134; |
335 |
goto T136; |
goto T136; |
336 |
T136:; |
T136:; |
337 |
if(((V48))==Cnil){ |
if(((V50))==Cnil){ |
338 |
goto T139;} |
goto T139;} |
339 |
(void)(structure_set((V53),VV[0],2,Ct)); |
V56= Ct; |
340 |
|
STSET(object,(V54),8, Ct); |
341 |
|
(void)(Ct); |
342 |
goto T134; |
goto T134; |
343 |
goto T139; |
goto T139; |
344 |
T139:; |
T139:; |
345 |
(void)(structure_set((V53),VV[0],1,Ct)); |
V57= Ct; |
346 |
|
STSET(object,(V54),4, Ct); |
347 |
|
(void)(Ct); |
348 |
goto T134; |
goto T134; |
349 |
T134:; |
T134:; |
350 |
V54= (*(LnkLI30))(cadr((V52))); |
V58= (*(LnkLI30))(CMPcadr((V53))); |
351 |
{object V55 = list(6,VV[19],/* INLINE-ARGS */V54,(V53),(V48),(V47),(V52)); |
{object V59 = list(6,VV[19],/* INLINE-ARGS */V58,(V54),(V50),(V49),(V53)); |
352 |
VMR7(V55)}}} |
VMR7(V59)}}} |
353 |
goto T125; |
goto T125; |
354 |
T125:; |
T125:; |
355 |
V45= cdr((V45)); |
V47= CMPcdr((V47)); |
356 |
goto T120;} |
goto T120;} |
357 |
return Cnil; |
return Cnil; |
358 |
} |
} |
361 |
static void L8() |
static void L8() |
362 |
{register object *base=vs_base; |
{register object *base=vs_base; |
363 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
364 |
vs_reserve(VM8); |
vs_check; |
365 |
{object V56; |
{object V60; |
366 |
object V57; |
object V61; |
367 |
object V58; |
object V62; |
368 |
object V59; |
object V63; |
369 |
check_arg(4); |
V60=(base[0]); |
370 |
V56=(base[0]); |
V61=(base[1]); |
371 |
V57=(base[1]); |
V62=(base[2]); |
372 |
V58=(base[2]); |
V63=(base[3]); |
|
V59=(base[3]); |
|
373 |
vs_top=sup; |
vs_top=sup; |
374 |
goto TTL; |
goto TTL; |
375 |
TTL:; |
TTL:; |
376 |
if(((V58))==Cnil){ |
if(((V62))==Cnil){ |
377 |
goto T145;} |
goto T145;} |
378 |
base[4]= (*(LnkLI47))((V56),(V59)); |
base[4]= (*(LnkLI47))((V60),(V63)); |
379 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
380 |
return; |
return; |
381 |
goto T145; |
goto T145; |
382 |
T145:; |
T145:; |
383 |
if(((V57))==Cnil){ |
if(((V61))==Cnil){ |
384 |
goto T148;} |
goto T148;} |
385 |
base[4]= (*(LnkLI48))((V56),(V59)); |
base[4]= (*(LnkLI48))((V60),(V63)); |
386 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
387 |
return; |
return; |
388 |
goto T148; |
goto T148; |
389 |
T148:; |
T148:; |
390 |
base[4]= (V56); |
base[4]= (V60); |
391 |
base[5]= (V59); |
base[5]= (V63); |
392 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
393 |
(void) (*Lnk49)(); |
(void) (*Lnk49)(); |
394 |
return; |
return; |
399 |
static void L9() |
static void L9() |
400 |
{register object *base=vs_base; |
{register object *base=vs_base; |
401 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
402 |
vs_reserve(VM9); |
vs_check; |
403 |
bds_check; |
bds_check; |
404 |
{object V60; |
{object V64; |
405 |
object V61; |
object V65; |
406 |
check_arg(2); |
V64=(base[0]); |
407 |
V60=(base[0]); |
V65=(base[1]); |
|
V61=(base[1]); |
|
408 |
vs_top=sup; |
vs_top=sup; |
409 |
goto TTL; |
goto TTL; |
410 |
TTL:; |
TTL:; |
411 |
base[2]= structure_ref((V60),VV[0],5); |
base[2]= STREF(object,(V64),20); |
412 |
base[3]= structure_ref((V60),VV[0],4); |
base[3]= STREF(object,(V64),16); |
413 |
bds_bind(VV[10],base[2]); |
bds_bind(VV[10],base[2]); |
414 |
bds_bind(VV[9],base[3]); |
bds_bind(VV[9],base[3]); |
415 |
base[4]= (V61); |
base[4]= (V65); |
416 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
417 |
(void) (*Lnk34)(); |
(void) (*Lnk34)(); |
418 |
bds_unwind1; |
bds_unwind1; |
422 |
} |
} |
423 |
/* local entry for function C2RETURN-CLB */ |
/* local entry for function C2RETURN-CLB */ |
424 |
|
|
425 |
static object LI10(V64,V65) |
static object LI10(V68,V69) |
426 |
|
|
427 |
object V64;object V65; |
object V68;object V69; |
428 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
429 |
bds_check; |
bds_check; |
430 |
goto TTL; |
goto TTL; |
431 |
TTL:; |
TTL:; |
432 |
bds_bind(VV[10],VV[22]); |
bds_bind(VV[10],VV[22]); |
433 |
V66= (*(LnkLI50))((V65)); |
V70= (*(LnkLI50))((V69)); |
434 |
bds_unwind1; |
bds_unwind1; |
435 |
princ_str("\n unwind(frs_sch(",VV[12]); |
princ_str("\n unwind(frs_sch(",VV[12]); |
436 |
if((structure_ref((V64),VV[0],3))==Cnil){ |
if((STREF(object,(V68),12))==Cnil){ |
437 |
goto T160;} |
goto T160;} |
438 |
V67= structure_ref((V64),VV[0],2); |
(void)((*(LnkLI42))(STREF(object,(V68),8))); |
|
(void)((*(LnkLI42))(/* INLINE-ARGS */V67)); |
|
439 |
goto T158; |
goto T158; |
440 |
goto T160; |
goto T160; |
441 |
T160:; |
T160:; |
442 |
V68= structure_ref((V64),VV[0],2); |
(void)((*(LnkLI36))(STREF(object,(V68),8))); |
|
(void)((*(LnkLI36))(/* INLINE-ARGS */V68)); |
|
443 |
goto T158; |
goto T158; |
444 |
T158:; |
T158:; |
445 |
princ_str("),Cnil);",VV[12]); |
princ_str("),Cnil);",VV[12]); |
446 |
{object V69 = Cnil; |
{object V71 = Cnil; |
447 |
VMR10(V69)} |
VMR10(V71)} |
448 |
base[0]=base[0]; |
base[0]=base[0]; |
449 |
return Cnil; |
return Cnil; |
450 |
} |
} |
451 |
/* local entry for function C2RETURN-CCB */ |
/* local entry for function C2RETURN-CCB */ |
452 |
|
|
453 |
static object LI11(V72,V73) |
static object LI11(V74,V75) |
454 |
|
|
455 |
object V72;object V73; |
object V74;object V75; |
456 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
457 |
bds_check; |
bds_check; |
458 |
goto TTL; |
goto TTL; |
459 |
TTL:; |
TTL:; |
460 |
princ_str("\n {frame_ptr fr;",VV[12]); |
princ_str("\n {frame_ptr fr;",VV[12]); |
461 |
princ_str("\n fr=frs_sch(",VV[12]); |
princ_str("\n fr=frs_sch(",VV[12]); |
462 |
V74= structure_ref((V72),VV[0],3); |
(void)((*(LnkLI51))(STREF(object,(V74),12))); |
|
(void)((*(LnkLI51))(/* INLINE-ARGS */V74)); |
|
463 |
princ_str(");",VV[12]); |
princ_str(");",VV[12]); |
464 |
princ_str("\n if(fr==NULL) FEerror(\"The block ~s is missing.\",1,VV[",VV[12]); |
princ_str("\n if(fr==NULL) FEerror(\"The block ~s is missing.\",1,VV[",VV[12]); |
465 |
V75= structure_ref((V72),VV[0],6); |
(void)((*(LnkLI52))(STREF(object,(V74),24))); |
|
(void)((*(LnkLI52))(/* INLINE-ARGS */V75)); |
|
466 |
princ_str("]);",VV[12]); |
princ_str("]);",VV[12]); |
467 |
bds_bind(VV[10],VV[22]); |
bds_bind(VV[10],VV[22]); |
468 |
V76= (*(LnkLI50))((V73)); |
V76= (*(LnkLI50))((V75)); |
469 |
bds_unwind1; |
bds_unwind1; |
470 |
princ_str("\n unwind(fr,Cnil);}",VV[12]); |
princ_str("\n unwind(fr,Cnil);}",VV[12]); |
471 |
{object V77 = Cnil; |
{object V77 = Cnil; |