home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / unixport / sys_boot.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-21  |  2.0 KB  |  66 lines
  1. #include "../h/include.h"
  2.  
  3. void init_or_load1 ();
  4. #define init_or_load(fn,file) do {extern int fn(); init_or_load1(fn,file);} \
  5.   while(0)
  6.  
  7. init_init()
  8. {
  9.  
  10.   load("../lsp/export.lsp");
  11.   init_or_load(init_defmacro,"../lsp/defmacro.o");
  12.   init_or_load(init_evalmacros,"../lsp/evalmacros.o");
  13.   init_or_load(init_top,"../lsp/top.o");
  14.   init_or_load(init_module,"../lsp/module.o");
  15.   load("../lsp/autoload.lsp");
  16. }
  17.  
  18. init_system()
  19. {
  20.   load("../lsp/predlib.lsp");
  21.   load("../lsp/setf.lsp");
  22.   load("../lsp/arraylib.lsp");
  23.   init_or_load(init_assert,"../lsp/assert.o");
  24.   load("../lsp/defstruct.lsp");
  25.   init_or_load(init_describe,"../lsp/describe.o");
  26.   init_or_load(init_iolib,"../lsp/iolib.o");
  27.   init_or_load(init_listlib,"../lsp/listlib.o");
  28.   init_or_load(init_mislib,"../lsp/mislib.o");
  29.   init_or_load(init_numlib,"../lsp/numlib.o");
  30.   load("../lsp/packlib.lsp");
  31.   init_or_load(init_seq,"../lsp/seq.o");
  32.   init_or_load(init_seqlib,"../lsp/seqlib.o");
  33.   init_or_load(init_trace,"../lsp/trace.o");
  34.   load("../lsp/sloop.lsp");
  35.     
  36.   load("../cmpnew/cmpinline.lsp");
  37.   load("../cmpnew/cmputil.lsp");
  38.  
  39.   load("../lsp/debug.lsp");
  40.  
  41.   load("../cmpnew/cmptype.lsp");
  42.   init_or_load(init_cmpbind,"../cmpnew/cmpbind.o");
  43.   load("../cmpnew/cmpblock.lsp");
  44.   load("../cmpnew/cmpcall.lsp");
  45.   init_or_load(init_cmpcatch,"../cmpnew/cmpcatch.o");
  46.   load("../cmpnew/cmpenv.lsp");
  47.   load("../cmpnew/cmpeval.lsp");
  48.   load("../cmpnew/cmpflet.lsp");
  49.   load("../cmpnew/cmpfun.lsp");
  50.   init_or_load(init_cmpif,"../cmpnew/cmpif.o");
  51.   load("../cmpnew/cmplabel.lsp");
  52.   load("../cmpnew/cmplam.lsp");
  53.   init_or_load(init_cmplet,"../cmpnew/cmplet.o");
  54.   load("../cmpnew/cmploc.lsp");
  55.   init_or_load(init_cmpmap,"../cmpnew/cmpmap.o");
  56.   init_or_load(init_cmpmulti,"../cmpnew/cmpmulti.o");
  57.   load("../cmpnew/cmpspecial.lsp");
  58.   load("../cmpnew/cmptag.lsp");
  59.   load("../cmpnew/cmptop.lsp");
  60.   load("../cmpnew/cmpvar.lsp");
  61.   load("../cmpnew/cmpvs.lsp");
  62.   load("../cmpnew/cmpwt.lsp");
  63.          
  64.   Vpackage->s.s_dbind = user_package;
  65. }
  66.