251 |
saving_system = FALSE; |
saving_system = FALSE; |
252 |
terminal_io->sm.sm_object0->sm.sm_fp = stdin; |
terminal_io->sm.sm_object0->sm.sm_fp = stdin; |
253 |
terminal_io->sm.sm_object1->sm.sm_fp = stdout; |
terminal_io->sm.sm_object1->sm.sm_fp = stdout; |
254 |
init_big1(); |
gcl_init_big1(); |
255 |
#ifdef INIT_CORE_END |
#ifdef INIT_CORE_END |
256 |
INIT_CORE_END |
INIT_CORE_END |
257 |
#endif |
#endif |
278 |
ovm_process_created = 1; |
ovm_process_created = 1; |
279 |
#endif |
#endif |
280 |
#ifdef HAVE_READLINE |
#ifdef HAVE_READLINE |
281 |
init_readline_function(); |
gcl_init_readline_function(); |
282 |
#endif |
#endif |
283 |
again: |
again: |
284 |
super_funcall(sStop_level); |
super_funcall(sStop_level); |
309 |
|
|
310 |
CMPtemp = CMPtemp1 = CMPtemp2 = CMPtemp3 = OBJNULL; |
CMPtemp = CMPtemp1 = CMPtemp2 = CMPtemp3 = OBJNULL; |
311 |
|
|
312 |
init_init(); |
gcl_init_init(); |
313 |
|
|
314 |
sLApackageA->s.s_dbind = user_package; |
sLApackageA->s.s_dbind = user_package; |
315 |
|
|
368 |
error("NULL_OR_ON_C_STACK macro invalid"); |
error("NULL_OR_ON_C_STACK macro invalid"); |
369 |
} |
} |
370 |
|
|
371 |
init_alloc(); |
gcl_init_alloc(); |
372 |
|
|
373 |
Dotnil_body.t = (short)t_symbol; |
Dotnil_body.t = (short)t_symbol; |
374 |
Dotnil_body.s_dbind = Dotnil; |
Dotnil_body.s_dbind = Dotnil; |
403 |
Ct_body.s_stype = (short)stp_constant; |
Ct_body.s_stype = (short)stp_constant; |
404 |
Ct_body.s_mflag = FALSE; |
Ct_body.s_mflag = FALSE; |
405 |
|
|
406 |
init_symbol(); |
gcl_init_symbol(); |
407 |
|
|
408 |
init_package(); |
gcl_init_package(); |
409 |
|
|
410 |
Cnil->s.s_hpack = lisp_package; |
Cnil->s.s_hpack = lisp_package; |
411 |
import(Cnil, lisp_package); |
import(Cnil, lisp_package); |
435 |
|
|
436 |
|
|
437 |
NewInit(); |
NewInit(); |
438 |
init_typespec(); |
gcl_init_typespec(); |
439 |
init_number(); |
gcl_init_number(); |
440 |
init_character(); |
gcl_init_character(); |
441 |
|
|
442 |
init_read(); |
gcl_init_read(); |
443 |
init_bind(); |
gcl_init_bind(); |
444 |
init_pathname(); |
gcl_init_pathname(); |
445 |
init_print(); |
gcl_init_print(); |
446 |
init_GBC(); |
gcl_init_GBC(); |
447 |
|
|
448 |
#if defined ( UNIX ) || defined ( __MINGW32__ ) |
#if defined ( UNIX ) || defined ( __MINGW32__ ) |
449 |
# ifndef DGUX |
# ifndef DGUX |
450 |
init_unixfasl(); |
gcl_init_unixfasl(); |
451 |
init_unixsys(); |
gcl_init_unixsys(); |
452 |
init_unixsave(); |
gcl_init_unixsave(); |
453 |
# else |
# else |
454 |
|
|
455 |
|
|
457 |
# endif |
# endif |
458 |
#endif /* defined ( UNIX ) || defined ( __MINGW32__ ) */ |
#endif /* defined ( UNIX ) || defined ( __MINGW32__ ) */ |
459 |
|
|
460 |
init_alloc_function(); |
gcl_init_alloc_function(); |
461 |
init_array_function(); |
gcl_init_array_function(); |
462 |
init_character_function(); |
gcl_init_character_function(); |
463 |
init_file_function(); |
gcl_init_file_function(); |
464 |
init_list_function(); |
gcl_init_list_function(); |
465 |
init_package_function(); |
gcl_init_package_function(); |
466 |
init_pathname_function(); |
gcl_init_pathname_function(); |
467 |
init_predicate_function(); |
gcl_init_predicate_function(); |
468 |
init_print_function(); |
gcl_init_print_function(); |
469 |
init_read_function(); |
gcl_init_read_function(); |
470 |
init_sequence_function(); |
gcl_init_sequence_function(); |
471 |
#if defined(KCLOVM) || defined(RUN_PROCESS) |
#if defined(KCLOVM) || defined(RUN_PROCESS) |
472 |
init_socket_function(); |
gcl_init_socket_function(); |
473 |
#endif |
#endif |
474 |
init_structure_function(); |
gcl_init_structure_function(); |
475 |
init_string_function(); |
gcl_init_string_function(); |
476 |
init_symbol_function(); |
gcl_init_symbol_function(); |
477 |
init_typespec_function(); |
gcl_init_typespec_function(); |
478 |
init_hash(); |
gcl_init_hash(); |
479 |
init_cfun(); |
gcl_init_cfun(); |
480 |
|
|
481 |
#ifdef UNIX |
#ifdef UNIX |
482 |
init_unixfsys(); |
gcl_init_unixfsys(); |
483 |
init_unixtime(); |
gcl_init_unixtime(); |
484 |
#endif |
#endif |
485 |
init_eval(); |
gcl_init_eval(); |
486 |
init_lex(); |
gcl_init_lex(); |
487 |
init_prog(); |
gcl_init_prog(); |
488 |
init_catch(); |
gcl_init_catch(); |
489 |
init_block(); |
gcl_init_block(); |
490 |
init_macros(); |
gcl_init_macros(); |
491 |
init_conditional(); |
gcl_init_conditional(); |
492 |
init_reference(); |
gcl_init_reference(); |
493 |
init_assignment(); |
gcl_init_assignment(); |
494 |
init_multival(); |
gcl_init_multival(); |
495 |
init_error(); |
gcl_init_error(); |
496 |
init_let(); |
gcl_init_let(); |
497 |
init_mapfun(); |
gcl_init_mapfun(); |
498 |
init_iteration(); |
gcl_init_iteration(); |
499 |
init_toplevel(); |
gcl_init_toplevel(); |
500 |
|
|
501 |
init_cmpaux(); |
gcl_init_cmpaux(); |
502 |
|
|
503 |
init_main(); |
init_main(); |
504 |
|
|
505 |
init_format(); |
gcl_init_format(); |
506 |
init_links(); |
gcl_init_links(); |
507 |
|
|
508 |
init_fat_string(); |
gcl_init_fat_string(); |
509 |
#ifdef CMAC |
#ifdef CMAC |
510 |
init_cmac(); |
gcl_init_cmac(); |
511 |
#endif |
#endif |
512 |
|
|
513 |
} |
} |
734 |
void |
void |
735 |
siLinit_system(void) { |
siLinit_system(void) { |
736 |
check_arg(0); |
check_arg(0); |
737 |
init_system(sSAno_initA); |
gcl_init_system(sSAno_initA); |
738 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
739 |
} |
} |
740 |
|
|