2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_top_patches.h" |
#include "clcs_top_patches.h" |
4 |
void init_clcs_top_patches(){do_init(VV);} |
void init_clcs_top_patches(){do_init(VV);} |
5 |
|
/* local entry for function progn 'compile2191 */ |
6 |
|
|
7 |
|
static object LI1() |
8 |
|
|
9 |
|
{ VMB1 VMS1 VMV1 |
10 |
|
goto TTL; |
11 |
|
TTL:; |
12 |
|
base[0]= VV[0]; |
13 |
|
vs_top=(vs_base=base+0)+1; |
14 |
|
(void) (*Lnk71)(); |
15 |
|
vs_top=sup; |
16 |
|
{object V1 = Cnil; |
17 |
|
VMR1(V1)} |
18 |
|
base[0]=base[0]; |
19 |
|
return Cnil; |
20 |
|
} |
21 |
|
/* local entry for function progn 'compile2203 */ |
22 |
|
|
23 |
|
static object LI2() |
24 |
|
|
25 |
|
{ VMB2 VMS2 VMV2 |
26 |
|
goto TTL; |
27 |
|
TTL:; |
28 |
|
if(!((VV[0])->s.s_dbind!=OBJNULL)){ |
29 |
|
goto T4;} |
30 |
|
goto T3; |
31 |
|
goto T4; |
32 |
|
T4:; |
33 |
|
(VV[0]->s.s_dbind)= Cnil; |
34 |
|
goto T3; |
35 |
|
T3:; |
36 |
|
{object V2 = Cnil; |
37 |
|
VMR2(V2)} |
38 |
|
return Cnil; |
39 |
|
} |
40 |
|
/* local entry for function progn 'compile2216 */ |
41 |
|
|
42 |
|
static object LI3() |
43 |
|
|
44 |
|
{ VMB3 VMS3 VMV3 |
45 |
|
goto TTL; |
46 |
|
TTL:; |
47 |
|
{object V3 = Cnil; |
48 |
|
VMR3(V3)} |
49 |
|
return Cnil; |
50 |
|
} |
51 |
/* macro definition for WITH-CLCS-BREAK-LEVEL-BINDINGS */ |
/* macro definition for WITH-CLCS-BREAK-LEVEL-BINDINGS */ |
52 |
|
|
53 |
static void L1() |
static void L4() |
54 |
{register object *base=vs_base; |
{register object *base=vs_base; |
55 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM4; VC4 |
56 |
vs_check; |
vs_check; |
57 |
vs_top=sup; |
vs_top=sup; |
58 |
{object V1=base[0]->c.c_cdr; |
{object V4=base[0]->c.c_cdr; |
59 |
base[2]= V1;} |
base[2]= V4;} |
60 |
base[3]= listA(3,VV[0],VV[1],base[2]); |
base[3]= listA(3,VV[1],VV[2],base[2]); |
61 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
62 |
return; |
return; |
63 |
} |
} |
64 |
/* function definition for CLCS-BREAK-LEVEL-INVOKE-RESTART */ |
/* function definition for CLCS-BREAK-LEVEL-INVOKE-RESTART */ |
65 |
|
|
66 |
static void L2() |
static void L5() |
67 |
{register object *base=vs_base; |
{register object *base=vs_base; |
68 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM5; VC5 |
69 |
vs_check; |
vs_check; |
70 |
bds_check; |
bds_check; |
71 |
bds_bind(VV[2],base[0]); |
bds_bind(VV[3],base[0]); |
72 |
vs_top=sup; |
vs_top=sup; |
73 |
goto TTL; |
goto TTL; |
74 |
TTL:; |
TTL:; |
75 |
if(!(number_compare(small_fixnum(0),(VV[2]->s.s_dbind))<0)){ |
if(!(number_compare(small_fixnum(0),(VV[3]->s.s_dbind))<0)){ |
76 |
goto T2;}{object V2; |
goto T9;}{object V5; |
77 |
V2= (VV[2]->s.s_dbind); |
V5= (VV[3]->s.s_dbind); |
78 |
V3= number_plus((VV[3]->s.s_dbind),small_fixnum(1)); |
V6= number_plus((VV[4]->s.s_dbind),small_fixnum(1)); |
79 |
if(!(number_compare(V2,/* INLINE-ARGS */V3)<0)){ |
if(!(number_compare(V5,/* INLINE-ARGS */V6)<0)){ |
80 |
goto T2;}} |
goto T9;}} |
81 |
{object V4; |
{object V7; |
82 |
V5= number_minus((VV[2]->s.s_dbind),small_fixnum(1)); |
V8= number_minus((VV[3]->s.s_dbind),small_fixnum(1)); |
83 |
V4= nth(fix(/* INLINE-ARGS */V5),(VV[4]->s.s_dbind)); |
V7= nth(fix(/* INLINE-ARGS */V8),(VV[5]->s.s_dbind)); |
84 |
base[1]= (V4); |
base[1]= (V7); |
85 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
86 |
(void) (*Lnk62)(); |
(void) (*Lnk72)(); |
87 |
bds_unwind1; |
bds_unwind1; |
88 |
return;} |
return;} |
89 |
goto T2; |
goto T9; |
90 |
T2:; |
T9:; |
91 |
base[1]= Ct; |
base[1]= Ct; |
92 |
base[2]= VV[5]; |
base[2]= VV[6]; |
93 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
94 |
Lformat(); |
Lformat(); |
95 |
bds_unwind1; |
bds_unwind1; |
96 |
return; |
return; |
97 |
} |
} |
98 |
/* function definition for CLCS-BREAK-LEVEL */ |
/* local entry for function CLCS-BREAK-LEVEL */ |
99 |
|
|
100 |
static void L3() |
static object LI6(object V9,object first,...) |
101 |
{register object *VOL base=vs_base; |
{ |
102 |
register object *VOL sup=base+VM3; VC3 |
va_list ap; |
103 |
vs_check; |
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
104 |
bds_check; |
bds_check; |
105 |
{VOL object V6; |
{VOL object V10; |
106 |
VOL object V7; |
VOL object V11; |
107 |
V6=(base[0]); |
va_start(ap,first); |
108 |
vs_base=vs_base+1; |
V10= V9; |
109 |
if(vs_base>=vs_top){vs_top=sup;goto T10;} |
narg = narg - 1; |
110 |
V7=(base[1]); |
if (narg <= 0) goto T17; |
111 |
vs_top=sup; |
else { |
112 |
goto T11; |
V11= first;} |
113 |
goto T10; |
--narg; goto T18; |
114 |
T10:; |
goto T17; |
115 |
V7= Cnil; |
T17:; |
116 |
goto T11; |
V11= Cnil; |
117 |
T11:; |
goto T18; |
118 |
if(type_of((V6))==t_string){ |
T18:; |
119 |
goto T14;} |
if(type_of((V10))==t_string){ |
120 |
base[24]= (V6); |
goto T21;} |
121 |
vs_top=(vs_base=base+24)+1; |
if(((*(LnkLI73))((V10)))==Cnil){ |
122 |
(void) (*Lnk63)(); |
goto T22;} |
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T15;} |
|
|
goto T14; |
|
|
T14:; |
|
|
bds_bind(VV[6],(V6)); |
|
|
goto T13; |
|
|
goto T15; |
|
|
T15:; |
|
|
bds_bind(VV[6],(VV[6]->s.s_dbind)); |
|
|
goto T13; |
|
|
T13:; |
|
|
V8= make_cons((VV[8]->s.s_dbind),(VV[9]->s.s_dbind)); |
|
|
bds_bind(VV[7],make_cons(/* INLINE-ARGS */V8,(VV[7]->s.s_dbind))); |
|
|
bds_bind(VV[9],Cnil); |
|
|
base[24]= (V6); |
|
|
vs_top=(vs_base=base+24)+1; |
|
|
(void) (*Lnk63)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T23;} |
|
|
bds_bind(VV[8],make_cons(Ct,(VV[8]->s.s_dbind))); |
|
|
goto T21; |
|
|
goto T23; |
|
|
T23:; |
|
|
bds_bind(VV[8],(VV[8]->s.s_dbind)); |
|
123 |
goto T21; |
goto T21; |
124 |
T21:; |
T21:; |
125 |
bds_bind(VV[10],one_plus((VV[11]->s.s_dbind))); |
bds_bind(VV[7],(V10)); |
126 |
|
goto T20; |
127 |
|
goto T22; |
128 |
|
T22:; |
129 |
|
bds_bind(VV[7],(VV[7]->s.s_dbind)); |
130 |
|
goto T20; |
131 |
|
T20:; |
132 |
|
V12= make_cons((VV[9]->s.s_dbind),(VV[10]->s.s_dbind)); |
133 |
|
bds_bind(VV[8],make_cons(/* INLINE-ARGS */V12,(VV[8]->s.s_dbind))); |
134 |
|
bds_bind(VV[10],Cnil); |
135 |
|
if(((*(LnkLI73))((V10)))==Cnil){ |
136 |
|
goto T29;} |
137 |
|
bds_bind(VV[9],make_cons(Ct,(VV[9]->s.s_dbind))); |
138 |
|
goto T27; |
139 |
|
goto T29; |
140 |
|
T29:; |
141 |
|
bds_bind(VV[9],(VV[9]->s.s_dbind)); |
142 |
|
goto T27; |
143 |
|
T27:; |
144 |
|
bds_bind(VV[11],one_plus((VV[12]->s.s_dbind))); |
145 |
vs_base=vs_top; |
vs_base=vs_top; |
146 |
(void) (*Lnk64)(); |
(void) (*Lnk74)(); |
147 |
vs_top=sup; |
vs_top=sup; |
148 |
V9= vs_base[0]; |
V13= vs_base[0]; |
149 |
bds_bind(VV[11],one_minus(V9)); |
bds_bind(VV[12],one_minus(V13)); |
150 |
bds_bind(VV[12],(VV[11]->s.s_dbind));{VOL object V10; |
bds_bind(VV[13],(VV[12]->s.s_dbind));{VOL object V14; |
151 |
base[24]= (VV[14]->s.s_dbind); |
base[22]= (VV[15]->s.s_dbind); |
152 |
base[25]= (VV[10]->s.s_dbind); |
base[23]= (VV[11]->s.s_dbind); |
153 |
vs_top=(vs_base=base+24)+2; |
vs_top=(vs_base=base+22)+2; |
154 |
(void) (*Lnk65)(); |
(void) (*Lnk75)(); |
155 |
vs_top=sup; |
vs_top=sup; |
156 |
V10= vs_base[0]; |
V14= vs_base[0]; |
157 |
if(V10==Cnil)goto T30; |
if(V14==Cnil)goto T35; |
158 |
bds_bind(VV[13],V10); |
bds_bind(VV[14],V14); |
159 |
goto T29; |
goto T34; |
160 |
goto T30; |
goto T35; |
161 |
T30:;} |
T35:;} |
162 |
vs_base=vs_top; |
vs_base=vs_top; |
163 |
(void) (*Lnk66)(); |
(void) (*Lnk76)(); |
164 |
vs_top=sup; |
vs_top=sup; |
165 |
V11= vs_base[0]; |
V15= vs_base[0]; |
166 |
bds_bind(VV[13],one_plus(V11)); |
bds_bind(VV[14],one_plus(V15)); |
167 |
goto T29; |
goto T34; |
168 |
T29:; |
T34:; |
169 |
vs_base=vs_top; |
vs_base=vs_top; |
170 |
(void) (*Lnk66)(); |
(void) (*Lnk76)(); |
171 |
vs_top=sup; |
vs_top=sup; |
172 |
bds_bind(VV[14],vs_base[0]); |
bds_bind(VV[15],vs_base[0]); |
173 |
bds_bind(VV[15],Cnil); |
bds_bind(VV[16],Cnil); |
174 |
if((VV[17]->s.s_dbind)!=Cnil){ |
if((VV[18]->s.s_dbind)!=Cnil){ |
175 |
bds_bind(VV[16],(VV[17]->s.s_dbind)); |
bds_bind(VV[17],(VV[18]->s.s_dbind)); |
176 |
goto T36;} |
goto T41;} |
177 |
bds_bind(VV[16],(VV[16]->s.s_dbind)); |
bds_bind(VV[17],(VV[17]->s.s_dbind)); |
178 |
goto T36; |
goto T41; |
179 |
T36:; |
T41:; |
180 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[19],Cnil); |
|
bds_bind(VV[19],(VV[19]->s.s_dbind)); |
|
181 |
bds_bind(VV[20],(VV[20]->s.s_dbind)); |
bds_bind(VV[20],(VV[20]->s.s_dbind)); |
182 |
bds_bind(VV[21],(VV[21]->s.s_dbind)); |
bds_bind(VV[21],(VV[21]->s.s_dbind)); |
|
bds_bind(VV[2],(VV[2]->s.s_dbind)); |
|
183 |
bds_bind(VV[22],(VV[22]->s.s_dbind)); |
bds_bind(VV[22],(VV[22]->s.s_dbind)); |
184 |
|
bds_bind(VV[3],(VV[3]->s.s_dbind)); |
185 |
bds_bind(VV[23],(VV[23]->s.s_dbind)); |
bds_bind(VV[23],(VV[23]->s.s_dbind)); |
186 |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
187 |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
188 |
bds_bind(VV[26],(VV[26]->s.s_dbind)); |
bds_bind(VV[26],(VV[26]->s.s_dbind)); |
189 |
bds_bind(VV[27],(VV[27]->s.s_dbind)); |
bds_bind(VV[27],(VV[27]->s.s_dbind)); |
190 |
bds_bind(VV[28],one_plus((VV[28]->s.s_dbind))); |
bds_bind(VV[28],(VV[28]->s.s_dbind)); |
191 |
base[25]=MMcons((VV[28]->s.s_dbind),Cnil); |
bds_bind(VV[29],one_plus((VV[29]->s.s_dbind))); |
192 |
vs_base=vs_top; |
base[23]=MMcons((VV[29]->s.s_dbind),Cnil); |
193 |
(void) (*Lnk67)(); |
bds_bind(VV[5],(VFUN_NARGS=0,(*(LnkLI77))())); |
194 |
vs_top=sup; |
bds_bind(VV[4],CMPmake_fixnum((long)length((VV[5]->s.s_dbind)))); |
195 |
bds_bind(VV[4],vs_base[0]); |
bds_bind(VV[30],(VFUN_NARGS=1,(*(LnkLI78))(VV[31])));{VOL object V16; |
196 |
bds_bind(VV[3],CMPmake_fixnum((long)length((VV[4]->s.s_dbind)))); |
{object V17; |
197 |
base[32]= VV[30]; |
V17= (VFUN_NARGS=1,(*(LnkLI78))(VV[33])); |
198 |
vs_top=(vs_base=base+32)+1; |
if(((VV[32]->s.s_dbind))==Cnil){ |
199 |
(void) (*Lnk68)(); |
goto T50;} |
200 |
vs_top=sup; |
if(((VV[32]->s.s_dbind))==((V17))){ |
201 |
bds_bind(VV[29],vs_base[0]);{VOL object V12; |
goto T51;} |
202 |
{object V13; |
goto T50; |
203 |
base[32]= VV[32]; |
T50:; |
204 |
vs_top=(vs_base=base+32)+1; |
V16= (V17); |
205 |
(void) (*Lnk68)(); |
goto T48; |
206 |
vs_top=sup; |
goto T51; |
207 |
V13= vs_base[0]; |
T51:; |
208 |
if(((VV[31]->s.s_dbind))==Cnil){ |
V16= Cnil;} |
|
goto T47;} |
|
|
if(((VV[31]->s.s_dbind))==((V13))){ |
|
|
goto T48;} |
|
|
goto T47; |
|
|
T47:; |
|
|
V12= (V13); |
|
|
goto T44; |
|
209 |
goto T48; |
goto T48; |
210 |
T48:; |
T48:; |
211 |
V12= Cnil;} |
if(V16==Cnil)goto T47; |
212 |
goto T44; |
bds_bind(VV[32],V16); |
213 |
T44:; |
goto T46; |
214 |
if(V12==Cnil)goto T43; |
goto T47; |
215 |
bds_bind(VV[31],V12); |
T47:;} |
216 |
goto T42; |
{object V18; |
217 |
goto T43; |
if(((VV[5]->s.s_dbind))==Cnil){ |
|
T43:;} |
|
|
{object V14; |
|
|
if(((VV[4]->s.s_dbind))==Cnil){ |
|
|
goto T54;} |
|
|
V14= CMPcar((VV[4]->s.s_dbind)); |
|
|
goto T52; |
|
|
goto T54; |
|
|
T54:; |
|
|
V14= Cnil; |
|
|
goto T52; |
|
|
T52:; |
|
|
if(((V14))==((VV[29]->s.s_dbind))){ |
|
218 |
goto T57;} |
goto T57;} |
219 |
bds_bind(VV[31],(V14)); |
V18= CMPcar((VV[5]->s.s_dbind)); |
220 |
goto T42; |
goto T55; |
221 |
goto T57; |
goto T57; |
222 |
T57:; |
T57:; |
223 |
bds_bind(VV[31],Cnil);} |
V18= Cnil; |
224 |
goto T42; |
goto T55; |
225 |
T42:; |
T55:; |
226 |
base[32]= (V6); |
if(((V18))==((VV[30]->s.s_dbind))){ |
227 |
vs_top=(vs_base=base+32)+1; |
goto T60;} |
228 |
(void) (*Lnk63)(); |
bds_bind(VV[32],(V18)); |
229 |
vs_top=sup; |
goto T46; |
230 |
if((vs_base[0])==Cnil){ |
goto T60; |
231 |
goto T61;} |
T60:; |
232 |
bds_bind(VV[33],(V6)); |
bds_bind(VV[32],Cnil);} |
233 |
goto T59; |
goto T46; |
234 |
goto T61; |
T46:; |
235 |
T61:; |
if(((*(LnkLI73))((V10)))==Cnil){ |
236 |
bds_bind(VV[33],(VV[33]->s.s_dbind)); |
goto T64;} |
237 |
goto T59; |
bds_bind(VV[34],(V10)); |
238 |
T59:; |
goto T62; |
239 |
{object V15; |
goto T64; |
240 |
V15= Cnil; |
T64:; |
241 |
{register object V16; |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
242 |
object V17; |
goto T62; |
243 |
V16= (VV[4]->s.s_dbind); |
T62:; |
244 |
V17= CMPcar((V16)); |
{object V19; |
245 |
goto T69; |
V19= Cnil; |
246 |
T69:; |
{register object V20; |
247 |
if(!(((V16))==Cnil)){ |
object V21; |
248 |
goto T70;} |
V20= (VV[5]->s.s_dbind); |
249 |
goto T65; |
V21= CMPcar((V20)); |
250 |
goto T70; |
goto T71; |
251 |
T70:; |
T71:; |
252 |
if(!((VV[30])==(STREF(object,(V17),0)))){ |
if(!(((V20))==Cnil)){ |
253 |
goto T74;} |
goto T72;} |
254 |
V15= make_cons(V17,(V15)); |
goto T67; |
255 |
goto T74; |
goto T72; |
256 |
T74:; |
T72:; |
257 |
V16= CMPcdr((V16)); |
if(!((VV[31])==(STREF(object,(V21),0)))){ |
258 |
V17= CMPcar((V16)); |
goto T76;} |
259 |
goto T69;} |
V19= make_cons(V21,(V19)); |
260 |
goto T65; |
goto T76; |
261 |
T65:; |
T76:; |
262 |
bds_bind(VV[34],nreverse((V15)));} |
V20= CMPcdr((V20)); |
263 |
if(!(type_of((V6))==t_cons)){ |
V21= CMPcar((V20)); |
264 |
goto T85;} |
goto T71;} |
265 |
base[32]= (V6); |
goto T67; |
266 |
base[33]= (V7); |
T67:; |
267 |
vs_top=(vs_base=base+32)+2; |
bds_bind(VV[0],nreverse((V19)));} |
268 |
(void) (*Lnk69)(); |
if(!(type_of((V10))==t_cons)){ |
269 |
|
goto T87;} |
270 |
|
base[30]= (V10); |
271 |
|
base[31]= (V11); |
272 |
|
vs_top=(vs_base=base+30)+2; |
273 |
|
(void) (*Lnk79)(); |
274 |
vs_top=sup; |
vs_top=sup; |
|
goto T83; |
|
275 |
goto T85; |
goto T85; |
276 |
T85:; |
goto T87; |
277 |
base[32]=MMcons(Cnil,base[25]); |
T87:; |
278 |
base[33]=alloc_frame_id(); |
base[30]=MMcons(Cnil,base[23]); |
279 |
base[33]=MMcons(base[33],base[32]); |
base[31]=alloc_frame_id(); |
280 |
frs_push(FRS_CATCH,(base[33]->c.c_car)); |
base[31]=MMcons(base[31],base[30]); |
281 |
|
frs_push(FRS_CATCH,(base[31]->c.c_car)); |
282 |
if(nlj_active){ |
if(nlj_active){ |
283 |
nlj_active=FALSE; |
nlj_active=FALSE; |
284 |
if(eql(nlj_tag,VV[46]))goto T90; |
if(eql(nlj_tag,VV[46]))goto T92; |
285 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
286 |
} |
} |
287 |
base[35]= VV[37]; |
V23= |
288 |
base[36]= VV[30]; |
make_cclosure_new(LC15,Cnil,base[31],Cdata); |
289 |
base[37]= VV[38]; |
V24= |
290 |
base[38]= |
make_cclosure_new(LC16,Cnil,base[31],Cdata); |
291 |
make_cclosure_new(LC8,Cnil,base[33],Cdata); |
V25= (VFUN_NARGS=6,(*(LnkLI80))(VV[37],VV[31],VV[38],V23,VV[39],V24)); |
292 |
base[39]= VV[39]; |
V26= make_cons(/* INLINE-ARGS */V25,Cnil); |
293 |
base[40]= |
base[32]= make_cons(/* INLINE-ARGS */V26,(VV[36]->s.s_dbind)); |
294 |
make_cclosure_new(LC9,Cnil,base[33],Cdata); |
bds_bind(VV[36],base[32]); |
295 |
vs_top=(vs_base=base+35)+6; |
base[33]= (VV[41]->s.s_dbind); |
296 |
(void) (*Lnk70)(); |
base[34]= VV[42]; |
297 |
vs_top=sup; |
base[35]= (VV[7]->s.s_dbind); |
298 |
V19= vs_base[0]; |
vs_top=(vs_base=base+33)+3; |
|
V20= make_cons(V19,Cnil); |
|
|
base[34]= make_cons(/* INLINE-ARGS */V20,(VV[36]->s.s_dbind)); |
|
|
bds_bind(VV[36],base[34]); |
|
|
base[35]= (VV[41]->s.s_dbind); |
|
|
base[36]= VV[42]; |
|
|
base[37]= (VV[6]->s.s_dbind); |
|
|
vs_top=(vs_base=base+35)+3; |
|
299 |
Lformat(); |
Lformat(); |
300 |
vs_top=sup; |
vs_top=sup; |
301 |
if(!(((long)length((VV[43]->s.s_dbind)))>(0))){ |
if(!(((long)length((VV[43]->s.s_dbind)))>(0))){ |
302 |
goto T103;} |
goto T100;} |
303 |
base[35]= (VV[41]->s.s_dbind); |
base[33]= (VV[41]->s.s_dbind); |
304 |
base[36]= VV[44]; |
base[34]= VV[44]; |
305 |
vs_top=(vs_base=base+35)+2; |
vs_top=(vs_base=base+33)+2; |
306 |
Lformat(); |
Lformat(); |
307 |
vs_top=sup; |
vs_top=sup; |
308 |
goto T103; |
goto T100; |
309 |
T103:; |
T100:; |
310 |
vs_base=vs_top; |
vs_base=vs_top; |
311 |
(void) (*Lnk71)(); |
(void) (*Lnk81)(); |
312 |
vs_top=sup; |
vs_top=sup; |
313 |
(VV[45]->s.s_dbind)= Cnil; |
(VV[45]->s.s_dbind)= Cnil; |
314 |
vs_base=vs_top; |
V27= (VFUN_NARGS=0,(*(LnkLI69))()); |
|
(void) (*Lnk72)(); |
|
|
vs_top=sup; |
|
315 |
frs_pop(); |
frs_pop(); |
316 |
bds_unwind1; |
bds_unwind1; |
317 |
goto T83; |
goto T85; |
318 |
goto T90; |
goto T92; |
319 |
T90:; |
T92:; |
320 |
{object V21; |
{object V28; |
321 |
V21= (base[32]->c.c_car); |
V28= (base[30]->c.c_car); |
322 |
base[34]= Cnil; |
base[32]= Cnil; |
323 |
base[35]= Ct; |
base[33]= Ct; |
324 |
vs_top=(vs_base=base+34)+2; |
vs_top=(vs_base=base+32)+2; |
325 |
vs_top=sup; |
vs_top=sup; |
326 |
frs_pop(); |
frs_pop(); |
327 |
goto T83;} |
goto T85;} |
328 |
frs_pop(); |
frs_pop(); |
329 |
goto T83; |
goto T85; |
330 |
goto T83; |
goto T85; |
331 |
T83:; |
T85:; |
332 |
base[32]= small_fixnum(1); |
base[30]= small_fixnum(1); |
333 |
vs_top=(vs_base=base+32)+1; |
vs_top=(vs_base=base+30)+1; |
334 |
(void) (*Lnk73)(); |
(void) (*Lnk82)(); |
335 |
vs_top=sup; |
vs_top=sup; |
336 |
(VV[47]->s.s_dbind)= Ct; |
(VV[47]->s.s_dbind)= Ct; |
337 |
goto T119; |
goto T116; |
338 |
T119:; |
T116:; |
339 |
|
(VV[22]->s.s_dbind)= (VV[21]->s.s_dbind); |
340 |
(VV[21]->s.s_dbind)= (VV[20]->s.s_dbind); |
(VV[21]->s.s_dbind)= (VV[20]->s.s_dbind); |
341 |
(VV[20]->s.s_dbind)= (VV[19]->s.s_dbind); |
(VV[20]->s.s_dbind)= (VV[3]->s.s_dbind); |
|
(VV[19]->s.s_dbind)= (VV[2]->s.s_dbind); |
|
342 |
if(((VV[45]->s.s_dbind))==Cnil){ |
if(((VV[45]->s.s_dbind))==Cnil){ |
343 |
goto T129;} |
goto T126;} |
344 |
(VV[45]->s.s_dbind)= Cnil; |
(VV[45]->s.s_dbind)= Cnil; |
345 |
goto T127; |
goto T124; |
346 |
goto T129; |
goto T126; |
347 |
T129:; |
T126:; |
348 |
base[32]= (VV[41]->s.s_dbind); |
base[30]= (VV[41]->s.s_dbind); |
349 |
base[33]= VV[48]; |
base[31]= VV[48]; |
350 |
if(!(type_of((V6))==t_string)){ |
if(!(type_of((V10))==t_string)){ |
351 |
goto T136;} |
goto T133;} |
352 |
base[34]= VV[49]; |
base[32]= VV[49]; |
353 |
goto T134; |
goto T131; |
354 |
goto T136; |
goto T133; |
355 |
T136:; |
T133:; |
356 |
base[34]= VV[50]; |
base[32]= VV[50]; |
357 |
goto T134; |
goto T131; |
358 |
T134:;{VOL object V22; |
T131:;{VOL object V29; |
359 |
V22= (VV[51]->s.s_dbind); |
V29= (VV[51]->s.s_dbind); |
360 |
base[36]= VV[52]; |
base[34]= VV[52]; |
361 |
vs_top=(vs_base=base+36)+1; |
vs_top=(vs_base=base+34)+1; |
362 |
Lfind_package(); |
Lfind_package(); |
363 |
vs_top=sup; |
vs_top=sup; |
364 |
V23= vs_base[0]; |
V30= vs_base[0]; |
365 |
if(!((V22)==(V23))){ |
if(!((V29)==(V30))){ |
366 |
goto T140;}} |
goto T137;}} |
367 |
base[35]= VV[53]; |
base[33]= VV[53]; |
368 |
goto T138; |
goto T135; |
369 |
goto T140; |
goto T137; |
370 |
T140:; |
T137:; |
371 |
base[36]= (VV[51]->s.s_dbind); |
base[34]= (VV[51]->s.s_dbind); |
372 |
vs_top=(vs_base=base+36)+1; |
vs_top=(vs_base=base+34)+1; |
373 |
Lpackage_name(); |
Lpackage_name(); |
374 |
vs_top=sup; |
vs_top=sup; |
375 |
base[35]= vs_base[0]; |
base[33]= vs_base[0]; |
376 |
goto T138; |
goto T135; |
377 |
T138:; |
T135:; |
378 |
base[36]= (VV[8]->s.s_dbind); |
base[34]= (VV[9]->s.s_dbind); |
379 |
vs_top=(vs_base=base+32)+5; |
vs_top=(vs_base=base+30)+5; |
380 |
Lformat(); |
Lformat(); |
381 |
vs_top=sup; |
vs_top=sup; |
382 |
goto T127; |
goto T124; |
383 |
T127:; |
T124:; |
384 |
base[32]=MMcons(Cnil,base[25]); |
base[30]=MMcons(Cnil,base[23]); |
385 |
base[33]=alloc_frame_id(); |
base[31]=alloc_frame_id(); |
386 |
base[33]=MMcons(base[33],base[32]); |
base[31]=MMcons(base[31],base[30]); |
387 |
frs_push(FRS_CATCH,(base[33]->c.c_car)); |
frs_push(FRS_CATCH,(base[31]->c.c_car)); |
388 |
if(nlj_active){ |
if(nlj_active){ |
389 |
nlj_active=FALSE; |
nlj_active=FALSE; |
390 |
if(eql(nlj_tag,VV[57]))goto T149; |
if(eql(nlj_tag,VV[57]))goto T146; |
391 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
392 |
} |
} |
393 |
base[35]= VV[37]; |
V31= |
394 |
base[36]= VV[30]; |
make_cclosure_new(LC17,Cnil,base[31],Cdata); |
395 |
base[37]= VV[38]; |
V32= |
396 |
base[38]= |
make_cclosure_new(LC18,Cnil,base[31],Cdata); |
397 |
make_cclosure_new(LC10,Cnil,base[33],Cdata); |
V33= (VFUN_NARGS=6,(*(LnkLI80))(VV[37],VV[31],VV[38],V31,VV[39],V32)); |
398 |
base[39]= VV[39]; |
V34= make_cons(/* INLINE-ARGS */V33,Cnil); |
399 |
base[40]= |
base[32]= make_cons(/* INLINE-ARGS */V34,(VV[36]->s.s_dbind)); |
400 |
make_cclosure_new(LC11,Cnil,base[33],Cdata); |
bds_bind(VV[36],base[32]); |
|
vs_top=(vs_base=base+35)+6; |
|
|
(void) (*Lnk70)(); |
|
|
vs_top=sup; |
|
|
V24= vs_base[0]; |
|
|
V25= make_cons(V24,Cnil); |
|
|
base[34]= make_cons(/* INLINE-ARGS */V25,(VV[36]->s.s_dbind)); |
|
|
bds_bind(VV[36],base[34]); |
|
401 |
frs_push(FRS_CATCH,VV[55]); |
frs_push(FRS_CATCH,VV[55]); |
402 |
if(nlj_active) |
if(nlj_active) |
403 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
404 |
vs_top=sup; |
vs_top=sup; |
405 |
V26= vs_base[0]; |
V35= vs_base[0]; |
406 |
goto T158;} |
goto T150;} |
407 |
else{ |
else{ |
408 |
base[35]= (VV[41]->s.s_dbind); |
base[33]= (VV[41]->s.s_dbind); |
409 |
base[36]= Cnil; |
base[34]= Cnil; |
410 |
base[37]= (VV[56]->s.s_dbind); |
base[35]= (VV[56]->s.s_dbind); |
411 |
vs_top=(vs_base=base+35)+3; |
vs_top=(vs_base=base+33)+3; |
412 |
(void) (*Lnk74)(); |
(void) (*Lnk83)(); |
413 |
vs_top=sup; |
vs_top=sup; |
414 |
(VV[2]->s.s_dbind)= vs_base[0]; |
(VV[3]->s.s_dbind)= vs_base[0]; |
415 |
if(!(((VV[2]->s.s_dbind))==((VV[56]->s.s_dbind)))){ |
if(!(((VV[3]->s.s_dbind))==((VV[56]->s.s_dbind)))){ |
416 |
goto T165;} |
goto T157;} |
417 |
vs_base=vs_top; |
vs_base=vs_top; |
418 |
Lby(); |
Lby(); |
419 |
vs_top=sup; |
vs_top=sup; |
420 |
|
goto T157; |
421 |
|
T157:; |
422 |
|
{register object V36; |
423 |
|
object V37; |
424 |
|
V36= Cnil; |
425 |
|
if((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package)){ |
426 |
|
goto T165;} |
427 |
|
if(!(type_of((VV[3]->s.s_dbind))==t_fixnum||type_of((VV[3]->s.s_dbind))==t_bignum)){ |
428 |
|
goto T164;} |
429 |
goto T165; |
goto T165; |
430 |
T165:; |
T165:; |
431 |
{register object V27; |
(VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil); |
432 |
object V28; |
goto T164; |
433 |
V27= Cnil; |
T164:; |
434 |
if((type_of((VV[2]->s.s_dbind))==t_symbol&&((VV[2]->s.s_dbind))->s.s_hpack==keyword_package)){ |
if(!(type_of((VV[3]->s.s_dbind))==t_cons)){ |
435 |
goto T173;} |
goto T171;} |
436 |
if(!(type_of((VV[2]->s.s_dbind))==t_fixnum||type_of((VV[2]->s.s_dbind))==t_bignum)){ |
{object V38= CMPcar((VV[3]->s.s_dbind)); |
437 |
goto T172;} |
if(!((type_of(V38)==t_symbol&&(V38)->s.s_hpack==keyword_package))){ |
438 |
goto T173; |
goto T171;}} |
439 |
T173:; |
V36= Ct; |
440 |
(VV[2]->s.s_dbind)= make_cons((VV[2]->s.s_dbind),Cnil); |
base[34]= CMPcar((VV[3]->s.s_dbind)); |
441 |
goto T172; |
base[35]= CMPcdr((VV[3]->s.s_dbind)); |
442 |
T172:; |
symlispcall(VV[84],base+34,2); |
443 |
if(!(type_of((VV[2]->s.s_dbind))==t_cons)){ |
goto T163; |
|
goto T179;} |
|
|
{object V29= CMPcar((VV[2]->s.s_dbind)); |
|
|
if(!((type_of(V29)==t_symbol&&(V29)->s.s_hpack==keyword_package))){ |
|
|
goto T179;}} |
|
|
V27= Ct; |
|
|
base[36]= CMPcar((VV[2]->s.s_dbind)); |
|
|
base[37]= CMPcdr((VV[2]->s.s_dbind)); |
|
|
symlispcall(VV[75],base+36,2); |
|
|
goto T171; |
|
|
goto T179; |
|
|
T179:; |
|
|
if(!(type_of((VV[2]->s.s_dbind))==t_cons)){ |
|
|
goto T188;} |
|
|
{object V30= CMPcar((VV[2]->s.s_dbind)); |
|
|
if(!(type_of(V30)==t_fixnum||type_of(V30)==t_bignum)){ |
|
|
goto T188;}} |
|
|
V27= Ct; |
|
|
base[36]= CMPcar((VV[2]->s.s_dbind)); |
|
|
vs_top=(vs_base=base+36)+1; |
|
|
(void) (*Lnk76)(); |
|
|
goto T171; |
|
|
goto T188; |
|
|
T188:; |
|
|
base[36]= (VV[2]->s.s_dbind); |
|
|
base[37]= Cnil; |
|
|
base[38]= Cnil; |
|
|
base[39]= (VV[15]->s.s_dbind); |
|
|
symlispcall(VV[77],base+36,4); |
|
444 |
goto T171; |
goto T171; |
445 |
T171:; |
T171:; |
446 |
|
if(!(type_of((VV[3]->s.s_dbind))==t_cons)){ |
447 |
|
goto T180;} |
448 |
|
{object V39= CMPcar((VV[3]->s.s_dbind)); |
449 |
|
if(!(type_of(V39)==t_fixnum||type_of(V39)==t_bignum)){ |
450 |
|
goto T180;}} |
451 |
|
V36= Ct; |
452 |
|
base[34]= CMPcar((VV[3]->s.s_dbind)); |
453 |
|
vs_top=(vs_base=base+34)+1; |
454 |
|
(void) (*Lnk85)(); |
455 |
|
goto T163; |
456 |
|
goto T180; |
457 |
|
T180:; |
458 |
|
base[34]= (VV[3]->s.s_dbind); |
459 |
|
base[35]= Cnil; |
460 |
|
base[36]= Cnil; |
461 |
|
base[37]= (VV[16]->s.s_dbind); |
462 |
|
symlispcall(VV[86],base+34,4); |
463 |
|
goto T163; |
464 |
|
T163:; |
465 |
Llist(); |
Llist(); |
466 |
vs_top=sup; |
vs_top=sup; |
467 |
V28= vs_base[0]; |
V37= vs_base[0]; |
468 |
|
(VV[28]->s.s_dbind)= (VV[27]->s.s_dbind); |
469 |
(VV[27]->s.s_dbind)= (VV[26]->s.s_dbind); |
(VV[27]->s.s_dbind)= (VV[26]->s.s_dbind); |
470 |
(VV[26]->s.s_dbind)= (VV[25]->s.s_dbind); |
(VV[26]->s.s_dbind)= (V37); |
471 |
(VV[25]->s.s_dbind)= (V28); |
(VV[25]->s.s_dbind)= (VV[24]->s.s_dbind); |
472 |
(VV[24]->s.s_dbind)= (VV[23]->s.s_dbind); |
(VV[24]->s.s_dbind)= (VV[23]->s.s_dbind); |
473 |
(VV[23]->s.s_dbind)= (VV[22]->s.s_dbind); |
(VV[23]->s.s_dbind)= CMPcar((VV[26]->s.s_dbind)); |
474 |
(VV[22]->s.s_dbind)= CMPcar((VV[25]->s.s_dbind)); |
base[34]= (VV[41]->s.s_dbind); |
475 |
base[36]= (VV[41]->s.s_dbind); |
vs_top=(vs_base=base+34)+1; |
|
vs_top=(vs_base=base+36)+1; |
|
476 |
Lfresh_line(); |
Lfresh_line(); |
477 |
vs_top=sup; |
vs_top=sup; |
478 |
{register object V31; |
{register object V40; |
479 |
register object V32; |
register object V41; |
480 |
V31= (VV[25]->s.s_dbind); |
V40= (VV[26]->s.s_dbind); |
481 |
V32= CMPcar((V31)); |
V41= CMPcar((V40)); |
482 |
goto T216; |
goto T208; |
483 |
T216:; |
T208:; |
484 |
if(!(((V31))==Cnil)){ |
if(!(((V40))==Cnil)){ |
485 |
goto T217;} |
goto T209;} |
486 |
goto T168; |
goto T160; |
487 |
goto T217; |
goto T209; |
488 |
T217:; |
T209:; |
489 |
base[37]= (V32); |
base[35]= (V41); |
490 |
base[38]= (VV[41]->s.s_dbind); |
base[36]= (VV[41]->s.s_dbind); |
491 |
(void)simple_symlispcall(VV[78],base+37,2); |
(void)simple_symlispcall(VV[87],base+35,2); |
492 |
princ_char(10,VV[41]); |
princ_char(10,VV[41]); |
493 |
V31= CMPcdr((V31)); |
V40= CMPcdr((V40)); |
494 |
V32= CMPcar((V31)); |
V41= CMPcar((V40)); |
495 |
goto T216;}} |
goto T208;}} |
496 |
goto T168; |
goto T160; |
497 |
T168:; |
T160:; |
498 |
frs_pop(); |
frs_pop(); |
499 |
V26= Cnil;} |
V35= Cnil;} |
500 |
goto T158; |
goto T150; |
501 |
T158:; |
T150:; |
502 |
if((V26)==Cnil){ |
if((V35)==Cnil){ |
503 |
frs_pop(); |
frs_pop(); |
504 |
bds_unwind1; |
bds_unwind1; |
505 |
goto T120;} |
goto T117;} |
506 |
V33= ((V26)==Cnil?Ct:Cnil); |
V42= ((V35)==Cnil?Ct:Cnil); |
507 |
frs_pop(); |
frs_pop(); |
508 |
bds_unwind1; |
bds_unwind1; |
509 |
goto T147; |
goto T144; |
510 |
goto T149; |
goto T146; |
511 |
T149:; |
T146:; |
512 |
{register object V34; |
{register object V43; |
513 |
V34= (base[32]->c.c_car); |
V43= (base[30]->c.c_car); |
514 |
base[34]= Cnil; |
base[32]= Cnil; |
515 |
base[35]= Ct; |
base[33]= Ct; |
516 |
vs_top=(vs_base=base+34)+2; |
vs_top=(vs_base=base+32)+2; |
517 |
vs_top=sup; |
vs_top=sup; |
518 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
519 |
frs_pop(); |
frs_pop(); |
520 |
goto T120;} |
goto T117;} |
521 |
frs_pop(); |
frs_pop(); |
522 |
goto T147;} |
goto T144;} |
523 |
frs_pop(); |
frs_pop(); |
524 |
goto T147; |
goto T144; |
525 |
goto T147; |
goto T144; |
526 |
T147:; |
T144:; |
527 |
princ_char(10,VV[41]); |
princ_char(10,VV[41]); |
528 |
vs_base=vs_top; |
vs_base=vs_top; |
529 |
(void) (*Lnk79)(); |
(void) (*Lnk88)(); |
530 |
vs_top=sup; |
vs_top=sup; |
531 |
goto T120; |
goto T117; |
532 |
T120:; |
T117:; |
533 |
goto T119; |
goto T116; |
534 |
|
va_end(ap); |
535 |
|
base[0]=base[0]; |
536 |
|
return Cnil;} |
537 |
} |
} |
538 |
} |
/* local entry for function CLCS-TERMINAL-INTERRUPT */ |
|
/* function definition for CLCS-TERMINAL-INTERRUPT */ |
|
539 |
|
|
540 |
static void L4() |
static object LI7(V45) |
541 |
{register object *base=vs_base; |
|
542 |
register object *sup=base+VM4; VC4 |
object V45; |
543 |
vs_check; |
{ VMB7 VMS7 VMV7 |
|
{object V35; |
|
|
V35=(base[0]); |
|
|
vs_top=sup; |
|
544 |
goto TTL; |
goto TTL; |
545 |
TTL:; |
TTL:; |
546 |
if(((V35))==Cnil){ |
if(((V45))==Cnil){ |
547 |
|
goto T228;} |
548 |
|
base[0]= VV[58]; |
549 |
|
base[1]= VV[59]; |
550 |
|
vs_top=(vs_base=base+0)+2; |
551 |
|
(void) (*Lnk89)(); |
552 |
|
vs_top=sup; |
553 |
|
{object V46 = vs_base[0]; |
554 |
|
VMR7(V46)} |
555 |
|
goto T228; |
556 |
|
T228:; |
557 |
|
base[0]= VV[60]; |
558 |
|
vs_top=(vs_base=base+0)+1; |
559 |
|
(void) (*Lnk90)(); |
560 |
|
vs_top=sup; |
561 |
|
{object V47 = vs_base[0]; |
562 |
|
VMR7(V47)} |
563 |
|
base[0]=base[0]; |
564 |
|
return Cnil; |
565 |
|
} |
566 |
|
/* local entry for function CLCS-BREAK-QUIT */ |
567 |
|
|
568 |
|
static object LI8(object first,...) |
569 |
|
{ |
570 |
|
va_list ap; |
571 |
|
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
572 |
|
{object V48; |
573 |
|
va_start(ap,first); |
574 |
|
narg = narg - 0; |
575 |
|
if (narg <= 0) goto T233; |
576 |
|
else { |
577 |
|
V48= first;} |
578 |
|
--narg; goto T234; |
579 |
|
goto T233; |
580 |
|
T233:; |
581 |
|
V48= small_fixnum(0); |
582 |
|
goto T234; |
583 |
|
T234:; |
584 |
|
{object V49; |
585 |
|
V50= reverse((VV[0]->s.s_dbind)); |
586 |
|
V49= nth(fix((V48)),/* INLINE-ARGS */V50); |
587 |
|
if(((V49))==Cnil){ |
588 |
goto T236;} |
goto T236;} |
589 |
base[1]= VV[58]; |
base[0]= (V49); |
590 |
base[2]= VV[59]; |
vs_top=(vs_base=base+0)+1; |
591 |
vs_top=(vs_base=base+1)+2; |
(void) (*Lnk72)(); |
592 |
(void) (*Lnk80)(); |
vs_top=sup;} |
|
return; |
|
593 |
goto T236; |
goto T236; |
594 |
T236:; |
T236:; |
595 |
base[1]= VV[60]; |
vs_base=vs_top; |
596 |
vs_top=(vs_base=base+1)+1; |
(void) (*Lnk88)(); |
597 |
(void) (*Lnk81)(); |
vs_top=sup; |
598 |
return; |
{object V51 = vs_base[0]; |
599 |
|
VMR8(V51)} |
600 |
|
va_end(ap); |
601 |
|
base[0]=base[0]; |
602 |
|
return Cnil;} |
603 |
} |
} |
604 |
|
/* local entry for function progn 'compile2510 */ |
605 |
|
|
606 |
|
static object LI9() |
607 |
|
|
608 |
|
{ VMB9 VMS9 VMV9 |
609 |
|
goto TTL; |
610 |
|
TTL:; |
611 |
|
(VV[61]->s.s_dbind)= VV[62]; |
612 |
|
{object V52 = Cnil; |
613 |
|
VMR9(V52)} |
614 |
|
return Cnil; |
615 |
} |
} |
616 |
/* function definition for CLCS-BREAK-QUIT */ |
/* local entry for function progn 'compile2522 */ |
617 |
|
|
618 |
static void L5() |
static object LI10() |
619 |
{register object *base=vs_base; |
|
620 |
register object *sup=base+VM5; VC5 |
{ VMB10 VMS10 VMV10 |
621 |
vs_check; |
goto TTL; |
622 |
{object V36; |
TTL:; |
623 |
if(vs_base>=vs_top){vs_top=sup;goto T241;} |
(VV[63]->s.s_dbind)= VV[64]; |
624 |
V36=(base[0]); |
{object V53 = Cnil; |
625 |
vs_top=sup; |
VMR10(V53)} |
626 |
goto T242; |
return Cnil; |
|
goto T241; |
|
|
T241:; |
|
|
V36= small_fixnum(0); |
|
|
goto T242; |
|
|
T242:; |
|
|
{object V37; |
|
|
V38= reverse((VV[34]->s.s_dbind)); |
|
|
V37= nth(fix((V36)),/* INLINE-ARGS */V38); |
|
|
if(((V37))==Cnil){ |
|
|
goto T244;} |
|
|
base[1]= (V37); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk62)(); |
|
|
vs_top=sup;} |
|
|
goto T244; |
|
|
T244:; |
|
|
vs_base=vs_top; |
|
|
(void) (*Lnk79)(); |
|
|
return; |
|
|
} |
|
627 |
} |
} |
628 |
/* function definition for BREAK-RESUME */ |
/* function definition for BREAK-RESUME */ |
629 |
|
|
630 |
static void L6() |
static void L11() |
631 |
{register object *base=vs_base; |
{register object *base=vs_base; |
632 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM11; VC11 |
633 |
vs_check; |
vs_check; |
634 |
vs_top=sup; |
vs_top=sup; |
635 |
goto TTL; |
goto TTL; |
636 |
TTL:; |
TTL:; |
637 |
if((VV[31]->s.s_dbind)==Cnil){ |
if((VV[32]->s.s_dbind)==Cnil){ |
638 |
base[0]= Cnil; |
base[0]= Cnil; |
639 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
640 |
return;} |
return;} |
641 |
base[0]= (VV[31]->s.s_dbind); |
base[0]= (VV[32]->s.s_dbind); |
642 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
643 |
(void) (*Lnk82)(); |
(void) (*Lnk91)(); |
644 |
return; |
return; |
645 |
} |
} |
646 |
|
/* local entry for function progn 'compile2542 */ |
647 |
|
|
648 |
|
static object LI12() |
649 |
|
|
650 |
|
{ VMB12 VMS12 VMV12 |
651 |
|
goto TTL; |
652 |
|
TTL:; |
653 |
|
(void)(putprop(VV[65],VV[66],VV[67])); |
654 |
|
{object V54 = Cnil; |
655 |
|
VMR12(V54)} |
656 |
|
return Cnil; |
657 |
|
} |
658 |
|
/* local entry for function progn 'compile2554 */ |
659 |
|
|
660 |
|
static object LI13() |
661 |
|
|
662 |
|
{ VMB13 VMS13 VMV13 |
663 |
|
goto TTL; |
664 |
|
TTL:; |
665 |
|
(void)(putprop(VV[68],VV[69],VV[67])); |
666 |
|
{object V55 = Cnil; |
667 |
|
VMR13(V55)} |
668 |
|
return Cnil; |
669 |
|
} |
670 |
/* function definition for BREAK-HELP */ |
/* function definition for BREAK-HELP */ |
671 |
|
|
672 |
static void L7() |
static void L14() |
673 |
{register object *base=vs_base; |
{register object *base=vs_base; |
674 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM14; VC14 |
675 |
vs_check; |
vs_check; |
676 |
vs_top=sup; |
vs_top=sup; |
677 |
goto TTL; |
goto TTL; |
678 |
TTL:; |
TTL:; |
679 |
base[0]= (VV[41]->s.s_dbind); |
base[0]= (VV[41]->s.s_dbind); |
680 |
base[1]= VV[61]; |
base[1]= VV[70]; |
681 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
682 |
Lformat(); |
Lformat(); |
683 |
vs_top=sup; |
vs_top=sup; |
687 |
} |
} |
688 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
689 |
|
|
690 |
static void LC11(base0) |
static void LC18(base0) |
691 |
register object *base0; |
register object *base0; |
692 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
693 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM15; VC15 |
694 |
vs_check; |
vs_check; |
695 |
{object V39; |
{object V56; |
696 |
V39=(base[0]); |
V56=(base[0]); |
697 |
vs_top=sup; |
vs_top=sup; |
698 |
base[1]= (V39); |
base[1]= (V56); |
699 |
base[2]= VV[54]; |
base[2]= VV[54]; |
700 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
701 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
705 |
} |
} |
706 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
707 |
|
|
708 |
static void LC10(base0) |
static void LC17(base0) |
709 |
register object *base0; |
register object *base0; |
710 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
711 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM16; VC16 |
712 |
vs_check; |
vs_check; |
713 |
{object V40; |
{object V57; |
714 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
715 |
{object *p=vs_top; |
{object *p=vs_top; |
716 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
717 |
V40=(base[0]); |
V57=(base[0]); |
718 |
vs_top=sup; |
vs_top=sup; |
719 |
(base0[1]->c.c_car)= (V40); |
(base0[1]->c.c_car)= (V57); |
720 |
{frame_ptr fr; |
{frame_ptr fr; |
721 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
722 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[57]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[57]); |
726 |
} |
} |
727 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
728 |
|
|
729 |
static void LC9(base0) |
static void LC16(base0) |
730 |
register object *base0; |
register object *base0; |
731 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
732 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM17; VC17 |
733 |
vs_check; |
vs_check; |
734 |
{object V41; |
{object V58; |
735 |
V41=(base[0]); |
V58=(base[0]); |
736 |
vs_top=sup; |
vs_top=sup; |
737 |
base[1]= (V41); |
base[1]= (V58); |
738 |
base[2]= VV[40]; |
base[2]= VV[40]; |
739 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
740 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
744 |
} |
} |
745 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
746 |
|
|
747 |
static void LC8(base0) |
static void LC15(base0) |
748 |
register object *base0; |
register object *base0; |
749 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
750 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM18; VC18 |
751 |
vs_check; |
vs_check; |
752 |
{object V42; |
{object V59; |
753 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
754 |
{object *p=vs_top; |
{object *p=vs_top; |
755 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
756 |
V42=(base[0]); |
V59=(base[0]); |
757 |
vs_top=sup; |
vs_top=sup; |
758 |
(base0[1]->c.c_car)= (V42); |
(base0[1]->c.c_car)= (V59); |
759 |
{frame_ptr fr; |
{frame_ptr fr; |
760 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
761 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[46]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[46]); |
763 |
unwind(fr,VV[46]);} |
unwind(fr,VV[46]);} |
764 |
} |
} |
765 |
} |
} |
766 |
static void LnkT82(){ call_or_link(VV[82],(void **)(void *)&Lnk82);} /* INVOKE-RESTART */ |
static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* INVOKE-RESTART */ |
767 |
static void LnkT81(){ call_or_link(VV[81],(void **)(void *)&Lnk81);} /* ERROR */ |
static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* ERROR */ |
768 |
static void LnkT80(){ call_or_link(VV[80],(void **)(void *)&Lnk80);} /* CERROR */ |
static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* CERROR */ |
769 |
static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* BREAK-CURRENT */ |
static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* BREAK-CURRENT */ |
770 |
static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* CLCS-BREAK-LEVEL-INVOKE-RESTART */ |
static void LnkT85(){ call_or_link(VV[85],(void **)(void *)&Lnk85);} /* CLCS-BREAK-LEVEL-INVOKE-RESTART */ |
771 |
static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* DBL-READ */ |
static void LnkT83(){ call_or_link(VV[83],(void **)(void *)&Lnk83);} /* DBL-READ */ |
772 |
static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* CATCH-FATAL */ |
static void LnkT82(){ call_or_link(VV[82],(void **)(void *)&Lnk82);} /* CATCH-FATAL */ |
773 |
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* SHOW-RESTARTS */ |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[69],(void **)(void *)&LnkLI69,first,ap);va_end(ap);return V1;} /* SHOW-RESTARTS */ |
774 |
static void LnkT71(){ call_or_link(VV[71],(void **)(void *)&Lnk71);} /* SET-CURRENT */ |
static void LnkT81(){ call_or_link(VV[81],(void **)(void *)&Lnk81);} /* SET-CURRENT */ |
775 |
static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* MAKE-RESTART */ |
static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[80],(void **)(void *)&LnkLI80,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */ |
776 |
static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* SET-BACK */ |
static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* SET-BACK */ |
777 |
static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* FIND-RESTART */ |
static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[78],(void **)(void *)&LnkLI78,first,ap);va_end(ap);return V1;} /* FIND-RESTART */ |
778 |
static void LnkT67(){ call_or_link(VV[67],(void **)(void *)&Lnk67);} /* COMPUTE-RESTARTS */ |
static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)(void *)&LnkLI77,first,ap);va_end(ap);return V1;} /* COMPUTE-RESTARTS */ |
779 |
static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* FRS-TOP */ |
static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* FRS-TOP */ |
780 |
static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* SCH-FRS-BASE */ |
static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* SCH-FRS-BASE */ |
781 |
static void LnkT64(){ call_or_link(VV[64],(void **)(void *)&Lnk64);} /* IHS-TOP */ |
static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* IHS-TOP */ |
782 |
static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* CONDITIONP */ |
static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* CONDITIONP */ |
783 |
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* INVOKE-RESTART-INTERACTIVELY */ |
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* INVOKE-RESTART-INTERACTIVELY */ |
784 |
|
static void LnkT71(){ call_or_link(VV[71],(void **)(void *)&Lnk71);} /* *MAKE-SPECIAL */ |
785 |
|
|
786 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
787 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |