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