1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "module.h" |
#include "module.h" |
4 |
init_module(){do_init(VV);} |
void init_module(){do_init(VV);} |
5 |
/* local entry for function PROVIDE */ |
/* local entry for function PROVIDE */ |
6 |
|
|
7 |
static object LI1(V2) |
static object LI1(V2) |
8 |
|
|
9 |
object V2; |
object V2; |
10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
base[0]= coerce_to_string((V2)); |
base[0]= coerce_to_string((V2)); |
14 |
base[1]= symbol_value(VV[0]); |
base[1]= symbol_value(VV[0]); |
20 |
setq(VV[0],vs_base[0]); |
setq(VV[0],vs_base[0]); |
21 |
{object V3 = symbol_value(VV[0]); |
{object V3 = symbol_value(VV[0]); |
22 |
VMR1(V3)} |
VMR1(V3)} |
23 |
|
base[0]=base[0]; |
24 |
|
return Cnil; |
25 |
} |
} |
26 |
/* local entry for function REQUIRE */ |
/* local entry for function REQUIRE */ |
27 |
|
|
34 |
bds_check; |
bds_check; |
35 |
{object V5; |
{object V5; |
36 |
object V6; |
object V6; |
37 |
|
Vcs[0]=Vcs[0]; |
38 |
|
va_start(ap); |
39 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
40 |
V5= V4; |
V5= V4; |
41 |
narg = narg - 1; |
narg = narg - 1; |
42 |
if (narg <= 0) goto T6; |
if (narg <= 0) goto T6; |
43 |
else { |
else { |
|
va_start(ap); |
|
44 |
V6= va_arg(ap,object);} |
V6= va_arg(ap,object);} |
45 |
--narg; goto T7; |
--narg; goto T7; |
46 |
|
goto T6; |
47 |
T6:; |
T6:; |
48 |
base[0]= coerce_to_string((V5)); |
base[0]= coerce_to_string((V5)); |
49 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
50 |
Lstring_downcase(); |
Lstring_downcase(); |
51 |
vs_top=sup; |
vs_top=sup; |
52 |
V6= vs_base[0]; |
V6= vs_base[0]; |
53 |
|
goto T7; |
54 |
T7:; |
T7:; |
55 |
bds_bind(VV[2],VV[3]); |
bds_bind(VV[2],VV[3]); |
56 |
base[1]= coerce_to_string((V5)); |
base[1]= coerce_to_string((V5)); |
71 |
{object V7 = vs_base[0]; |
{object V7 = vs_base[0]; |
72 |
bds_unwind1; |
bds_unwind1; |
73 |
VMR2(V7)} |
VMR2(V7)} |
74 |
|
goto T18; |
75 |
T18:; |
T18:; |
76 |
{register object V8; |
{register object V8; |
77 |
V8= (V6); |
V8= (V6); |
78 |
|
goto T22; |
79 |
T22:; |
T22:; |
80 |
if(!(endp((V8)))){ |
if(!(endp((V8)))){ |
81 |
goto T23;} |
goto T23;} |
82 |
{object V9 = Cnil; |
{object V9 = Cnil; |
83 |
bds_unwind1; |
bds_unwind1; |
84 |
VMR2(V9)} |
VMR2(V9)} |
85 |
|
goto T23; |
86 |
T23:; |
T23:; |
87 |
base[1]= car((V8)); |
base[1]= car((V8)); |
88 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
90 |
vs_top=sup; |
vs_top=sup; |
91 |
V8= cdr((V8)); |
V8= cdr((V8)); |
92 |
goto T22;} |
goto T22;} |
93 |
|
goto T11; |
94 |
T11:; |
T11:; |
95 |
{object V10 = Cnil; |
{object V10 = Cnil; |
96 |
bds_unwind1; |
bds_unwind1; |
97 |
VMR2(V10)}} |
VMR2(V10)} |
98 |
|
va_end(ap); |
99 |
|
base[0]=base[0]; |
100 |
|
return Cnil;} |
101 |
} |
} |
102 |
/* local entry for function DOCUMENTATION */ |
/* local entry for function DOCUMENTATION */ |
103 |
|
|
105 |
|
|
106 |
register object V13;object V14; |
register object V13;object V14; |
107 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
108 |
|
goto TTL; |
109 |
TTL:; |
TTL:; |
110 |
{object V15= (V14); |
{object V15= (V14); |
111 |
if((V15!= VV[13]))goto T32; |
if((V15!= VV[13]))goto T32; |
112 |
{object V16 = get((V13),VV[4],Cnil); |
{object V16 = get((V13),VV[4],Cnil); |
113 |
VMR3(V16)} |
VMR3(V16)} |
114 |
|
goto T32; |
115 |
T32:; |
T32:; |
116 |
if((V15!= VV[14]))goto T33; |
if((V15!= VV[14]))goto T33; |
117 |
{object V17 = get((V13),VV[5],Cnil); |
{object V17 = get((V13),VV[5],Cnil); |
118 |
VMR3(V17)} |
VMR3(V17)} |
119 |
|
goto T33; |
120 |
T33:; |
T33:; |
121 |
if((V15!= VV[15]))goto T34; |
if((V15!= VV[15]))goto T34; |
122 |
{object V18 = get((V13),VV[6],Cnil); |
{object V18 = get((V13),VV[6],Cnil); |
123 |
VMR3(V18)} |
VMR3(V18)} |
124 |
|
goto T34; |
125 |
T34:; |
T34:; |
126 |
if((V15!= VV[16]))goto T35; |
if((V15!= VV[16]))goto T35; |
127 |
{object V19 = get((V13),VV[7],Cnil); |
{object V19 = get((V13),VV[7],Cnil); |
128 |
VMR3(V19)} |
VMR3(V19)} |
129 |
|
goto T35; |
130 |
T35:; |
T35:; |
131 |
if((V15!= VV[17]))goto T36; |
if((V15!= VV[17]))goto T36; |
132 |
{object V20 = get((V13),VV[8],Cnil); |
{object V20 = get((V13),VV[8],Cnil); |
133 |
VMR3(V20)} |
VMR3(V20)} |
134 |
|
goto T36; |
135 |
T36:; |
T36:; |
136 |
base[0]= VV[9]; |
base[0]= VV[9]; |
137 |
base[1]= (V14); |
base[1]= (V14); |
140 |
vs_top=sup; |
vs_top=sup; |
141 |
{object V21 = vs_base[0]; |
{object V21 = vs_base[0]; |
142 |
VMR3(V21)}} |
VMR3(V21)}} |
143 |
|
base[0]=base[0]; |
144 |
|
return Cnil; |
145 |
} |
} |
146 |
/* local entry for function FIND-DOCUMENTATION */ |
/* local entry for function FIND-DOCUMENTATION */ |
147 |
|
|
149 |
|
|
150 |
register object V23; |
register object V23; |
151 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
152 |
|
goto TTL; |
153 |
TTL:; |
TTL:; |
154 |
if(endp((V23))){ |
if(endp((V23))){ |
155 |
goto T39;} |
goto T39;} |
156 |
if(!(endp(cdr((V23))))){ |
if(!(endp(cdr((V23))))){ |
157 |
goto T40;} |
goto T40;} |
158 |
|
goto T39; |
159 |
T39:; |
T39:; |
160 |
{object V24 = Cnil; |
{object V24 = Cnil; |
161 |
VMR4(V24)} |
VMR4(V24)} |
162 |
|
goto T40; |
163 |
T40:; |
T40:; |
164 |
{register object V25; |
{register object V25; |
165 |
base[0]= car((V23)); |
base[0]= car((V23)); |
171 |
goto T47;} |
goto T47;} |
172 |
{object V26 = (V25); |
{object V26 = (V25); |
173 |
VMR4(V26)} |
VMR4(V26)} |
174 |
|
goto T47; |
175 |
T47:; |
T47:; |
176 |
if(!(type_of((V25))==t_cons)){ |
if(!(type_of((V25))==t_cons)){ |
177 |
goto T50;} |
goto T50;} |
179 |
goto T50;} |
goto T50;} |
180 |
V23= cdr((V23)); |
V23= cdr((V23)); |
181 |
goto TTL; |
goto TTL; |
182 |
|
goto T50; |
183 |
T50:; |
T50:; |
184 |
{object V27 = Cnil; |
{object V27 = Cnil; |
185 |
VMR4(V27)}} |
VMR4(V27)}} |
186 |
|
base[0]=base[0]; |
187 |
|
return Cnil; |
188 |
} |
} |
189 |
static LnkT12(){ call_or_link(VV[12],&Lnk12);} /* LOAD */ |
static void LnkT12(){ call_or_link(VV[12],(void **)&Lnk12);} /* LOAD */ |
190 |
|
|
191 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
192 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |