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 |
|
lsp_init("../lsp/gcl_mislib.lsp"); |
82 |
lsp_init("../lsp/gcl_predlib.lsp"); |
lsp_init("../lsp/gcl_predlib.lsp"); |
83 |
lsp_init("../lsp/gcl_setf.lsp"); |
lsp_init("../lsp/gcl_setf.lsp"); |
84 |
lsp_init("../lsp/gcl_arraylib.lsp"); |
lsp_init("../lsp/gcl_arraylib.lsp"); |
85 |
|
|
86 |
|
lsp_init("../lsp/gcl_seq.lsp"); |
87 |
|
lsp_init("../lsp/gcl_seqlib.lsp"); |
88 |
|
lsp_init("../lsp/gcl_numlib.lsp"); |
89 |
|
|
90 |
lsp_init("../lsp/gcl_assert.lsp"); |
lsp_init("../lsp/gcl_assert.lsp"); |
91 |
lsp_init("../lsp/gcl_defstruct.lsp"); |
lsp_init("../lsp/gcl_defstruct.lsp"); |
92 |
lsp_init("../lsp/gcl_describe.lsp"); |
lsp_init("../lsp/gcl_describe.lsp"); |
95 |
#endif |
#endif |
96 |
lsp_init("../lsp/gcl_iolib.lsp"); |
lsp_init("../lsp/gcl_iolib.lsp"); |
97 |
lsp_init("../lsp/gcl_listlib.lsp"); |
lsp_init("../lsp/gcl_listlib.lsp"); |
98 |
lsp_init("../lsp/gcl_mislib.lsp"); |
/* lsp_init("../lsp/gcl_mislib.lsp"); */ |
99 |
lsp_init("../lsp/gcl_numlib.lsp"); |
/* lsp_init("../lsp/gcl_numlib.lsp"); */ |
100 |
lsp_init("../lsp/gcl_packlib.lsp"); |
lsp_init("../lsp/gcl_packlib.lsp"); |
101 |
lsp_init("../lsp/gcl_seq.lsp"); |
/* lsp_init("../lsp/gcl_seq.lsp"); */ |
102 |
lsp_init("../lsp/gcl_seqlib.lsp"); |
/* lsp_init("../lsp/gcl_seqlib.lsp"); */ |
103 |
lsp_init("../lsp/gcl_trace.lsp"); |
lsp_init("../lsp/gcl_trace.lsp"); |
104 |
lsp_init("../lsp/gcl_sloop.lsp"); |
lsp_init("../lsp/gcl_sloop.lsp"); |
105 |
lsp_init("../lsp/gcl_serror.lsp"); |
lsp_init("../lsp/gcl_serror.lsp"); |