5 |
extern object user_init(); |
extern object user_init(); |
6 |
|
|
7 |
|
|
8 |
void init_or_load1 (void (*)(void),char *); |
void gcl_init_or_load1 (void (*)(void),char *); |
9 |
#define init_or_load(fn,file) do {extern void fn(void); init_or_load1(fn,file);} \ |
#define init_or_load(fn,file) do {extern void fn(void); gcl_init_or_load1(fn,file);} \ |
10 |
while(0) |
while(0) |
11 |
|
|
12 |
#define mjoin(a,b) a ## b |
#define mjoin(a,b) a ## b |
55 |
} while(0) |
} while(0) |
56 |
|
|
57 |
void |
void |
58 |
init_init() |
gcl_init_init() |
59 |
{ |
{ |
60 |
|
|
61 |
build_symbol_table(); |
build_symbol_table(); |
62 |
|
|
63 |
lsp_init("../lsp/export.lsp"); |
lsp_init("../lsp/gcl_export.lsp"); |
64 |
|
|
65 |
ar_init(defmacro); |
ar_init(gcl_defmacro); |
66 |
ar_init(evalmacros); |
ar_init(gcl_evalmacros); |
67 |
ar_init(top); |
ar_init(gcl_top); |
68 |
ar_init(module); |
ar_init(gcl_module); |
69 |
|
|
70 |
lsp_init("../lsp/autoload.lsp"); |
lsp_init("../lsp/gcl_autoload.lsp"); |
71 |
|
|
72 |
} |
} |
73 |
|
|
74 |
void |
void |
75 |
init_system(object no_init) |
gcl_init_system(object no_init) |
76 |
{ |
{ |
77 |
|
|
78 |
if (type_of(no_init)!=t_symbol) |
if (type_of(no_init)!=t_symbol) |
79 |
error("Supplied no_init is not of type symbol\n"); |
error("Supplied no_init is not of type symbol\n"); |
80 |
|
|
81 |
ar_check_init(predlib,no_init); |
ar_check_init(gcl_predlib,no_init); |
82 |
ar_check_init(setf,no_init); |
ar_check_init(gcl_setf,no_init); |
83 |
ar_check_init(arraylib,no_init); |
ar_check_init(gcl_arraylib,no_init); |
84 |
ar_check_init(assert,no_init); |
ar_check_init(gcl_assert,no_init); |
85 |
ar_check_init(defstruct,no_init); |
ar_check_init(gcl_defstruct,no_init); |
86 |
ar_check_init(describe,no_init); |
ar_check_init(gcl_describe,no_init); |
87 |
ar_check_init(iolib,no_init); |
ar_check_init(gcl_iolib,no_init); |
88 |
ar_check_init(listlib,no_init); |
ar_check_init(gcl_listlib,no_init); |
89 |
ar_check_init(mislib,no_init); |
ar_check_init(gcl_mislib,no_init); |
90 |
ar_check_init(numlib,no_init); |
ar_check_init(gcl_numlib,no_init); |
91 |
ar_check_init(packlib,no_init); |
ar_check_init(gcl_packlib,no_init); |
92 |
ar_check_init(seq,no_init); |
ar_check_init(gcl_seq,no_init); |
93 |
ar_check_init(seqlib,no_init); |
ar_check_init(gcl_seqlib,no_init); |
94 |
ar_check_init(trace,no_init); |
ar_check_init(gcl_trace,no_init); |
95 |
ar_check_init(sloop,no_init); |
ar_check_init(gcl_sloop,no_init); |
96 |
ar_check_init(serror,no_init); |
ar_check_init(gcl_serror,no_init); |
97 |
ar_check_init(destructuring_bind,no_init); |
ar_check_init(gcl_destructuring_bind,no_init); |
98 |
ar_check_init(loop,no_init); |
ar_check_init(gcl_loop,no_init); |
99 |
ar_check_init(defpackage,no_init); |
ar_check_init(gcl_defpackage,no_init); |
100 |
ar_check_init(make_defpackage,no_init); |
ar_check_init(gcl_make_defpackage,no_init); |
101 |
|
|
102 |
|
|
103 |
ar_check_init(cmpinline,no_init); |
ar_check_init(gcl_cmpinline,no_init); |
104 |
ar_check_init(cmputil,no_init); |
ar_check_init(gcl_cmputil,no_init); |
105 |
|
|
106 |
ar_check_init(debug,no_init); |
ar_check_init(gcl_debug,no_init); |
107 |
ar_check_init(info,no_init); |
ar_check_init(gcl_info,no_init); |
108 |
|
|
109 |
ar_check_init(cmptype,no_init); |
ar_check_init(gcl_cmptype,no_init); |
110 |
ar_check_init(cmpbind,no_init); |
ar_check_init(gcl_cmpbind,no_init); |
111 |
ar_check_init(cmpblock,no_init); |
ar_check_init(gcl_cmpblock,no_init); |
112 |
ar_check_init(cmpcall,no_init); |
ar_check_init(gcl_cmpcall,no_init); |
113 |
ar_check_init(cmpcatch,no_init); |
ar_check_init(gcl_cmpcatch,no_init); |
114 |
ar_check_init(cmpenv,no_init); |
ar_check_init(gcl_cmpenv,no_init); |
115 |
ar_check_init(cmpeval,no_init); |
ar_check_init(gcl_cmpeval,no_init); |
116 |
ar_check_init(cmpflet,no_init); |
ar_check_init(gcl_cmpflet,no_init); |
117 |
ar_check_init(cmpfun,no_init); |
ar_check_init(gcl_cmpfun,no_init); |
118 |
ar_check_init(cmpif,no_init); |
ar_check_init(gcl_cmpif,no_init); |
119 |
ar_check_init(cmplabel,no_init); |
ar_check_init(gcl_cmplabel,no_init); |
120 |
ar_check_init(cmplam,no_init); |
ar_check_init(gcl_cmplam,no_init); |
121 |
ar_check_init(cmplet,no_init); |
ar_check_init(gcl_cmplet,no_init); |
122 |
ar_check_init(cmploc,no_init); |
ar_check_init(gcl_cmploc,no_init); |
123 |
ar_check_init(cmpmap,no_init); |
ar_check_init(gcl_cmpmap,no_init); |
124 |
ar_check_init(cmpmulti,no_init); |
ar_check_init(gcl_cmpmulti,no_init); |
125 |
ar_check_init(cmpspecial,no_init); |
ar_check_init(gcl_cmpspecial,no_init); |
126 |
ar_check_init(cmptag,no_init); |
ar_check_init(gcl_cmptag,no_init); |
127 |
ar_check_init(cmptop,no_init); |
ar_check_init(gcl_cmptop,no_init); |
128 |
ar_check_init(cmpvar,no_init); |
ar_check_init(gcl_cmpvar,no_init); |
129 |
ar_check_init(cmpvs,no_init); |
ar_check_init(gcl_cmpvs,no_init); |
130 |
ar_check_init(cmpwt,no_init); |
ar_check_init(gcl_cmpwt,no_init); |
131 |
|
|
132 |
ar_check_init(pcl_pkg,no_init); |
ar_check_init(pcl_pkg,no_init); |
133 |
ar_check_init(pcl_walk,no_init); |
ar_check_init(pcl_walk,no_init); |
180 |
static int ngazonk; |
static int ngazonk; |
181 |
|
|
182 |
int |
int |
183 |
init_cmp_anon(void) { |
gcl_init_cmp_anon(void) { |
184 |
|
|
185 |
int i=0; |
int i=0; |
186 |
|
|