/[gcl]/gcl/unixport/sys_pcl_gcl.c
ViewVC logotype

Diff of /gcl/unixport/sys_pcl_gcl.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by mjthomas, Wed Aug 4 05:27:48 2004 UTC revision 1.9 by camm, Sat May 7 02:52:33 2005 UTC
# Line 22  void gcl_init_or_load1 (void (*)(void),c Line 22  void gcl_init_or_load1 (void (*)(void),c
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)
# Line 136  gcl_init_system(object no_init) Line 136  gcl_init_system(object no_init)
136    lsp_init("../clcs/package.lisp");    lsp_init("../clcs/package.lisp");
137    lsp_init("../clcs/myload1.lisp");    lsp_init("../clcs/myload1.lisp");
138    
139    ar_check_init(pcl_pkg,no_init);    ar_check_init(gcl_pcl_pkg,no_init);
140    ar_check_init(pcl_walk,no_init);    ar_check_init(gcl_pcl_walk,no_init);
141    ar_check_init(pcl_iterate,no_init);    ar_check_init(gcl_pcl_iterate,no_init);
142    ar_check_init(pcl_macros,no_init);    ar_check_init(gcl_pcl_macros,no_init);
143    ar_check_init(pcl_low,no_init);    ar_check_init(gcl_pcl_low,no_init);
144    ar_check_init(pcl_gcl_low,no_init);    ar_check_init(gcl_pcl_impl_low,no_init);
145    ar_check_init(pcl_fin,no_init);    ar_check_init(gcl_pcl_fin,no_init);
146    ar_check_init(pcl_defclass,no_init);    ar_check_init(gcl_pcl_defclass,no_init);
147    ar_check_init(pcl_defs,no_init);    ar_check_init(gcl_pcl_defs,no_init);
148    ar_check_init(pcl_fngen,no_init);    ar_check_init(gcl_pcl_fngen,no_init);
149    ar_check_init(pcl_cache,no_init);    ar_check_init(gcl_pcl_cache,no_init);
150    ar_check_init(pcl_dlisp,no_init);    ar_check_init(gcl_pcl_dlisp,no_init);
151    ar_check_init(pcl_dlisp2,no_init);    ar_check_init(gcl_pcl_dlisp2,no_init);
152    ar_check_init(pcl_boot,no_init);    ar_check_init(gcl_pcl_boot,no_init);
153    ar_check_init(pcl_vector,no_init);    ar_check_init(gcl_pcl_vector,no_init);
154    ar_check_init(pcl_slots_boot,no_init);    ar_check_init(gcl_pcl_slots_boot,no_init);
155    ar_check_init(pcl_combin,no_init);    ar_check_init(gcl_pcl_combin,no_init);
156    ar_check_init(pcl_dfun,no_init);    ar_check_init(gcl_pcl_dfun,no_init);
157    ar_check_init(pcl_fast_init,no_init);    ar_check_init(gcl_pcl_fast_init,no_init);
158    ar_check_init(pcl_braid,no_init);    ar_check_init(gcl_pcl_braid,no_init);
159    ar_check_init(pcl_generic_functions,no_init);    ar_check_init(gcl_pcl_generic_functions,no_init);
160    ar_check_init(pcl_slots,no_init);    ar_check_init(gcl_pcl_slots,no_init);
161    ar_check_init(pcl_init,no_init);    ar_check_init(gcl_pcl_init,no_init);
162    ar_check_init(pcl_std_class,no_init);    ar_check_init(gcl_pcl_std_class,no_init);
163    ar_check_init(pcl_cpl,no_init);    ar_check_init(gcl_pcl_cpl,no_init);
164    ar_check_init(pcl_fsc,no_init);    ar_check_init(gcl_pcl_fsc,no_init);
165    ar_check_init(pcl_methods,no_init);    ar_check_init(gcl_pcl_methods,no_init);
166    ar_check_init(pcl_fixup,no_init);    ar_check_init(gcl_pcl_fixup,no_init);
167    ar_check_init(pcl_defcombin,no_init);    ar_check_init(gcl_pcl_defcombin,no_init);
168    ar_check_init(pcl_ctypes,no_init);    ar_check_init(gcl_pcl_ctypes,no_init);
169    ar_check_init(pcl_env,no_init);    ar_check_init(gcl_pcl_env,no_init);
170    ar_check_init(pcl_compat,no_init);    ar_check_init(gcl_pcl_compat,no_init);
171    ar_check_init(pcl_precom1,no_init);    ar_check_init(gcl_pcl_precom1,no_init);
172    ar_check_init(pcl_precom2,no_init);    ar_check_init(gcl_pcl_precom2,no_init);
173    
174  }  }
175    
# Line 182  gcl_init_cmp_anon(void) { Line 182  gcl_init_cmp_anon(void) {
182    
183    switch(ngazonk++) {    switch(ngazonk++) {
184    case 0:    case 0:
185      ar_check_init(pcl_gazonk0,Cnil);      ar_check_init(gcl_pcl_gazonk0,Cnil);
186      break;      break;
187    case 1:    case 1:
188      ar_check_init(pcl_gazonk1,Cnil);      ar_check_init(gcl_pcl_gazonk1,Cnil);
189      break;      break;
190    case 2:    case 2:
191      ar_check_init(pcl_gazonk2,Cnil);      ar_check_init(gcl_pcl_gazonk2,Cnil);
192      break;      break;
193    case 3:    case 3:
194      ar_check_init(pcl_gazonk3,Cnil);      ar_check_init(gcl_pcl_gazonk3,Cnil);
195      break;      break;
196    case 4:    case 4:
197      ar_check_init(pcl_gazonk4,Cnil);      ar_check_init(gcl_pcl_gazonk4,Cnil);
198      break;      break;
199    case 5:    case 5:
200      ar_check_init(pcl_gazonk5,Cnil);      ar_check_init(gcl_pcl_gazonk5,Cnil);
201      break;      break;
202    case 6:    case 6:
203      ar_check_init(pcl_gazonk6,Cnil);      ar_check_init(gcl_pcl_gazonk6,Cnil);
204      break;      break;
205    case 7:    case 7:
206      ar_check_init(pcl_gazonk7,Cnil);      ar_check_init(gcl_pcl_gazonk7,Cnil);
207      break;      break;
208    case 8:    case 8:
209      ar_check_init(pcl_gazonk8,Cnil);      ar_check_init(gcl_pcl_gazonk8,Cnil);
210      i=1;      i=1;
211      break;      break;
212    default:    default:

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26