22 |
error("Cannot unpack module " #a "o\n");\ |
error("Cannot unpack module " #a "o\n");\ |
23 |
if (system(b)) \ |
if (system(b)) \ |
24 |
error("Cannot run ar command to unpack module " #a ".o\n");\ |
error("Cannot run ar command to unpack module " #a ".o\n");\ |
25 |
init_or_load(Mjoin(init_,a),#a ".o");\ |
init_or_load(Mjoin(init_,Mjoin(a,_o)),#a ".o");\ |
26 |
if (unlink(#a ".o"))\ |
if (unlink(#a ".o"))\ |
27 |
error("Cannot unlink " #a ".o\n");\ |
error("Cannot unlink " #a ".o\n");\ |
28 |
} while(0) |
} while(0) |
132 |
ar_check_init(gcl_cmpvs,no_init); |
ar_check_init(gcl_cmpvs,no_init); |
133 |
ar_check_init(gcl_cmpwt,no_init); |
ar_check_init(gcl_cmpwt,no_init); |
134 |
|
|
135 |
ar_check_init(pcl_pkg,no_init); |
ar_check_init(gcl_pcl_pkg,no_init); |
136 |
ar_check_init(pcl_walk,no_init); |
ar_check_init(gcl_pcl_walk,no_init); |
137 |
ar_check_init(pcl_iterate,no_init); |
ar_check_init(gcl_pcl_iterate,no_init); |
138 |
ar_check_init(pcl_macros,no_init); |
ar_check_init(gcl_pcl_macros,no_init); |
139 |
ar_check_init(pcl_low,no_init); |
ar_check_init(gcl_pcl_low,no_init); |
140 |
ar_check_init(pcl_gcl_low,no_init); |
ar_check_init(gcl_pcl_impl_low,no_init); |
141 |
ar_check_init(pcl_fin,no_init); |
ar_check_init(gcl_pcl_fin,no_init); |
142 |
ar_check_init(pcl_defclass,no_init); |
ar_check_init(gcl_pcl_defclass,no_init); |
143 |
ar_check_init(pcl_defs,no_init); |
ar_check_init(gcl_pcl_defs,no_init); |
144 |
ar_check_init(pcl_fngen,no_init); |
ar_check_init(gcl_pcl_fngen,no_init); |
145 |
ar_check_init(pcl_cache,no_init); |
ar_check_init(gcl_pcl_cache,no_init); |
146 |
ar_check_init(pcl_dlisp,no_init); |
ar_check_init(gcl_pcl_dlisp,no_init); |
147 |
ar_check_init(pcl_dlisp2,no_init); |
ar_check_init(gcl_pcl_dlisp2,no_init); |
148 |
ar_check_init(pcl_boot,no_init); |
ar_check_init(gcl_pcl_boot,no_init); |
149 |
ar_check_init(pcl_vector,no_init); |
ar_check_init(gcl_pcl_vector,no_init); |
150 |
ar_check_init(pcl_slots_boot,no_init); |
ar_check_init(gcl_pcl_slots_boot,no_init); |
151 |
ar_check_init(pcl_combin,no_init); |
ar_check_init(gcl_pcl_combin,no_init); |
152 |
ar_check_init(pcl_dfun,no_init); |
ar_check_init(gcl_pcl_dfun,no_init); |
153 |
ar_check_init(pcl_fast_init,no_init); |
ar_check_init(gcl_pcl_fast_init,no_init); |
154 |
ar_check_init(pcl_braid,no_init); |
ar_check_init(gcl_pcl_braid,no_init); |
155 |
ar_check_init(pcl_generic_functions,no_init); |
ar_check_init(gcl_pcl_generic_functions,no_init); |
156 |
ar_check_init(pcl_slots,no_init); |
ar_check_init(gcl_pcl_slots,no_init); |
157 |
ar_check_init(pcl_init,no_init); |
ar_check_init(gcl_pcl_init,no_init); |
158 |
ar_check_init(pcl_std_class,no_init); |
ar_check_init(gcl_pcl_std_class,no_init); |
159 |
ar_check_init(pcl_cpl,no_init); |
ar_check_init(gcl_pcl_cpl,no_init); |
160 |
ar_check_init(pcl_fsc,no_init); |
ar_check_init(gcl_pcl_fsc,no_init); |
161 |
ar_check_init(pcl_methods,no_init); |
ar_check_init(gcl_pcl_methods,no_init); |
162 |
ar_check_init(pcl_fixup,no_init); |
ar_check_init(gcl_pcl_fixup,no_init); |
163 |
ar_check_init(pcl_defcombin,no_init); |
ar_check_init(gcl_pcl_defcombin,no_init); |
164 |
ar_check_init(pcl_ctypes,no_init); |
ar_check_init(gcl_pcl_ctypes,no_init); |
165 |
ar_check_init(pcl_env,no_init); |
ar_check_init(gcl_pcl_env,no_init); |
166 |
ar_check_init(pcl_compat,no_init); |
ar_check_init(gcl_pcl_compat,no_init); |
167 |
ar_check_init(pcl_precom1,no_init); |
ar_check_init(gcl_pcl_precom1,no_init); |
168 |
ar_check_init(pcl_precom2,no_init); |
ar_check_init(gcl_pcl_precom2,no_init); |
169 |
|
|
170 |
} |
} |
171 |
|
|
178 |
|
|
179 |
switch(ngazonk++) { |
switch(ngazonk++) { |
180 |
case 0: |
case 0: |
181 |
ar_check_init(pcl_gazonk0,Cnil); |
ar_check_init(gcl_pcl_gazonk0,Cnil); |
182 |
break; |
break; |
183 |
case 1: |
case 1: |
184 |
ar_check_init(pcl_gazonk1,Cnil); |
ar_check_init(gcl_pcl_gazonk1,Cnil); |
185 |
break; |
break; |
186 |
case 2: |
case 2: |
187 |
ar_check_init(pcl_gazonk2,Cnil); |
ar_check_init(gcl_pcl_gazonk2,Cnil); |
188 |
break; |
break; |
189 |
case 3: |
case 3: |
190 |
ar_check_init(pcl_gazonk3,Cnil); |
ar_check_init(gcl_pcl_gazonk3,Cnil); |
191 |
break; |
break; |
192 |
case 4: |
case 4: |
193 |
ar_check_init(pcl_gazonk4,Cnil); |
ar_check_init(gcl_pcl_gazonk4,Cnil); |
194 |
break; |
break; |
195 |
case 5: |
case 5: |
196 |
ar_check_init(pcl_gazonk5,Cnil); |
ar_check_init(gcl_pcl_gazonk5,Cnil); |
197 |
break; |
break; |
198 |
case 6: |
case 6: |
199 |
ar_check_init(pcl_gazonk6,Cnil); |
ar_check_init(gcl_pcl_gazonk6,Cnil); |
200 |
break; |
break; |
201 |
case 7: |
case 7: |
202 |
ar_check_init(pcl_gazonk7,Cnil); |
ar_check_init(gcl_pcl_gazonk7,Cnil); |
203 |
i=1; |
i=1; |
204 |
break; |
break; |
205 |
default: |
default: |