2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "gcl_serror.h" |
#include "gcl_serror.h" |
4 |
void init_gcl_serror(){do_init(VV);} |
void init_gcl_serror(){do_init(VV);} |
5 |
/* function definition for MAKE-ERROR-CONDITION */ |
/* local entry for function MAKE-ERROR-CONDITION */ |
6 |
|
|
7 |
static void L1() |
static object LI1(object first,...) |
8 |
{register object *base=vs_base; |
{ |
9 |
register object *sup=base+VM1; VC1 |
va_list ap; |
10 |
vs_reserve(VM1); |
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
11 |
{object V1; |
{object V1; |
12 |
object V2; |
object V2; |
13 |
object V3; |
object V3; |
14 |
object V4; |
object V4; |
15 |
object V5; |
object V5; |
16 |
object V6; |
object V6; |
17 |
parse_key(vs_base,FALSE,FALSE,6,VV[25],VV[26],VV[27],VV[28],VV[29],VV[30]); |
va_start(ap,first); |
18 |
vs_top=sup; |
narg= narg - 0; |
19 |
V1=(base[0]); |
{ |
20 |
V2=(base[1]); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap); |
21 |
V3=(base[2]); |
V1=(Vcs[0]); |
22 |
V4=(base[3]); |
V2=(Vcs[1]); |
23 |
V5=(base[4]); |
V3=(Vcs[2]); |
24 |
V6=(base[5]); |
V4=(Vcs[3]); |
25 |
base[12]= VV[0]; |
V5=(Vcs[4]); |
26 |
base[13]= (V1); |
V6=(Vcs[5]); |
27 |
base[14]= (V2); |
base[0]= VV[0]; |
28 |
base[15]= (V3); |
base[1]= (V1); |
29 |
base[16]= (V4); |
base[2]= (V2); |
30 |
base[17]= (V5); |
base[3]= (V3); |
31 |
base[18]= (V6); |
base[4]= (V4); |
32 |
vs_top=(vs_base=base+12)+7; |
base[5]= (V5); |
33 |
|
base[6]= (V6); |
34 |
|
vs_top=(vs_base=base+0)+7; |
35 |
siLmake_structure(); |
siLmake_structure(); |
36 |
return; |
vs_top=sup; |
37 |
} |
{object V7 = vs_base[0]; |
38 |
} |
VMR1(V7)} |
39 |
|
va_end(ap); |
40 |
|
base[0]=base[0]; |
41 |
|
return Cnil;} |
42 |
|
}} |
43 |
/* macro definition for COND-ERROR */ |
/* macro definition for COND-ERROR */ |
44 |
|
|
45 |
static void L2() |
static void L2() |
48 |
vs_reserve(VM2); |
vs_reserve(VM2); |
49 |
check_arg(2); |
check_arg(2); |
50 |
vs_top=sup; |
vs_top=sup; |
51 |
{object V7=base[0]->c.c_cdr; |
{object V8=base[0]->c.c_cdr; |
52 |
if(endp(V7))invalid_macro_call(); |
if(endp(V8))invalid_macro_call(); |
53 |
base[2]= (V7->c.c_car); |
base[2]= (V8->c.c_car); |
54 |
V7=V7->c.c_cdr; |
V8=V8->c.c_cdr; |
55 |
if(endp(V7))invalid_macro_call(); |
if(endp(V8))invalid_macro_call(); |
56 |
base[3]= (V7->c.c_car); |
base[3]= (V8->c.c_car); |
57 |
V7=V7->c.c_cdr; |
V8=V8->c.c_cdr; |
58 |
base[4]= V7;} |
base[4]= V8;} |
59 |
if(base[2]!=Cnil){ |
if(base[2]!=Cnil){ |
60 |
goto T8;} |
goto T8;} |
61 |
base[2]= VV[1]; |
base[2]= VV[1]; |
62 |
goto T8; |
goto T8; |
63 |
T8:; |
T8:; |
64 |
{object V8; |
{object V9; |
65 |
base[5]= VV[2]; |
base[5]= VV[2]; |
66 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
67 |
Lgensym(); |
Lgensym(); |
68 |
vs_top=sup; |
vs_top=sup; |
69 |
V8= vs_base[0]; |
V9= vs_base[0]; |
70 |
{register object V9; |
{register object V10; |
71 |
V10= list(2,VV[4],(V8)); |
V11= list(2,VV[4],(V9)); |
72 |
V11= car(base[2]); |
V12= car(base[2]); |
73 |
{object V13; |
{object V14; |
74 |
object V14= base[4]; |
object V15= base[4]; |
75 |
if(endp(V14)){ |
if(endp(V15)){ |
76 |
V12= Cnil; |
V13= Cnil; |
77 |
goto T13;} |
goto T13;} |
78 |
base[5]=V13=MMcons(Cnil,Cnil); |
base[5]=V14=MMcons(Cnil,Cnil); |
79 |
goto T14; |
goto T14; |
80 |
T14:; |
T14:; |
81 |
(V13->c.c_car)= car((V14->c.c_car)); |
(V14->c.c_car)= car((V15->c.c_car)); |
82 |
V14=MMcdr(V14); |
V15=MMcdr(V15); |
83 |
if(endp(V14)){ |
if(endp(V15)){ |
84 |
V12= base[5]; |
V13= base[5]; |
85 |
goto T13;} |
goto T13;} |
86 |
V13=MMcdr(V13)=MMcons(Cnil,Cnil); |
V14=MMcdr(V14)=MMcons(Cnil,Cnil); |
87 |
goto T14;} |
goto T14;} |
88 |
goto T13; |
goto T13; |
89 |
T13:; |
T13:; |
90 |
V15= make_cons(VV[13],V12); |
V16= make_cons(VV[13],V13); |
91 |
V16= list(3,VV[3],/* INLINE-ARGS */V10,list(3,VV[5],VV[6],list(3,VV[7],list(3,VV[8],list(3,VV[9],list(2,VV[10],list(4,VV[11],base[2],/* INLINE-ARGS */V11,list(3,VV[12],/* INLINE-ARGS */V15,list(2,VV[4],(V8))))),VV[14]),base[3]),VV[15]))); |
V17= list(3,VV[3],/* INLINE-ARGS */V11,list(3,VV[5],VV[6],list(3,VV[7],list(3,VV[8],list(3,VV[9],list(2,VV[10],list(4,VV[11],base[2],/* INLINE-ARGS */V12,list(3,VV[12],/* INLINE-ARGS */V16,list(2,VV[4],(V9))))),VV[14]),base[3]),VV[15]))); |
92 |
V17= append(base[4],VV[17]); |
V18= append(base[4],VV[17]); |
93 |
V9= list(2,/* INLINE-ARGS */V16,make_cons(VV[16],/* INLINE-ARGS */V17)); |
V10= list(2,/* INLINE-ARGS */V17,make_cons(VV[16],/* INLINE-ARGS */V18)); |
94 |
if((base[2])==Cnil){ |
if((base[2])==Cnil){ |
95 |
goto T18;} |
goto T18;} |
96 |
V9= listA(3,VV[18],base[2],(V9)); |
V10= listA(3,VV[18],base[2],(V10)); |
97 |
goto T16; |
goto T16; |
98 |
goto T18; |
goto T18; |
99 |
T18:; |
T18:; |
100 |
V9= make_cons(VV[8],(V9)); |
V10= make_cons(VV[8],(V10)); |
101 |
goto T16; |
goto T16; |
102 |
T16:; |
T16:; |
103 |
base[5]= list(3,VV[19],VV[6],(V9)); |
base[5]= list(3,VV[19],VV[6],(V10)); |
104 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
105 |
return;}} |
return;}} |
106 |
} |
} |
112 |
vs_reserve(VM3); |
vs_reserve(VM3); |
113 |
check_arg(2); |
check_arg(2); |
114 |
vs_top=sup; |
vs_top=sup; |
115 |
{object V18=base[0]->c.c_cdr; |
{object V19=base[0]->c.c_cdr; |
116 |
if(endp(V18))invalid_macro_call(); |
if(endp(V19))invalid_macro_call(); |
117 |
base[2]= (V18->c.c_car); |
base[2]= (V19->c.c_car); |
118 |
V18=V18->c.c_cdr; |
V19=V19->c.c_cdr; |
119 |
if(endp(V18))invalid_macro_call(); |
if(endp(V19))invalid_macro_call(); |
120 |
base[3]= (V18->c.c_car); |
base[3]= (V19->c.c_car); |
121 |
V18=V18->c.c_cdr; |
V19=V19->c.c_cdr; |
122 |
base[4]= V18;} |
base[4]= V19;} |
123 |
{register object V19; |
{register object V20; |
124 |
V20= list(3,VV[20],VV[21],list(3,VV[3],VV[22],list(3,VV[5],VV[6],base[3]))); |
V21= list(3,VV[20],VV[21],list(3,VV[3],VV[22],list(3,VV[5],VV[6],base[3]))); |
125 |
V21= list(2,Ct,make_cons(VV[23],base[2])); |
V22= list(2,Ct,make_cons(VV[23],base[2])); |
126 |
V22= make_cons(/* INLINE-ARGS */V21,Cnil); |
V23= make_cons(/* INLINE-ARGS */V22,Cnil); |
127 |
V23= append(base[4],/* INLINE-ARGS */V22); |
V24= append(base[4],/* INLINE-ARGS */V23); |
128 |
V19= list(2,/* INLINE-ARGS */V20,make_cons(VV[16],/* INLINE-ARGS */V23)); |
V20= list(2,/* INLINE-ARGS */V21,make_cons(VV[16],/* INLINE-ARGS */V24)); |
129 |
if((base[2])==Cnil){ |
if((base[2])==Cnil){ |
130 |
goto T25;} |
goto T25;} |
131 |
V19= listA(3,VV[18],base[2],(V19)); |
V20= listA(3,VV[18],base[2],(V20)); |
132 |
goto T23; |
goto T23; |
133 |
goto T25; |
goto T25; |
134 |
T25:; |
T25:; |
135 |
V19= make_cons(VV[8],(V19)); |
V20= make_cons(VV[8],(V20)); |
136 |
goto T23; |
goto T23; |
137 |
T23:; |
T23:; |
138 |
base[5]= list(3,VV[19],VV[6],(V19)); |
base[5]= list(3,VV[19],VV[6],(V20)); |
139 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
140 |
return;} |
return;} |
141 |
} |
} |
145 |
{ |
{ |
146 |
va_list ap; |
va_list ap; |
147 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
148 |
{register object V24; |
{register object V25; |
149 |
va_start(ap,first); |
va_start(ap,first); |
150 |
narg= narg - 0; |
narg= narg - 0; |
151 |
V25 = list_vector_new(narg,first,ap); |
V26 = list_vector_new(narg,first,ap); |
152 |
V24= V25; |
V25= V26; |
153 |
if((symbol_value(VV[24]))==Cnil){ |
if((symbol_value(VV[24]))==Cnil){ |
154 |
goto T29;} |
goto T29;} |
155 |
vs_base=vs_top; |
vs_base=vs_top; |
163 |
vs_top=sup; |
vs_top=sup; |
164 |
goto T29; |
goto T29; |
165 |
T29:; |
T29:; |
166 |
{register object V26; |
{register object V27; |
167 |
base[0]= VV[25]; |
V28= car((V25)); |
168 |
base[1]= car((V24)); |
base[0]= (V25); |
169 |
base[2]= VV[26]; |
vs_top=(vs_base=base+0)+1; |
170 |
base[4]= (V24); |
(void) (*Lnk76)(); |
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk75)(); |
|
|
vs_top=sup; |
|
|
base[3]= vs_base[0]; |
|
|
base[4]= VV[27]; |
|
|
base[5]= caddr((V24)); |
|
|
base[6]= VV[28]; |
|
|
base[7]= cadddr((V24)); |
|
|
base[8]= VV[29]; |
|
|
base[10]= cdr(cddddr((V24))); |
|
|
vs_top=(vs_base=base+10)+1; |
|
|
Lcopy_list(); |
|
171 |
vs_top=sup; |
vs_top=sup; |
172 |
base[9]= vs_base[0]; |
V29= vs_base[0]; |
173 |
base[10]= VV[30]; |
V30= caddr((V25)); |
174 |
base[12]= (V24); |
V31= cadddr((V25)); |
175 |
vs_top=(vs_base=base+12)+1; |
base[0]= cdr(cddddr((V25))); |
176 |
|
vs_top=(vs_base=base+0)+1; |
177 |
Lcopy_list(); |
Lcopy_list(); |
178 |
vs_top=sup; |
vs_top=sup; |
179 |
base[11]= vs_base[0]; |
V32= vs_base[0]; |
180 |
vs_top=(vs_base=base+0)+12; |
base[0]= (V25); |
181 |
(void) (*Lnk76)(); |
vs_top=(vs_base=base+0)+1; |
182 |
|
Lcopy_list(); |
183 |
vs_top=sup; |
vs_top=sup; |
184 |
V26= vs_base[0]; |
V33= vs_base[0]; |
185 |
|
V27= (VFUN_NARGS=12,(*(LnkLI75))(VV[25],/* INLINE-ARGS */V28,VV[26],V29,VV[27],/* INLINE-ARGS */V30,VV[28],/* INLINE-ARGS */V31,VV[29],V32,VV[30],V33)); |
186 |
if((symbol_value(VV[31]))==Cnil){ |
if((symbol_value(VV[31]))==Cnil){ |
187 |
goto T51;} |
goto T42;} |
188 |
{frame_ptr fr; |
{frame_ptr fr; |
189 |
fr=frs_sch_catch(VV[32]); |
fr=frs_sch_catch(VV[32]); |
190 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[32]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[32]); |
191 |
base[0]= (V26); |
base[0]= (V27); |
192 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
193 |
unwind(fr,VV[32]);} |
unwind(fr,VV[32]);} |
194 |
goto T51; |
goto T42; |
195 |
T51:; |
T42:; |
196 |
{object V27; |
{object V34; |
197 |
{register object V28; |
{register object V35; |
198 |
V28= Cnil; |
V35= Cnil; |
199 |
{register long V29; |
{register long V36; |
200 |
register long V30; |
register long V37; |
201 |
V29= 0; |
V36= 0; |
202 |
base[0]= symbol_value(VV[14]); |
base[0]= symbol_value(VV[14]); |
203 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
204 |
Lfill_pointer(); |
Lfill_pointer(); |
205 |
vs_top=sup; |
vs_top=sup; |
206 |
V30= fix(vs_base[0]); |
V37= fix(vs_base[0]); |
207 |
goto T59; |
goto T50; |
208 |
T59:; |
T50:; |
209 |
if(!((V29)>=(V30))){ |
if(!((V36)>=(V37))){ |
210 |
goto T60;} |
goto T51;} |
211 |
V27= Cnil; |
V34= Cnil; |
212 |
goto T54; |
goto T45; |
213 |
goto T60; |
goto T51; |
214 |
T60:; |
T51:; |
215 |
V31= aref1(symbol_value(VV[14]),V29); |
V38= aref1(symbol_value(VV[14]),V36); |
216 |
V28= ( |
V35= ( |
217 |
V32 = /* INLINE-ARGS */V31, |
V39 = /* INLINE-ARGS */V38, |
218 |
(type_of(V32) == t_sfun ?(*((V32)->sfn.sfn_self)): |
(type_of(V39) == t_sfun ?(*((V39)->sfn.sfn_self)): |
219 |
(fcall.argd=1,type_of(V32)==t_vfun) ? |
(fcall.argd=1,type_of(V39)==t_vfun) ? |
220 |
(*((V32)->sfn.sfn_self)): |
(*((V39)->sfn.sfn_self)): |
221 |
(fcall.fun=(V32),fcalln))((V26))); |
(fcall.fun=(V39),fcalln))((V27))); |
222 |
if(((V28))==Cnil){ |
if(((V35))==Cnil){ |
223 |
goto T64;} |
goto T55;} |
224 |
{frame_ptr fr; |
{frame_ptr fr; |
225 |
fr=frs_sch_catch((V28)); |
fr=frs_sch_catch((V35)); |
226 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,(V28)); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,(V35)); |
227 |
base[0]= (V26); |
base[0]= (V27); |
228 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
229 |
unwind(fr,(V28));} |
unwind(fr,(V35));} |
230 |
|
goto T55; |
231 |
|
T55:; |
232 |
|
V36= (long)(V36)+1; |
233 |
|
goto T50;}} |
234 |
|
goto T45; |
235 |
|
T45:; |
236 |
|
if(((V34))==Cnil){ |
237 |
|
goto T64;} |
238 |
|
{object V40 = (V34); |
239 |
|
VMR4(V40)} |
240 |
goto T64; |
goto T64; |
241 |
T64:; |
T64:; |
|
V29= (long)(V29)+1; |
|
|
goto T59;}} |
|
|
goto T54; |
|
|
T54:; |
|
|
if(((V27))==Cnil){ |
|
|
goto T73;} |
|
|
{object V33 = (V27); |
|
|
VMR4(V33)} |
|
|
goto T73; |
|
|
T73:; |
|
242 |
base[0]= get(symbol_value(VV[33]),VV[34],Cnil); |
base[0]= get(symbol_value(VV[33]),VV[34],Cnil); |
243 |
{object V34; |
{object V41; |
244 |
V34= (V24); |
V41= (V25); |
245 |
vs_top=base+1; |
vs_top=base+1; |
246 |
while(!endp(V34)) |
while(!endp(V41)) |
247 |
{vs_push(car(V34));V34=cdr(V34);} |
{vs_push(car(V41));V41=cdr(V41);} |
248 |
vs_base=base+1;} |
vs_base=base+1;} |
249 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
250 |
vs_top=sup; |
vs_top=sup; |
251 |
{object V35 = vs_base[0]; |
{object V42 = vs_base[0]; |
252 |
VMR4(V35)}}} |
VMR4(V42)}}} |
253 |
va_end(ap); |
va_end(ap); |
254 |
base[0]=base[0]; |
base[0]=base[0]; |
255 |
return Cnil;} |
return Cnil;} |
260 |
{register object *base=vs_base; |
{register object *base=vs_base; |
261 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
262 |
vs_reserve(VM5); |
vs_reserve(VM5); |
263 |
{object V36; |
{object V43; |
264 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
265 |
{object *p=vs_top; |
{object *p=vs_top; |
266 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
267 |
V36=(base[0]); |
V43=(base[0]); |
268 |
vs_top=sup; |
vs_top=sup; |
269 |
base[1]= symbol_value(VV[33]); |
base[1]= symbol_value(VV[33]); |
270 |
{object V37; |
{object V44; |
271 |
V37= structure_ref(car((V36)),VV[0],5); |
V44= structure_ref(car((V43)),VV[0],5); |
272 |
vs_top=base+2; |
vs_top=base+2; |
273 |
while(!endp(V37)) |
while(!endp(V44)) |
274 |
{vs_push(car(V37));V37=cdr(V37);} |
{vs_push(car(V44));V44=cdr(V44);} |
275 |
vs_base=base+2;} |
vs_base=base+2;} |
276 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
277 |
return; |
return; |
285 |
vs_reserve(VM6); |
vs_reserve(VM6); |
286 |
check_arg(2); |
check_arg(2); |
287 |
vs_top=sup; |
vs_top=sup; |
288 |
{object V38=base[0]->c.c_cdr; |
{object V45=base[0]->c.c_cdr; |
289 |
if(endp(V38))invalid_macro_call(); |
if(endp(V45))invalid_macro_call(); |
290 |
base[2]= (V38->c.c_car); |
base[2]= (V45->c.c_car); |
291 |
V38=V38->c.c_cdr; |
V45=V45->c.c_cdr; |
292 |
if(endp(V38))invalid_macro_call(); |
if(endp(V45))invalid_macro_call(); |
293 |
{object V39= (V38->c.c_car); |
{object V46= (V45->c.c_car); |
294 |
if(endp(V39))invalid_macro_call(); |
if(endp(V46))invalid_macro_call(); |
295 |
base[3]= (V39->c.c_car); |
base[3]= (V46->c.c_car); |
296 |
V39=V39->c.c_cdr; |
V46=V46->c.c_cdr; |
297 |
if(!endp(V39))invalid_macro_call();} |
if(!endp(V46))invalid_macro_call();} |
298 |
V38=V38->c.c_cdr; |
V45=V45->c.c_cdr; |
299 |
base[4]= V38;} |
base[4]= V45;} |
300 |
{object V40; |
{object V47; |
301 |
base[6]= Cnil; |
base[6]= Cnil; |
302 |
base[7]= VV[35]; |
base[7]= VV[35]; |
303 |
base[8]= base[2]; |
base[8]= base[2]; |
308 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
309 |
Lintern(); |
Lintern(); |
310 |
vs_top=sup; |
vs_top=sup; |
311 |
V40= vs_base[0]; |
V47= vs_base[0]; |
312 |
V41= listA(4,VV[38],(V40),make_cons(base[3],Cnil),base[4]); |
V48= listA(4,VV[38],(V47),make_cons(base[3],Cnil),base[4]); |
313 |
base[5]= list(4,VV[36],VV[37],/* INLINE-ARGS */V41,list(4,VV[39],base[2],Cnil,list(4,VV[40],VV[41],VV[42],list(3,VV[40],VV[43],list(2,VV[4],(V40)))))); |
base[5]= list(4,VV[36],VV[37],/* INLINE-ARGS */V48,list(4,VV[39],base[2],Cnil,list(4,VV[40],VV[41],VV[42],list(3,VV[40],VV[43],list(2,VV[4],(V47)))))); |
314 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
315 |
return;} |
return;} |
316 |
} |
} |
317 |
/* function definition for WTA-tester */ |
/* local entry for function WTA-tester */ |
318 |
|
|
319 |
static void L7() |
static object LI7(V50) |
320 |
{register object *base=vs_base; |
|
321 |
register object *sup=base+VM7; VC7 |
object V50; |
322 |
vs_reserve(VM7); |
{ VMB7 VMS7 VMV7 |
|
{object V42; |
|
|
check_arg(1); |
|
|
V42=(base[0]); |
|
|
vs_top=sup; |
|
323 |
goto TTL; |
goto TTL; |
324 |
TTL:; |
TTL:; |
325 |
V43= structure_ref((V42),VV[0],0); |
V51= structure_ref((V50),VV[0],0); |
326 |
base[1]= (eql(/* INLINE-ARGS */V43,VV[44])?Ct:Cnil); |
{object V52 = (eql(/* INLINE-ARGS */V51,VV[44])?Ct:Cnil); |
327 |
vs_top=(vs_base=base+1)+1; |
VMR7(V52)} |
328 |
return; |
return Cnil; |
|
} |
|
329 |
} |
} |
330 |
/* function definition for G1387 */ |
/* function definition for G1385 */ |
331 |
|
|
332 |
static void L8() |
static void L8() |
333 |
{register object *base=vs_base; |
{register object *base=vs_base; |
341 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
342 |
return; |
return; |
343 |
} |
} |
344 |
/* function definition for SUBSCRIPT-OUT-OF-BOUNDS-tester */ |
/* local entry for function SUBSCRIPT-OUT-OF-BOUNDS-tester */ |
345 |
|
|
346 |
static void L9() |
static object LI9(V54) |
347 |
{register object *base=vs_base; |
|
348 |
register object *sup=base+VM9; VC9 |
object V54; |
349 |
vs_reserve(VM9); |
{ VMB9 VMS9 VMV9 |
|
{object V44; |
|
|
check_arg(1); |
|
|
V44=(base[0]); |
|
|
vs_top=sup; |
|
350 |
goto TTL; |
goto TTL; |
351 |
TTL:; |
TTL:; |
352 |
V45= structure_ref((V44),VV[0],1); |
V55= structure_ref((V54),VV[0],1); |
353 |
base[1]= (equal(/* INLINE-ARGS */V45,VV[48])?Ct:Cnil); |
{object V56 = (equal(/* INLINE-ARGS */V55,VV[48])?Ct:Cnil); |
354 |
vs_top=(vs_base=base+1)+1; |
VMR9(V56)} |
355 |
return; |
return Cnil; |
|
} |
|
356 |
} |
} |
357 |
/* function definition for G1388 */ |
/* function definition for G1386 */ |
358 |
|
|
359 |
static void L10() |
static void L10() |
360 |
{register object *base=vs_base; |
{register object *base=vs_base; |
368 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
369 |
return; |
return; |
370 |
} |
} |
371 |
/* function definition for ERROR-tester */ |
/* local entry for function ERROR-tester */ |
372 |
|
|
373 |
static void L11() |
static object LI11(V58) |
374 |
{register object *base=vs_base; |
|
375 |
register object *sup=base+VM11; VC11 |
object V58; |
376 |
vs_reserve(VM11); |
{ VMB11 VMS11 VMV11 |
|
{object V46; |
|
|
check_arg(1); |
|
|
V46=(base[0]); |
|
|
vs_top=sup; |
|
377 |
goto TTL; |
goto TTL; |
378 |
TTL:; |
TTL:; |
379 |
V47= structure_ref((V46),VV[0],0); |
V59= structure_ref((V58),VV[0],0); |
380 |
base[1]= (eql(/* INLINE-ARGS */V47,VV[50])?Ct:Cnil); |
{object V60 = (eql(/* INLINE-ARGS */V59,VV[50])?Ct:Cnil); |
381 |
vs_top=(vs_base=base+1)+1; |
VMR11(V60)} |
382 |
return; |
return Cnil; |
|
} |
|
383 |
} |
} |
384 |
/* function definition for G1389 */ |
/* function definition for G1387 */ |
385 |
|
|
386 |
static void L12() |
static void L12() |
387 |
{register object *base=vs_base; |
{register object *base=vs_base; |
395 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
396 |
return; |
return; |
397 |
} |
} |
398 |
/* function definition for WRONG-TYPE-ARGUMENT-tester */ |
/* local entry for function WRONG-TYPE-ARGUMENT-tester */ |
399 |
|
|
400 |
static void L13() |
static object LI13(V62) |
401 |
{register object *base=vs_base; |
|
402 |
register object *sup=base+VM13; VC13 |
object V62; |
403 |
vs_reserve(VM13); |
{ VMB13 VMS13 VMV13 |
|
{object V48; |
|
|
check_arg(1); |
|
|
V48=(base[0]); |
|
|
vs_top=sup; |
|
404 |
goto TTL; |
goto TTL; |
405 |
TTL:; |
TTL:; |
406 |
V49= structure_ref((V48),VV[0],0); |
V63= structure_ref((V62),VV[0],0); |
407 |
base[1]= (eql(/* INLINE-ARGS */V49,VV[52])?Ct:Cnil); |
{object V64 = (eql(/* INLINE-ARGS */V63,VV[52])?Ct:Cnil); |
408 |
vs_top=(vs_base=base+1)+1; |
VMR13(V64)} |
409 |
return; |
return Cnil; |
|
} |
|
410 |
} |
} |
411 |
/* function definition for G1390 */ |
/* function definition for G1388 */ |
412 |
|
|
413 |
static void L14() |
static void L14() |
414 |
{register object *base=vs_base; |
{register object *base=vs_base; |
422 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
423 |
return; |
return; |
424 |
} |
} |
425 |
/* function definition for TOO-FEW-ARGUMENTS-tester */ |
/* local entry for function TOO-FEW-ARGUMENTS-tester */ |
426 |
|
|
427 |
static void L15() |
static object LI15(V66) |
428 |
{register object *base=vs_base; |
|
429 |
register object *sup=base+VM15; VC15 |
object V66; |
430 |
vs_reserve(VM15); |
{ VMB15 VMS15 VMV15 |
|
{object V50; |
|
|
check_arg(1); |
|
|
V50=(base[0]); |
|
|
vs_top=sup; |
|
431 |
goto TTL; |
goto TTL; |
432 |
TTL:; |
TTL:; |
433 |
V51= structure_ref((V50),VV[0],0); |
V67= structure_ref((V66),VV[0],0); |
434 |
base[1]= (eql(/* INLINE-ARGS */V51,VV[54])?Ct:Cnil); |
{object V68 = (eql(/* INLINE-ARGS */V67,VV[54])?Ct:Cnil); |
435 |
vs_top=(vs_base=base+1)+1; |
VMR15(V68)} |
436 |
return; |
return Cnil; |
|
} |
|
437 |
} |
} |
438 |
/* function definition for G1391 */ |
/* function definition for G1389 */ |
439 |
|
|
440 |
static void L16() |
static void L16() |
441 |
{register object *base=vs_base; |
{register object *base=vs_base; |
449 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
450 |
return; |
return; |
451 |
} |
} |
452 |
/* function definition for TOO-MANY-ARGUMENTS-tester */ |
/* local entry for function TOO-MANY-ARGUMENTS-tester */ |
453 |
|
|
454 |
static void L17() |
static object LI17(V70) |
455 |
{register object *base=vs_base; |
|
456 |
register object *sup=base+VM17; VC17 |
object V70; |
457 |
vs_reserve(VM17); |
{ VMB17 VMS17 VMV17 |
|
{object V52; |
|
|
check_arg(1); |
|
|
V52=(base[0]); |
|
|
vs_top=sup; |
|
458 |
goto TTL; |
goto TTL; |
459 |
TTL:; |
TTL:; |
460 |
V53= structure_ref((V52),VV[0],0); |
V71= structure_ref((V70),VV[0],0); |
461 |
base[1]= (eql(/* INLINE-ARGS */V53,VV[56])?Ct:Cnil); |
{object V72 = (eql(/* INLINE-ARGS */V71,VV[56])?Ct:Cnil); |
462 |
vs_top=(vs_base=base+1)+1; |
VMR17(V72)} |
463 |
return; |
return Cnil; |
|
} |
|
464 |
} |
} |
465 |
/* function definition for G1392 */ |
/* function definition for G1390 */ |
466 |
|
|
467 |
static void L18() |
static void L18() |
468 |
{register object *base=vs_base; |
{register object *base=vs_base; |
476 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
477 |
return; |
return; |
478 |
} |
} |
479 |
/* function definition for UNEXPECTED-KEYWORD-tester */ |
/* local entry for function UNEXPECTED-KEYWORD-tester */ |
480 |
|
|
481 |
static void L19() |
static object LI19(V74) |
482 |
{register object *base=vs_base; |
|
483 |
register object *sup=base+VM19; VC19 |
object V74; |
484 |
vs_reserve(VM19); |
{ VMB19 VMS19 VMV19 |
|
{object V54; |
|
|
check_arg(1); |
|
|
V54=(base[0]); |
|
|
vs_top=sup; |
|
485 |
goto TTL; |
goto TTL; |
486 |
TTL:; |
TTL:; |
487 |
V55= structure_ref((V54),VV[0],0); |
V75= structure_ref((V74),VV[0],0); |
488 |
base[1]= (eql(/* INLINE-ARGS */V55,VV[58])?Ct:Cnil); |
{object V76 = (eql(/* INLINE-ARGS */V75,VV[58])?Ct:Cnil); |
489 |
vs_top=(vs_base=base+1)+1; |
VMR19(V76)} |
490 |
return; |
return Cnil; |
|
} |
|
491 |
} |
} |
492 |
/* function definition for G1393 */ |
/* function definition for G1391 */ |
493 |
|
|
494 |
static void L20() |
static void L20() |
495 |
{register object *base=vs_base; |
{register object *base=vs_base; |
503 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
504 |
return; |
return; |
505 |
} |
} |
506 |
/* function definition for INVALID-FORM-tester */ |
/* local entry for function INVALID-FORM-tester */ |
507 |
|
|
508 |
static void L21() |
static object LI21(V78) |
509 |
{register object *base=vs_base; |
|
510 |
register object *sup=base+VM21; VC21 |
object V78; |
511 |
vs_reserve(VM21); |
{ VMB21 VMS21 VMV21 |
|
{object V56; |
|
|
check_arg(1); |
|
|
V56=(base[0]); |
|
|
vs_top=sup; |
|
512 |
goto TTL; |
goto TTL; |
513 |
TTL:; |
TTL:; |
514 |
V57= structure_ref((V56),VV[0],0); |
V79= structure_ref((V78),VV[0],0); |
515 |
base[1]= (eql(/* INLINE-ARGS */V57,VV[60])?Ct:Cnil); |
{object V80 = (eql(/* INLINE-ARGS */V79,VV[60])?Ct:Cnil); |
516 |
vs_top=(vs_base=base+1)+1; |
VMR21(V80)} |
517 |
return; |
return Cnil; |
|
} |
|
518 |
} |
} |
519 |
/* function definition for G1394 */ |
/* function definition for G1392 */ |
520 |
|
|
521 |
static void L22() |
static void L22() |
522 |
{register object *base=vs_base; |
{register object *base=vs_base; |
530 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
531 |
return; |
return; |
532 |
} |
} |
533 |
/* function definition for UNBOUND-VARIABLE-tester */ |
/* local entry for function UNBOUND-VARIABLE-tester */ |
534 |
|
|
535 |
static void L23() |
static object LI23(V82) |
536 |
{register object *base=vs_base; |
|
537 |
register object *sup=base+VM23; VC23 |
object V82; |
538 |
vs_reserve(VM23); |
{ VMB23 VMS23 VMV23 |
|
{object V58; |
|
|
check_arg(1); |
|
|
V58=(base[0]); |
|
|
vs_top=sup; |
|
539 |
goto TTL; |
goto TTL; |
540 |
TTL:; |
TTL:; |
541 |
V59= structure_ref((V58),VV[0],0); |
V83= structure_ref((V82),VV[0],0); |
542 |
base[1]= (eql(/* INLINE-ARGS */V59,VV[62])?Ct:Cnil); |
{object V84 = (eql(/* INLINE-ARGS */V83,VV[62])?Ct:Cnil); |
543 |
vs_top=(vs_base=base+1)+1; |
VMR23(V84)} |
544 |
return; |
return Cnil; |
|
} |
|
545 |
} |
} |
546 |
/* function definition for G1395 */ |
/* function definition for G1393 */ |
547 |
|
|
548 |
static void L24() |
static void L24() |
549 |
{register object *base=vs_base; |
{register object *base=vs_base; |
557 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
558 |
return; |
return; |
559 |
} |
} |
560 |
/* function definition for INVALID-VARIABLE-tester */ |
/* local entry for function INVALID-VARIABLE-tester */ |
561 |
|
|
562 |
static void L25() |
static object LI25(V86) |
563 |
{register object *base=vs_base; |
|
564 |
register object *sup=base+VM25; VC25 |
object V86; |
565 |
vs_reserve(VM25); |
{ VMB25 VMS25 VMV25 |
|
{object V60; |
|
|
check_arg(1); |
|
|
V60=(base[0]); |
|
|
vs_top=sup; |
|
566 |
goto TTL; |
goto TTL; |
567 |
TTL:; |
TTL:; |
568 |
V61= structure_ref((V60),VV[0],0); |
V87= structure_ref((V86),VV[0],0); |
569 |
base[1]= (eql(/* INLINE-ARGS */V61,VV[64])?Ct:Cnil); |
{object V88 = (eql(/* INLINE-ARGS */V87,VV[64])?Ct:Cnil); |
570 |
vs_top=(vs_base=base+1)+1; |
VMR25(V88)} |
571 |
return; |
return Cnil; |
|
} |
|
572 |
} |
} |
573 |
/* function definition for G1396 */ |
/* function definition for G1394 */ |
574 |
|
|
575 |
static void L26() |
static void L26() |
576 |
{register object *base=vs_base; |
{register object *base=vs_base; |
584 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
585 |
return; |
return; |
586 |
} |
} |
587 |
/* function definition for UNDEFINED-FUNCTION-tester */ |
/* local entry for function UNDEFINED-FUNCTION-tester */ |
588 |
|
|
589 |
static void L27() |
static object LI27(V90) |
590 |
{register object *base=vs_base; |
|
591 |
register object *sup=base+VM27; VC27 |
object V90; |
592 |
vs_reserve(VM27); |
{ VMB27 VMS27 VMV27 |
|
{object V62; |
|
|
check_arg(1); |
|
|
V62=(base[0]); |
|
|
vs_top=sup; |
|
593 |
goto TTL; |
goto TTL; |
594 |
TTL:; |
TTL:; |
595 |
V63= structure_ref((V62),VV[0],0); |
V91= structure_ref((V90),VV[0],0); |
596 |
base[1]= (eql(/* INLINE-ARGS */V63,VV[66])?Ct:Cnil); |
{object V92 = (eql(/* INLINE-ARGS */V91,VV[66])?Ct:Cnil); |
597 |
vs_top=(vs_base=base+1)+1; |
VMR27(V92)} |
598 |
return; |
return Cnil; |
|
} |
|
599 |
} |
} |
600 |
/* function definition for G1397 */ |
/* function definition for G1395 */ |
601 |
|
|
602 |
static void L28() |
static void L28() |
603 |
{register object *base=vs_base; |
{register object *base=vs_base; |
611 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
612 |
return; |
return; |
613 |
} |
} |
614 |
/* function definition for INVALID-FUNCTION-tester */ |
/* local entry for function INVALID-FUNCTION-tester */ |
615 |
|
|
616 |
static void L29() |
static object LI29(V94) |
617 |
{register object *base=vs_base; |
|
618 |
register object *sup=base+VM29; VC29 |
object V94; |
619 |
vs_reserve(VM29); |
{ VMB29 VMS29 VMV29 |
|
{object V64; |
|
|
check_arg(1); |
|
|
V64=(base[0]); |
|
|
vs_top=sup; |
|
620 |
goto TTL; |
goto TTL; |
621 |
TTL:; |
TTL:; |
622 |
V65= structure_ref((V64),VV[0],0); |
V95= structure_ref((V94),VV[0],0); |
623 |
base[1]= (eql(/* INLINE-ARGS */V65,VV[68])?Ct:Cnil); |
{object V96 = (eql(/* INLINE-ARGS */V95,VV[68])?Ct:Cnil); |
624 |
vs_top=(vs_base=base+1)+1; |
VMR29(V96)} |
625 |
return; |
return Cnil; |
|
} |
|
626 |
} |
} |
627 |
/* function definition for G1398 */ |
/* function definition for G1396 */ |
628 |
|
|
629 |
static void L30() |
static void L30() |
630 |
{register object *base=vs_base; |
{register object *base=vs_base; |
646 |
vs_reserve(VM31); |
vs_reserve(VM31); |
647 |
check_arg(2); |
check_arg(2); |
648 |
vs_top=sup; |
vs_top=sup; |
649 |
{object V66=base[0]->c.c_cdr; |
{object V97=base[0]->c.c_cdr; |
650 |
if(endp(V66))invalid_macro_call(); |
if(endp(V97))invalid_macro_call(); |
651 |
base[2]= (V66->c.c_car); |
base[2]= (V97->c.c_car); |
652 |
V66=V66->c.c_cdr; |
V97=V97->c.c_cdr; |
653 |
if(endp(V66))invalid_macro_call(); |
if(endp(V97))invalid_macro_call(); |
654 |
base[3]= (V66->c.c_car); |
base[3]= (V97->c.c_car); |
655 |
V66=V66->c.c_cdr; |
V97=V97->c.c_cdr; |
656 |
base[4]= V66;} |
base[4]= V97;} |
657 |
{register object V67; |
{register object V98; |
658 |
V67= car(base[2]); |
V98= car(base[2]); |
659 |
V68= make_cons((V67),Cnil); |
V99= make_cons((V98),Cnil); |
660 |
{register object V70; |
{register object V101; |
661 |
register object V71; |
register object V102; |
662 |
V70= Cnil; |
V101= Cnil; |
663 |
V71= base[4]; |
V102= base[4]; |
664 |
{register object V72; |
{register object V103; |
665 |
register object V73; |
register object V104; |
666 |
register object V74; |
register object V105; |
667 |
register object V75; |
register object V106; |
668 |
V72= Cnil; |
V103= Cnil; |
669 |
V73= Cnil; |
V104= Cnil; |
670 |
V74= Cnil; |
V105= Cnil; |
671 |
V75= Cnil; |
V106= Cnil; |
672 |
goto T87; |
goto T78; |
673 |
T87:; |
T78:; |
674 |
if(((V71))==Cnil){ |
if(((V102))==Cnil){ |
675 |
goto T90;} |
goto T81;} |
676 |
goto T89; |
goto T80; |
677 |
goto T90; |
goto T81; |
678 |
T90:; |
T81:; |
679 |
goto T88; |
goto T79; |
680 |
goto T89; |
goto T80; |
681 |
T89:; |
T80:; |
682 |
{register object V76; |
{register object V107; |
683 |
V76= car((V71)); |
V107= car((V102)); |
684 |
V70= (V76);} |
V101= (V107);} |
685 |
{object V77= car((V70)); |
{object V108= car((V101)); |
686 |
if(!(type_of(V77)==t_cons||(V77)==Cnil)){ |
if(!(type_of(V108)==t_cons||(V108)==Cnil)){ |
687 |
goto T97;}} |
goto T88;}} |
688 |
V78= list(3,VV[71],(V67),list(2,VV[4],make_cons(VV[13],car((V70))))); |
V109= list(3,VV[71],(V98),list(2,VV[4],make_cons(VV[13],car((V101))))); |
689 |
V74= make_cons(/* INLINE-ARGS */V78,cdr((V70))); |
V105= make_cons(/* INLINE-ARGS */V109,cdr((V101))); |
690 |
if(((V73))==Cnil){ |
if(((V104))==Cnil){ |
691 |
goto T102;} |
goto T93;} |
692 |
{register object V79; |
{register object V110; |
693 |
register object V80; |
register object V111; |
694 |
V79= (V73); |
V110= (V104); |
695 |
V73= make_cons((V74),Cnil); |
V104= make_cons((V105),Cnil); |
696 |
V80= (V73); |
V111= (V104); |
697 |
if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79)); |
if(type_of((V110))!=t_cons)FEwrong_type_argument(Scons,(V110)); |
698 |
((V79))->c.c_cdr = (V80); |
((V110))->c.c_cdr = (V111); |
699 |
goto T95;} |
goto T86;} |
700 |
goto T102; |
goto T93; |
701 |
T102:; |
T93:; |
702 |
V73= make_cons((V74),Cnil); |
V104= make_cons((V105),Cnil); |
703 |
V72= (V73); |
V103= (V104); |
704 |
goto T95; |
goto T86; |
|
goto T97; |
|
|
T97:; |
|
|
V81= list(3,VV[71],(V67),list(2,VV[4],car((V70)))); |
|
|
V75= make_cons(/* INLINE-ARGS */V81,cdr((V70))); |
|
|
if(((V73))==Cnil){ |
|
|
goto T113;} |
|
|
{register object V82; |
|
|
register object V83; |
|
|
V82= (V73); |
|
|
V73= make_cons((V75),Cnil); |
|
|
V83= (V73); |
|
|
if(type_of((V82))!=t_cons)FEwrong_type_argument(Scons,(V82)); |
|
|
((V82))->c.c_cdr = (V83); |
|
|
goto T95;} |
|
|
goto T113; |
|
|
T113:; |
|
|
V73= make_cons((V75),Cnil); |
|
|
V72= (V73); |
|
|
goto T95; |
|
|
T95:; |
|
|
V71= cdr((V71)); |
|
|
goto T87; |
|
705 |
goto T88; |
goto T88; |
706 |
T88:; |
T88:; |
707 |
V69= (V72); |
V112= list(3,VV[71],(V98),list(2,VV[4],car((V101)))); |
708 |
goto T85; |
V106= make_cons(/* INLINE-ARGS */V112,cdr((V101))); |
709 |
V69= Cnil; |
if(((V104))==Cnil){ |
710 |
goto T85; |
goto T104;} |
711 |
V69= Cnil; |
{register object V113; |
712 |
goto T85;}} |
register object V114; |
713 |
goto T85; |
V113= (V104); |
714 |
T85:; |
V104= make_cons((V106),Cnil); |
715 |
base[5]= listA(4,VV[70],/* INLINE-ARGS */V68,base[3],V69); |
V114= (V104); |
716 |
|
if(type_of((V113))!=t_cons)FEwrong_type_argument(Scons,(V113)); |
717 |
|
((V113))->c.c_cdr = (V114); |
718 |
|
goto T86;} |
719 |
|
goto T104; |
720 |
|
T104:; |
721 |
|
V104= make_cons((V106),Cnil); |
722 |
|
V103= (V104); |
723 |
|
goto T86; |
724 |
|
T86:; |
725 |
|
V102= cdr((V102)); |
726 |
|
goto T78; |
727 |
|
goto T79; |
728 |
|
T79:; |
729 |
|
V100= (V103); |
730 |
|
goto T76; |
731 |
|
V100= Cnil; |
732 |
|
goto T76; |
733 |
|
V100= Cnil; |
734 |
|
goto T76;}} |
735 |
|
goto T76; |
736 |
|
T76:; |
737 |
|
base[5]= listA(4,VV[70],/* INLINE-ARGS */V99,base[3],V100); |
738 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
739 |
return;} |
return;} |
740 |
} |
} |
741 |
static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* MAKE-ERROR-CONDITION */ |
static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* FIFTH */ |
742 |
static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* FIFTH */ |
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[75],(void **)(void *)&LnkLI75,first,ap);va_end(ap);return V1;} /* MAKE-ERROR-CONDITION */ |
743 |
static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* BREAK-VS */ |
static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* BREAK-VS */ |
744 |
static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* BACKTRACE */ |
static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* BACKTRACE */ |
745 |
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* SIMPLE-BACKTRACE */ |
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* SIMPLE-BACKTRACE */ |