43 |
V12= structure_ref((V2),VV[0],2); |
V12= structure_ref((V2),VV[0],2); |
44 |
(void)((*(LnkLI12))(/* INLINE-ARGS */V12)); |
(void)((*(LnkLI12))(/* INLINE-ARGS */V12)); |
45 |
princ_str(");",VV[1]); |
princ_str(");",VV[1]); |
46 |
setq(VV[2],make_cons(VV[3],symbol_value(VV[2]))); |
setq(VV[3],make_cons(VV[2],symbol_value(VV[3]))); |
47 |
{object V13 = symbol_value(VV[2]); |
{object V14 = symbol_value(VV[3]); |
48 |
VMR1(V13)} |
VMR1(V14)} |
49 |
goto T16; |
goto T16; |
50 |
T16:; |
T16:; |
51 |
if((V3!= VV[10]))goto T25; |
if((V3!= VV[10]))goto T25; |
52 |
V14= structure_ref((V2),VV[0],4); |
V15= structure_ref((V2),VV[0],4); |
53 |
if(!(type_of(/* INLINE-ARGS */V14)==t_fixnum||type_of(/* INLINE-ARGS */V14)==t_bignum)){ |
if(!(type_of(/* INLINE-ARGS */V15)==t_fixnum||type_of(/* INLINE-ARGS */V15)==t_bignum)){ |
54 |
goto T27;} |
goto T27;} |
55 |
princ_str("\n base0[",VV[1]); |
princ_str("\n base0[",VV[1]); |
56 |
V15= structure_ref((V2),VV[0],4); |
V16= structure_ref((V2),VV[0],4); |
57 |
(void)((*(LnkLI17))(/* INLINE-ARGS */V15)); |
(void)((*(LnkLI17))(/* INLINE-ARGS */V16)); |
58 |
princ_str("]=",VV[1]); |
princ_str("]=",VV[1]); |
59 |
V16= structure_ref((V2),VV[0],2); |
V17= structure_ref((V2),VV[0],2); |
60 |
(void)((*(LnkLI12))(/* INLINE-ARGS */V16)); |
(void)((*(LnkLI12))(/* INLINE-ARGS */V17)); |
61 |
princ_char(59,VV[1]); |
princ_char(59,VV[1]); |
62 |
{object V17 = Cnil; |
{object V18 = Cnil; |
63 |
VMR1(V17)} |
VMR1(V18)} |
64 |
goto T27; |
goto T27; |
65 |
T27:; |
T27:; |
66 |
{object V18 = (*(LnkLI18))(); |
{object V19 = (*(LnkLI18))(); |
67 |
VMR1(V18)} |
VMR1(V19)} |
68 |
goto T25; |
goto T25; |
69 |
T25:; |
T25:; |
70 |
if((V3!= VV[19]))goto T35; |
if((V3!= VV[19]))goto T35; |
71 |
princ_str("\n SETQ_IO(V",VV[1]); |
princ_str("\n SETQ_IO(V",VV[1]); |
|
V19= structure_ref((V2),VV[0],4); |
|
|
(void)((*(LnkLI17))(/* INLINE-ARGS */V19)); |
|
|
princ_char(44,VV[1]); |
|
|
princ_char(86,VV[1]); |
|
72 |
V20= structure_ref((V2),VV[0],4); |
V20= structure_ref((V2),VV[0],4); |
73 |
(void)((*(LnkLI17))(/* INLINE-ARGS */V20)); |
(void)((*(LnkLI17))(/* INLINE-ARGS */V20)); |
74 |
|
princ_char(44,VV[1]); |
75 |
|
princ_char(86,VV[1]); |
76 |
|
V21= structure_ref((V2),VV[0],4); |
77 |
|
(void)((*(LnkLI17))(/* INLINE-ARGS */V21)); |
78 |
princ_str("alloc,",VV[1]); |
princ_str("alloc,",VV[1]); |
79 |
princ_char(40,VV[1]); |
princ_char(40,VV[1]); |
80 |
V21= structure_ref((V2),VV[0],2); |
V22= structure_ref((V2),VV[0],2); |
81 |
(void)((*(LnkLI12))(/* INLINE-ARGS */V21)); |
(void)((*(LnkLI12))(/* INLINE-ARGS */V22)); |
82 |
princ_str("));",VV[1]); |
princ_str("));",VV[1]); |
83 |
{object V22 = Cnil; |
{object V23 = Cnil; |
84 |
VMR1(V22)} |
VMR1(V23)} |
85 |
goto T35; |
goto T35; |
86 |
T35:; |
T35:; |
87 |
princ_str("\n V",VV[1]); |
princ_str("\n V",VV[1]); |
88 |
V23= structure_ref((V2),VV[0],4); |
V24= structure_ref((V2),VV[0],4); |
89 |
(void)((*(LnkLI17))(/* INLINE-ARGS */V23)); |
(void)((*(LnkLI17))(/* INLINE-ARGS */V24)); |
90 |
princ_char(61,VV[1]); |
princ_char(61,VV[1]); |
91 |
V25= structure_ref((V2),VV[0],1); |
V26= structure_ref((V2),VV[0],1); |
92 |
{object V24= /* INLINE-ARGS */V25; |
{object V25= /* INLINE-ARGS */V26; |
93 |
if((V24!= VV[20]))goto T52; |
if((V25!= VV[20]))goto T52; |
94 |
goto T51; |
goto T51; |
95 |
goto T52; |
goto T52; |
96 |
T52:; |
T52:; |
97 |
if((V24!= VV[21]))goto T53; |
if((V25!= VV[21]))goto T53; |
98 |
princ_str("fix",VV[1]); |
princ_str("fix",VV[1]); |
99 |
goto T51; |
goto T51; |
100 |
goto T53; |
goto T53; |
101 |
T53:; |
T53:; |
102 |
if((V24!= VV[22]))goto T55; |
if((V25!= VV[22]))goto T55; |
103 |
princ_str("char_code",VV[1]); |
princ_str("char_code",VV[1]); |
104 |
goto T51; |
goto T51; |
105 |
goto T55; |
goto T55; |
106 |
T55:; |
T55:; |
107 |
if((V24!= VV[23]))goto T57; |
if((V25!= VV[23]))goto T57; |
108 |
princ_str("lf",VV[1]); |
princ_str("lf",VV[1]); |
109 |
goto T51; |
goto T51; |
110 |
goto T57; |
goto T57; |
111 |
T57:; |
T57:; |
112 |
if((V24!= VV[24]))goto T59; |
if((V25!= VV[24]))goto T59; |
113 |
princ_str("sf",VV[1]); |
princ_str("sf",VV[1]); |
114 |
goto T51; |
goto T51; |
115 |
goto T59; |
goto T59; |
118 |
goto T51; |
goto T51; |
119 |
T51:; |
T51:; |
120 |
princ_char(40,VV[1]); |
princ_char(40,VV[1]); |
121 |
V26= structure_ref((V2),VV[0],2); |
V27= structure_ref((V2),VV[0],2); |
122 |
(void)((*(LnkLI12))(/* INLINE-ARGS */V26)); |
(void)((*(LnkLI12))(/* INLINE-ARGS */V27)); |
123 |
princ_str(");",VV[1]); |
princ_str(");",VV[1]); |
124 |
{object V27 = Cnil; |
{object V28 = Cnil; |
125 |
VMR1(V27)}} |
VMR1(V28)}} |
126 |
return Cnil; |
return Cnil; |
127 |
} |
} |
128 |
/* local entry for function C2BIND-LOC */ |
/* local entry for function C2BIND-LOC */ |
129 |
|
|
130 |
static object LI2(V30,V31) |
static object LI2(V31,V32) |
131 |
|
|
132 |
register object V30;register object V31; |
register object V31;register object V32; |
133 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
134 |
bds_check; |
bds_check; |
135 |
goto TTL; |
goto TTL; |
136 |
TTL:; |
TTL:; |
137 |
V33= structure_ref((V30),VV[0],1); |
V34= structure_ref((V31),VV[0],1); |
138 |
{object V32= /* INLINE-ARGS */V33; |
{object V33= /* INLINE-ARGS */V34; |
139 |
if((V32!= VV[11]))goto T65; |
if((V33!= VV[11]))goto T65; |
140 |
if((structure_ref((V30),VV[0],3))==Cnil){ |
if((structure_ref((V31),VV[0],3))==Cnil){ |
141 |
goto T67;} |
goto T67;} |
142 |
princ_str("\n ",VV[1]); |
princ_str("\n ",VV[1]); |
143 |
V34= structure_ref((V30),VV[0],2); |
V35= structure_ref((V31),VV[0],2); |
144 |
(void)((*(LnkLI12))(/* INLINE-ARGS */V34)); |
(void)((*(LnkLI12))(/* INLINE-ARGS */V35)); |
145 |
princ_str("=MMcons(",VV[1]); |
princ_str("=MMcons(",VV[1]); |
146 |
(void)((*(LnkLI17))((V31))); |
(void)((*(LnkLI17))((V32))); |
147 |
princ_char(44,VV[1]); |
princ_char(44,VV[1]); |
148 |
(void)((VFUN_NARGS=0,(*(LnkLI13))())); |
(void)((VFUN_NARGS=0,(*(LnkLI13))())); |
149 |
princ_str(");",VV[1]); |
princ_str(");",VV[1]); |
150 |
V35= structure_ref((V30),VV[0],2); |
V36= structure_ref((V31),VV[0],2); |
151 |
(void)((*(LnkLI14))(/* INLINE-ARGS */V35)); |
(void)((*(LnkLI14))(/* INLINE-ARGS */V36)); |
152 |
V36= (*(LnkLI15))(); |
V37= (*(LnkLI15))(); |
153 |
{object V37 = structure_set((V30),VV[0],3,/* INLINE-ARGS */V36); |
{object V38 = structure_set((V31),VV[0],3,/* INLINE-ARGS */V37); |
154 |
VMR2(V37)} |
VMR2(V38)} |
155 |
goto T67; |
goto T67; |
156 |
T67:; |
T67:; |
157 |
princ_str("\n ",VV[1]); |
princ_str("\n ",VV[1]); |
158 |
V38= structure_ref((V30),VV[0],2); |
V39= structure_ref((V31),VV[0],2); |
159 |
(void)((*(LnkLI12))(/* INLINE-ARGS */V38)); |
(void)((*(LnkLI12))(/* INLINE-ARGS */V39)); |
160 |
princ_str("= ",VV[1]); |
princ_str("= ",VV[1]); |
161 |
(void)((*(LnkLI17))((V31))); |
(void)((*(LnkLI17))((V32))); |
162 |
princ_char(59,VV[1]); |
princ_char(59,VV[1]); |
163 |
{object V39 = Cnil; |
{object V40 = Cnil; |
164 |
VMR2(V39)} |
VMR2(V40)} |
165 |
goto T65; |
goto T65; |
166 |
T65:; |
T65:; |
167 |
if((V32!= VV[16]))goto T84; |
if((V33!= VV[16]))goto T84; |
168 |
princ_str("\n bds_bind(VV[",VV[1]); |
princ_str("\n bds_bind(VV[",VV[1]); |
169 |
V40= structure_ref((V30),VV[0],4); |
V41= structure_ref((V31),VV[0],4); |
170 |
(void)((*(LnkLI17))(/* INLINE-ARGS */V40)); |
(void)((*(LnkLI17))(/* INLINE-ARGS */V41)); |
171 |
princ_str("],",VV[1]); |
princ_str("],",VV[1]); |
172 |
(void)((*(LnkLI17))((V31))); |
(void)((*(LnkLI17))((V32))); |
173 |
princ_str(");",VV[1]); |
princ_str(");",VV[1]); |
174 |
setq(VV[2],make_cons(VV[3],symbol_value(VV[2]))); |
setq(VV[3],make_cons(VV[2],symbol_value(VV[3]))); |
175 |
{object V41 = symbol_value(VV[2]); |
{object V43 = symbol_value(VV[3]); |
176 |
VMR2(V41)} |
VMR2(V43)} |
177 |
goto T84; |
goto T84; |
178 |
T84:; |
T84:; |
179 |
if((V32!= VV[10]))goto T92; |
if((V33!= VV[10]))goto T92; |
180 |
princ_str("\n base0[",VV[1]); |
princ_str("\n base0[",VV[1]); |
181 |
V42= structure_ref((V30),VV[0],4); |
V44= structure_ref((V31),VV[0],4); |
182 |
(void)((*(LnkLI17))(/* INLINE-ARGS */V42)); |
(void)((*(LnkLI17))(/* INLINE-ARGS */V44)); |
183 |
princ_str("]=",VV[1]); |
princ_str("]=",VV[1]); |
184 |
(void)((*(LnkLI17))((V31))); |
(void)((*(LnkLI17))((V32))); |
185 |
princ_char(59,VV[1]); |
princ_char(59,VV[1]); |
186 |
{object V43 = Cnil; |
{object V45 = Cnil; |
187 |
VMR2(V43)} |
VMR2(V45)} |
188 |
goto T92; |
goto T92; |
189 |
T92:; |
T92:; |
190 |
if((V32!= VV[19]))goto T98; |
if((V33!= VV[19]))goto T98; |
191 |
bds_bind(VV[4],small_fixnum(0)); |
bds_bind(VV[4],small_fixnum(0)); |
192 |
bds_bind(VV[5],symbol_value(VV[5])); |
bds_bind(VV[5],symbol_value(VV[5])); |
193 |
base[2]= VV[6]; |
base[2]= VV[6]; |
195 |
(void) (*Lnk26)(); |
(void) (*Lnk26)(); |
196 |
vs_top=sup; |
vs_top=sup; |
197 |
princ_str("\n V",VV[1]); |
princ_str("\n V",VV[1]); |
198 |
V44= structure_ref((V30),VV[0],4); |
V46= structure_ref((V31),VV[0],4); |
199 |
(void)((*(LnkLI17))(/* INLINE-ARGS */V44)); |
(void)((*(LnkLI17))(/* INLINE-ARGS */V46)); |
200 |
princ_str("= ",VV[1]); |
princ_str("= ",VV[1]); |
201 |
base[2]= (V31); |
base[2]= (V32); |
202 |
base[3]= (V30); |
base[3]= (V31); |
203 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
204 |
(void) (*Lnk27)(); |
(void) (*Lnk27)(); |
205 |
vs_top=sup; |
vs_top=sup; |
206 |
princ_char(59,VV[1]); |
princ_char(59,VV[1]); |
207 |
{object V45 = (*(LnkLI28))(); |
{object V47 = (*(LnkLI28))(); |
208 |
bds_unwind1; |
bds_unwind1; |
209 |
bds_unwind1; |
bds_unwind1; |
210 |
VMR2(V45)} |
VMR2(V47)} |
211 |
goto T98; |
goto T98; |
212 |
T98:; |
T98:; |
213 |
princ_str("\n V",VV[1]); |
princ_str("\n V",VV[1]); |
214 |
V46= structure_ref((V30),VV[0],4); |
V48= structure_ref((V31),VV[0],4); |
215 |
(void)((*(LnkLI17))(/* INLINE-ARGS */V46)); |
(void)((*(LnkLI17))(/* INLINE-ARGS */V48)); |
216 |
princ_str("= ",VV[1]); |
princ_str("= ",VV[1]); |
217 |
V48= structure_ref((V30),VV[0],1); |
V50= structure_ref((V31),VV[0],1); |
218 |
{object V47= /* INLINE-ARGS */V48; |
{object V49= /* INLINE-ARGS */V50; |
219 |
if((V47!= VV[20]))goto T115; |
if((V49!= VV[20]))goto T115; |
220 |
base[0]= (V31); |
base[0]= (V32); |
221 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
222 |
(void) (*Lnk29)(); |
(void) (*Lnk29)(); |
223 |
vs_top=sup; |
vs_top=sup; |
224 |
goto T114; |
goto T114; |
225 |
goto T115; |
goto T115; |
226 |
T115:; |
T115:; |
227 |
if((V47!= VV[21]))goto T117; |
if((V49!= VV[21]))goto T117; |
228 |
base[0]= (V31); |
base[0]= (V32); |
229 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
230 |
(void) (*Lnk30)(); |
(void) (*Lnk30)(); |
231 |
vs_top=sup; |
vs_top=sup; |
232 |
goto T114; |
goto T114; |
233 |
goto T117; |
goto T117; |
234 |
T117:; |
T117:; |
235 |
if((V47!= VV[22]))goto T119; |
if((V49!= VV[22]))goto T119; |
236 |
base[0]= (V31); |
base[0]= (V32); |
237 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
238 |
(void) (*Lnk31)(); |
(void) (*Lnk31)(); |
239 |
vs_top=sup; |
vs_top=sup; |
240 |
goto T114; |
goto T114; |
241 |
goto T119; |
goto T119; |
242 |
T119:; |
T119:; |
243 |
if((V47!= VV[23]))goto T121; |
if((V49!= VV[23]))goto T121; |
244 |
base[0]= (V31); |
base[0]= (V32); |
245 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
246 |
(void) (*Lnk32)(); |
(void) (*Lnk32)(); |
247 |
vs_top=sup; |
vs_top=sup; |
248 |
goto T114; |
goto T114; |
249 |
goto T121; |
goto T121; |
250 |
T121:; |
T121:; |
251 |
if((V47!= VV[24]))goto T123; |
if((V49!= VV[24]))goto T123; |
252 |
base[0]= (V31); |
base[0]= (V32); |
253 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
254 |
(void) (*Lnk33)(); |
(void) (*Lnk33)(); |
255 |
vs_top=sup; |
vs_top=sup; |
260 |
goto T114; |
goto T114; |
261 |
T114:; |
T114:; |
262 |
princ_char(59,VV[1]); |
princ_char(59,VV[1]); |
263 |
{object V49 = Cnil; |
{object V51 = Cnil; |
264 |
VMR2(V49)}} |
VMR2(V51)}} |
265 |
base[0]=base[0]; |
base[0]=base[0]; |
266 |
return Cnil; |
return Cnil; |
267 |
} |
} |
268 |
/* local entry for function C2BIND-INIT */ |
/* local entry for function C2BIND-INIT */ |
269 |
|
|
270 |
static object LI3(V52,V53) |
static object LI3(V54,V55) |
271 |
|
|
272 |
register object V52;register object V53; |
register object V54;register object V55; |
273 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
274 |
bds_check; |
bds_check; |
275 |
goto TTL; |
goto TTL; |
276 |
TTL:; |
TTL:; |
277 |
V55= structure_ref((V52),VV[0],1); |
V57= structure_ref((V54),VV[0],1); |
278 |
{object V54= /* INLINE-ARGS */V55; |
{object V56= /* INLINE-ARGS */V57; |
279 |
if((V54!= VV[11]))goto T126; |
if((V56!= VV[11]))goto T126; |
280 |
if((structure_ref((V52),VV[0],3))==Cnil){ |
if((structure_ref((V54),VV[0],3))==Cnil){ |
281 |
goto T128;} |
goto T128;} |
282 |
{object V56; |
{object V58; |
283 |
V56= list(2,VV[7],structure_ref((V52),VV[0],2)); |
V58= list(2,VV[7],structure_ref((V54),VV[0],2)); |
284 |
bds_bind(VV[8],(V56)); |
bds_bind(VV[8],(V58)); |
285 |
V57= (*(LnkLI34))((V53)); |
V59= (*(LnkLI34))((V55)); |
286 |
bds_unwind1; |
bds_unwind1; |
287 |
princ_str("\n ",VV[1]); |
princ_str("\n ",VV[1]); |
288 |
(void)((*(LnkLI17))((V56))); |
(void)((*(LnkLI17))((V58))); |
289 |
princ_str("=MMcons(",VV[1]); |
princ_str("=MMcons(",VV[1]); |
290 |
(void)((*(LnkLI17))((V56))); |
(void)((*(LnkLI17))((V58))); |
291 |
princ_char(44,VV[1]); |
princ_char(44,VV[1]); |
292 |
(void)((VFUN_NARGS=1,(*(LnkLI13))(symbol_value(VV[9])))); |
(void)((VFUN_NARGS=1,(*(LnkLI13))(symbol_value(VV[9])))); |
293 |
princ_str(");",VV[1]);} |
princ_str(");",VV[1]);} |
294 |
V58= structure_ref((V52),VV[0],2); |
V60= structure_ref((V54),VV[0],2); |
295 |
(void)((*(LnkLI14))(/* INLINE-ARGS */V58)); |
(void)((*(LnkLI14))(/* INLINE-ARGS */V60)); |
296 |
V59= (*(LnkLI15))(); |
V61= (*(LnkLI15))(); |
297 |
{object V60 = structure_set((V52),VV[0],3,/* INLINE-ARGS */V59); |
{object V62 = structure_set((V54),VV[0],3,/* INLINE-ARGS */V61); |
298 |
VMR3(V60)} |
VMR3(V62)} |
299 |
goto T128; |
goto T128; |
300 |
T128:; |
T128:; |
301 |
base[0]= list(2,VV[7],structure_ref((V52),VV[0],2)); |
base[0]= list(2,VV[7],structure_ref((V54),VV[0],2)); |
302 |
bds_bind(VV[8],base[0]); |
bds_bind(VV[8],base[0]); |
303 |
{object V61 = (*(LnkLI34))((V53)); |
{object V63 = (*(LnkLI34))((V55)); |
304 |
bds_unwind1; |
bds_unwind1; |
305 |
VMR3(V61)} |
VMR3(V63)} |
306 |
goto T126; |
goto T126; |
307 |
T126:; |
T126:; |
308 |
if((V54!= VV[16]))goto T143; |
if((V56!= VV[16]))goto T143; |
309 |
base[0]= list(2,VV[3],structure_ref((V52),VV[0],4)); |
base[0]= list(2,VV[2],structure_ref((V54),VV[0],4)); |
310 |
bds_bind(VV[8],base[0]); |
bds_bind(VV[8],base[0]); |
311 |
V62= (*(LnkLI34))((V53)); |
V64= (*(LnkLI34))((V55)); |
312 |
bds_unwind1; |
bds_unwind1; |
313 |
setq(VV[2],make_cons(VV[3],symbol_value(VV[2]))); |
setq(VV[3],make_cons(VV[2],symbol_value(VV[3]))); |
314 |
{object V63 = symbol_value(VV[2]); |
{object V66 = symbol_value(VV[3]); |
315 |
VMR3(V63)} |
VMR3(V66)} |
316 |
goto T143; |
goto T143; |
317 |
T143:; |
T143:; |
318 |
if((V54!= VV[10]))goto T147; |
if((V56!= VV[10]))goto T147; |
319 |
base[0]= list(2,VV[10],structure_ref((V52),VV[0],4)); |
base[0]= list(2,VV[10],structure_ref((V54),VV[0],4)); |
320 |
bds_bind(VV[8],base[0]); |
bds_bind(VV[8],base[0]); |
321 |
{object V64 = (*(LnkLI34))((V53)); |
{object V67 = (*(LnkLI34))((V55)); |
322 |
bds_unwind1; |
bds_unwind1; |
323 |
VMR3(V64)} |
VMR3(V67)} |
324 |
goto T147; |
goto T147; |
325 |
T147:; |
T147:; |
326 |
if((V54== VV[20]) |
if((V56== VV[20]) |
327 |
|| (V54== VV[21]) |
|| (V56== VV[21]) |
328 |
|| (V54== VV[22]) |
|| (V56== VV[22]) |
329 |
|| (V54== VV[23]) |
|| (V56== VV[23]) |
330 |
|| (V54== VV[24]))goto T150; |
|| (V56== VV[24]))goto T150; |
331 |
if((V54!= VV[19]))goto T149; |
if((V56!= VV[19]))goto T149; |
332 |
goto T150; |
goto T150; |
333 |
T150:; |
T150:; |
334 |
base[0]= list(3,VV[0],(V52),Cnil); |
base[0]= list(3,VV[0],(V54),Cnil); |
335 |
bds_bind(VV[8],base[0]); |
bds_bind(VV[8],base[0]); |
336 |
{object V65 = (*(LnkLI34))((V53)); |
{object V68 = (*(LnkLI34))((V55)); |
337 |
bds_unwind1; |
bds_unwind1; |
338 |
VMR3(V65)} |
VMR3(V68)} |
339 |
goto T149; |
goto T149; |
340 |
T149:; |
T149:; |
341 |
{object V66 = (*(LnkLI25))(); |
{object V69 = (*(LnkLI25))(); |
342 |
VMR3(V66)}} |
VMR3(V69)}} |
343 |
base[0]=base[0]; |
base[0]=base[0]; |
344 |
return Cnil; |
return Cnil; |
345 |
} |
} |
346 |
/* local entry for function SET-BDS-BIND */ |
/* local entry for function SET-BDS-BIND */ |
347 |
|
|
348 |
static object LI4(V69,V70) |
static object LI4(V72,V73) |
349 |
|
|
350 |
object V69;object V70; |
object V72;object V73; |
351 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
352 |
goto TTL; |
goto TTL; |
353 |
TTL:; |
TTL:; |
354 |
princ_str("\n bds_bind(VV[",VV[1]); |
princ_str("\n bds_bind(VV[",VV[1]); |
355 |
(void)((*(LnkLI17))((V70))); |
(void)((*(LnkLI17))((V73))); |
356 |
princ_str("],",VV[1]); |
princ_str("],",VV[1]); |
357 |
(void)((*(LnkLI17))((V69))); |
(void)((*(LnkLI17))((V72))); |
358 |
princ_str(");",VV[1]); |
princ_str(");",VV[1]); |
359 |
{object V71 = Cnil; |
{object V74 = Cnil; |
360 |
VMR4(V71)} |
VMR4(V74)} |
361 |
return Cnil; |
return Cnil; |
362 |
} |
} |
363 |
static object LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,1,ap);va_end(ap);return V1;} /* C2EXPR* */ |
static object LnkTLI34(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[34],(void **)&LnkLI34,1,ap);va_end(ap);return V1;} /* C2EXPR* */ |