1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
#define FLAVOR ""
#include "sys.c"
void
gcl_init_init() {
build_symbol_table();
lsp_init("../lsp/gcl_export.lsp");
ar_init(gcl_defmacro);
ar_init(gcl_evalmacros);
ar_init(gcl_top);
ar_init(gcl_module);
lsp_init("../lsp/gcl_autoload.lsp");
}
void
gcl_init_system(object no_init) {
if (type_of(no_init)!=t_symbol)
error("Supplied no_init is not of type symbol\n");
ar_check_init(gcl_predlib,no_init);
ar_check_init(gcl_setf,no_init);
ar_check_init(gcl_arraylib,no_init);
ar_check_init(gcl_assert,no_init);
ar_check_init(gcl_defstruct,no_init);
ar_check_init(gcl_describe,no_init);
#ifdef HAVE_JAPI_H
ar_check_init(gcl_japi,no_init);
#endif
ar_check_init(gcl_iolib,no_init);
ar_check_init(gcl_listlib,no_init);
ar_check_init(gcl_mislib,no_init);
ar_check_init(gcl_numlib,no_init);
ar_check_init(gcl_packlib,no_init);
ar_check_init(gcl_seq,no_init);
ar_check_init(gcl_seqlib,no_init);
ar_check_init(gcl_trace,no_init);
ar_check_init(gcl_sloop,no_init);
ar_check_init(gcl_serror,no_init);
ar_check_init(gcl_destructuring_bind,no_init);
ar_check_init(gcl_loop,no_init);
ar_check_init(gcl_defpackage,no_init);
ar_check_init(gcl_make_defpackage,no_init);
ar_check_init(gcl_cmpinline,no_init);
ar_check_init(gcl_cmputil,no_init);
ar_check_init(gcl_debug,no_init);
ar_check_init(gcl_info,no_init);
ar_check_init(gcl_cmptype,no_init);
ar_check_init(gcl_cmpbind,no_init);
ar_check_init(gcl_cmpblock,no_init);
ar_check_init(gcl_cmpcall,no_init);
ar_check_init(gcl_cmpcatch,no_init);
ar_check_init(gcl_cmpenv,no_init);
ar_check_init(gcl_cmpeval,no_init);
ar_check_init(gcl_cmpflet,no_init);
ar_check_init(gcl_cmpfun,no_init);
ar_check_init(gcl_cmpif,no_init);
ar_check_init(gcl_cmplabel,no_init);
ar_check_init(gcl_cmplam,no_init);
ar_check_init(gcl_cmplet,no_init);
ar_check_init(gcl_cmploc,no_init);
ar_check_init(gcl_cmpmap,no_init);
ar_check_init(gcl_cmpmulti,no_init);
ar_check_init(gcl_cmpspecial,no_init);
ar_check_init(gcl_cmptag,no_init);
ar_check_init(gcl_cmptop,no_init);
ar_check_init(gcl_cmpvar,no_init);
ar_check_init(gcl_cmpvs,no_init);
ar_check_init(gcl_cmpwt,no_init);
ar_check_init(gcl_cmpmain,no_init);
#ifdef HAVE_XGCL
lsp_init("../xgcl-2/sysdef.lisp");
ar_check_init(gcl_Xlib,no_init);
ar_check_init(gcl_Xutil,no_init);
ar_check_init(gcl_X,no_init);
ar_check_init(gcl_XAtom,no_init);
ar_check_init(gcl_defentry_events,no_init);
ar_check_init(gcl_Xstruct,no_init);
ar_check_init(gcl_XStruct_l_3,no_init);
ar_check_init(gcl_general,no_init);
ar_check_init(gcl_keysymdef,no_init);
ar_check_init(gcl_X10,no_init);
ar_check_init(gcl_Xinit,no_init);
ar_check_init(gcl_dwtrans,no_init);
ar_check_init(gcl_tohtml,no_init);
ar_check_init(gcl_index,no_init);
#endif
}
int
gcl_init_cmp_anon(void) {
return 1;
}
|
