1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "readline.h" |
#include "readline.h" |
4 |
init_readline(){do_init(VV);} |
void init_readline(){do_init(VV);} |
5 |
/* function definition for INIT-READLINE */ |
/* function definition for INIT-READLINE */ |
6 |
|
|
7 |
static L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_reserve(VM1); |
11 |
check_arg(0); |
check_arg(0); |
12 |
vs_top=sup; |
vs_top=sup; |
13 |
|
goto TTL; |
14 |
TTL:; |
TTL:; |
15 |
base[0]= VV[0]; |
base[0]= VV[0]; |
16 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
37 |
goto T11;} |
goto T11;} |
38 |
V2= (V5); |
V2= (V5); |
39 |
goto T7; |
goto T7; |
40 |
|
goto T11; |
41 |
T11:; |
T11:; |
42 |
base[0]= coerce_to_string((V5)); |
base[0]= coerce_to_string((V5)); |
43 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
44 |
Lfind_package(); |
Lfind_package(); |
45 |
vs_top=sup; |
vs_top=sup; |
46 |
V2= vs_base[0];} |
V2= vs_base[0];} |
47 |
|
goto T7; |
48 |
T7:; |
T7:; |
49 |
V3= Cnil; |
V3= Cnil; |
50 |
V4= Cnil; |
V4= Cnil; |
60 |
V7= fix(vs_base[0]); |
V7= fix(vs_base[0]); |
61 |
vs_top=sup; |
vs_top=sup; |
62 |
goto T19; |
goto T19; |
63 |
|
goto T17; |
64 |
T17:; |
T17:; |
65 |
V6= fix(Cnil); |
V6= fix(Cnil); |
66 |
|
goto T18; |
67 |
T18:; |
T18:; |
68 |
V7= fix(Cnil); |
V7= fix(Cnil); |
69 |
|
goto T19; |
70 |
T19:; |
T19:; |
71 |
{object V8; |
{object V8; |
72 |
register object V9; |
register object V9; |
74 |
V11 = make_fixnum(V6); |
V11 = make_fixnum(V6); |
75 |
V8= number_plus(V10,V11); |
V8= number_plus(V10,V11); |
76 |
V9= small_fixnum(0); |
V9= small_fixnum(0); |
77 |
|
goto T23; |
78 |
T23:; |
T23:; |
79 |
if(!(number_compare((V9),(V8))>=0)){ |
if(!(number_compare((V9),(V8))>=0)){ |
80 |
goto T24;} |
goto T24;} |
81 |
V3= Cnil; |
V3= Cnil; |
82 |
goto T6; |
goto T6; |
83 |
|
goto T24; |
84 |
T24:; |
T24:; |
85 |
V12 = make_fixnum(V7); |
V12 = make_fixnum(V7); |
86 |
if(!(number_compare((V9),V12)<0)){ |
if(!(number_compare((V9),V12)<0)){ |
92 |
vs_top=sup; |
vs_top=sup; |
93 |
V4= vs_base[0]; |
V4= vs_base[0]; |
94 |
goto T33; |
goto T33; |
95 |
|
goto T35; |
96 |
T35:; |
T35:; |
97 |
base[1]= (V2); |
base[1]= (V2); |
98 |
V13 = make_fixnum(V7); |
V13 = make_fixnum(V7); |
101 |
siLpackage_external(); |
siLpackage_external(); |
102 |
vs_top=sup; |
vs_top=sup; |
103 |
V4= vs_base[0]; |
V4= vs_base[0]; |
104 |
|
goto T33; |
105 |
T33:; |
T33:; |
106 |
|
goto T31; |
107 |
T31:; |
T31:; |
108 |
if(((V4))!=Cnil){ |
if(((V4))!=Cnil){ |
109 |
goto T41;} |
goto T41;} |
110 |
goto T32; |
goto T32; |
111 |
|
goto T41; |
112 |
T41:; |
T41:; |
113 |
V3= car((V4)); |
V3= car((V4)); |
114 |
base[1]= (V3); |
base[1]= (V3); |
123 |
vs_top=sup; |
vs_top=sup; |
124 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
125 |
goto T46;} |
goto T46;} |
126 |
|
goto T47; |
127 |
T47:; |
T47:; |
128 |
V14= symbol_name((V3)); |
V14= symbol_name((V3)); |
129 |
V1= make_cons(/* INLINE-ARGS */V14,(V1)); |
V1= make_cons(/* INLINE-ARGS */V14,(V1)); |
130 |
|
goto T46; |
131 |
T46:; |
T46:; |
132 |
V4= cdr((V4)); |
V4= cdr((V4)); |
133 |
goto T31; |
goto T31; |
134 |
|
goto T32; |
135 |
T32:; |
T32:; |
136 |
goto T29; |
goto T29; |
137 |
|
goto T29; |
138 |
T29:; |
T29:; |
139 |
V9= one_plus((V9)); |
V9= one_plus((V9)); |
140 |
goto T23;}}} |
goto T23;}}} |
141 |
|
goto T6; |
142 |
T6:; |
T6:; |
143 |
goto T5; |
goto T5; |
144 |
|
goto T5; |
145 |
T5:; |
T5:; |
146 |
{object V15; |
{object V15; |
147 |
register object V16; |
register object V16; |
160 |
goto T66;} |
goto T66;} |
161 |
V15= (V18); |
V15= (V18); |
162 |
goto T62; |
goto T62; |
163 |
|
goto T66; |
164 |
T66:; |
T66:; |
165 |
base[0]= coerce_to_string((V18)); |
base[0]= coerce_to_string((V18)); |
166 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
167 |
Lfind_package(); |
Lfind_package(); |
168 |
vs_top=sup; |
vs_top=sup; |
169 |
V15= vs_base[0];} |
V15= vs_base[0];} |
170 |
|
goto T62; |
171 |
T62:; |
T62:; |
172 |
V16= Cnil; |
V16= Cnil; |
173 |
V17= Cnil; |
V17= Cnil; |
183 |
V20= fix(vs_base[0]); |
V20= fix(vs_base[0]); |
184 |
vs_top=sup; |
vs_top=sup; |
185 |
goto T74; |
goto T74; |
186 |
|
goto T72; |
187 |
T72:; |
T72:; |
188 |
V19= fix(Cnil); |
V19= fix(Cnil); |
189 |
|
goto T73; |
190 |
T73:; |
T73:; |
191 |
V20= fix(Cnil); |
V20= fix(Cnil); |
192 |
|
goto T74; |
193 |
T74:; |
T74:; |
194 |
{object V21; |
{object V21; |
195 |
register object V22; |
register object V22; |
197 |
V24 = make_fixnum(V19); |
V24 = make_fixnum(V19); |
198 |
V21= number_plus(V23,V24); |
V21= number_plus(V23,V24); |
199 |
V22= small_fixnum(0); |
V22= small_fixnum(0); |
200 |
|
goto T78; |
201 |
T78:; |
T78:; |
202 |
if(!(number_compare((V22),(V21))>=0)){ |
if(!(number_compare((V22),(V21))>=0)){ |
203 |
goto T79;} |
goto T79;} |
204 |
V16= Cnil; |
V16= Cnil; |
205 |
goto T61; |
goto T61; |
206 |
|
goto T79; |
207 |
T79:; |
T79:; |
208 |
V25 = make_fixnum(V20); |
V25 = make_fixnum(V20); |
209 |
if(!(number_compare((V22),V25)<0)){ |
if(!(number_compare((V22),V25)<0)){ |
215 |
vs_top=sup; |
vs_top=sup; |
216 |
V17= vs_base[0]; |
V17= vs_base[0]; |
217 |
goto T88; |
goto T88; |
218 |
|
goto T90; |
219 |
T90:; |
T90:; |
220 |
base[1]= (V15); |
base[1]= (V15); |
221 |
V26 = make_fixnum(V20); |
V26 = make_fixnum(V20); |
224 |
siLpackage_external(); |
siLpackage_external(); |
225 |
vs_top=sup; |
vs_top=sup; |
226 |
V17= vs_base[0]; |
V17= vs_base[0]; |
227 |
|
goto T88; |
228 |
T88:; |
T88:; |
229 |
|
goto T86; |
230 |
T86:; |
T86:; |
231 |
if(((V17))!=Cnil){ |
if(((V17))!=Cnil){ |
232 |
goto T96;} |
goto T96;} |
233 |
goto T87; |
goto T87; |
234 |
|
goto T96; |
235 |
T96:; |
T96:; |
236 |
V16= car((V17)); |
V16= car((V17)); |
237 |
base[1]= (V16); |
base[1]= (V16); |
246 |
vs_top=sup; |
vs_top=sup; |
247 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
248 |
goto T101;} |
goto T101;} |
249 |
|
goto T102; |
250 |
T102:; |
T102:; |
251 |
base[1]= Cnil; |
base[1]= Cnil; |
252 |
base[2]= VV[3]; |
base[2]= VV[3]; |
256 |
vs_top=sup; |
vs_top=sup; |
257 |
V27= vs_base[0]; |
V27= vs_base[0]; |
258 |
V1= make_cons(V27,(V1)); |
V1= make_cons(V27,(V1)); |
259 |
|
goto T101; |
260 |
T101:; |
T101:; |
261 |
V17= cdr((V17)); |
V17= cdr((V17)); |
262 |
goto T86; |
goto T86; |
263 |
|
goto T87; |
264 |
T87:; |
T87:; |
265 |
goto T84; |
goto T84; |
266 |
|
goto T84; |
267 |
T84:; |
T84:; |
268 |
V22= one_plus((V22)); |
V22= one_plus((V22)); |
269 |
goto T78;}}} |
goto T78;}}} |
270 |
|
goto T61; |
271 |
T61:; |
T61:; |
272 |
goto T60; |
goto T60; |
273 |
|
goto T60; |
274 |
T60:; |
T60:; |
275 |
base[0]= Ct; |
base[0]= Ct; |
276 |
base[1]= VV[4]; |
base[1]= VV[4]; |
279 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
280 |
(void) (*Lnk0)(); |
(void) (*Lnk0)(); |
281 |
return;} |
return;} |
282 |
|
goto T2; |
283 |
T2:; |
T2:; |
284 |
base[0]= Cnil; |
base[0]= Cnil; |
285 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
286 |
return; |
return; |
287 |
} |
} |
288 |
static LnkT0(){ call_or_link(VV[0],&Lnk0);} /* READLINE-INIT */ |
static void LnkT0(){ call_or_link(VV[0],(void **)&Lnk0);} /* READLINE-INIT */ |
289 |
static LnkT5(){ call_or_link(VV[5],&Lnk5);} /* PACKAGE-SIZE */ |
static void LnkT5(){ call_or_link(VV[5],(void **)&Lnk5);} /* PACKAGE-SIZE */ |
290 |
|
|
291 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
292 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |