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 |
ar_check_init(clcs_precom,no_init); |
ar_check_init(gcl_clcs_precom,no_init); |
171 |
ar_check_init(clcs_macros,no_init); |
ar_check_init(gcl_clcs_macros,no_init); |
172 |
ar_check_init(clcs_restart,no_init); |
ar_check_init(gcl_clcs_restart,no_init); |
173 |
ar_check_init(clcs_handler,no_init); |
ar_check_init(gcl_clcs_handler,no_init); |
174 |
ar_check_init(clcs_debugger,no_init); |
ar_check_init(gcl_clcs_debugger,no_init); |
175 |
ar_check_init(clcs_conditions,no_init); |
ar_check_init(gcl_clcs_conditions,no_init); |
176 |
ar_check_init(clcs_condition_definitions,no_init); |
ar_check_init(gcl_clcs_condition_definitions,no_init); |
177 |
ar_check_init(clcs_kcl_cond,no_init); |
ar_check_init(gcl_clcs_kcl_cond,no_init); |
178 |
ar_check_init(clcs_top_patches,no_init); |
ar_check_init(gcl_clcs_top_patches,no_init); |
179 |
ar_check_init(clcs_install,no_init); |
ar_check_init(gcl_clcs_install,no_init); |
180 |
|
|
181 |
} |
} |
182 |
|
|
189 |
|
|
190 |
switch(ngazonk++) { |
switch(ngazonk++) { |
191 |
case 0: |
case 0: |
192 |
ar_check_init(pcl_gazonk0,Cnil); |
ar_check_init(gcl_pcl_gazonk0,Cnil); |
193 |
break; |
break; |
194 |
case 1: |
case 1: |
195 |
ar_check_init(pcl_gazonk1,Cnil); |
ar_check_init(gcl_pcl_gazonk1,Cnil); |
196 |
break; |
break; |
197 |
case 2: |
case 2: |
198 |
ar_check_init(pcl_gazonk2,Cnil); |
ar_check_init(gcl_pcl_gazonk2,Cnil); |
199 |
break; |
break; |
200 |
case 3: |
case 3: |
201 |
ar_check_init(pcl_gazonk3,Cnil); |
ar_check_init(gcl_pcl_gazonk3,Cnil); |
202 |
break; |
break; |
203 |
case 4: |
case 4: |
204 |
ar_check_init(pcl_gazonk4,Cnil); |
ar_check_init(gcl_pcl_gazonk4,Cnil); |
205 |
break; |
break; |
206 |
case 5: |
case 5: |
207 |
ar_check_init(pcl_gazonk5,Cnil); |
ar_check_init(gcl_pcl_gazonk5,Cnil); |
208 |
break; |
break; |
209 |
case 6: |
case 6: |
210 |
ar_check_init(pcl_gazonk6,Cnil); |
ar_check_init(gcl_pcl_gazonk6,Cnil); |
211 |
break; |
break; |
212 |
case 7: |
case 7: |
213 |
ar_check_init(pcl_gazonk7,Cnil); |
ar_check_init(gcl_pcl_gazonk7,Cnil); |
214 |
i=1; |
i=1; |
215 |
break; |
break; |
216 |
default: |
default: |