ftp.nice.ch/pub/next/developer/languages/lisp/AKCL.1.599.s.tar.gz#/akcl-1-599/unixport/sys_boot.c

This is sys_boot.c in view mode; [Download] [Up]

#include "../h/include.h"

extern void user_init();

void init_or_load1 ();
#define init_or_load(fn,file) do {extern int fn(); init_or_load1(fn,file);} \
  while(0)
static load1(x)
     char *x;
{printf("loading %s\n",x);
 fflush(stdout);
 load(x);}

init_init()
{

  load1("../lsp/export.lsp");
  load1("../lsp/defmacro.lsp");
  init_or_load(init_evalmacros,"../lsp/evalmacros.o");
  init_or_load(init_top,"../lsp/top.o");
  init_or_load(init_module,"../lsp/module.o");
  load1("../lsp/autoload.lsp");
}

init_system()
{
  load1("../lsp/predlib.lsp");
  load1("../lsp/setf.lsp");
  load1("../lsp/arraylib.lsp");
  init_or_load(init_assert,"../lsp/assert.o");
  load1("../lsp/defstruct.lsp");
  init_or_load(init_describe,"../lsp/describe.o");
  init_or_load(init_iolib,"../lsp/iolib.o");
  init_or_load(init_listlib,"../lsp/listlib.o");
  init_or_load(init_mislib,"../lsp/mislib.o");
  init_or_load(init_numlib,"../lsp/numlib.o");
  load1("../lsp/packlib.lsp");
  init_or_load(init_seq,"../lsp/seq.o");
  init_or_load(init_seqlib,"../lsp/seqlib.o");
  init_or_load(init_trace,"../lsp/trace.o");
  load1("../lsp/sloop.lsp");
	
  load1("../cmpnew/cmpinline.lsp");
  load1("../cmpnew/cmputil.lsp");

  load1("../lsp/debug.lsp");

  load1("../cmpnew/cmptype.lsp");
  init_or_load(init_cmpbind,"../cmpnew/cmpbind.o");
  load1("../cmpnew/cmpblock.lsp");
  load1("../cmpnew/cmpcall.lsp");
  init_or_load(init_cmpcatch,"../cmpnew/cmpcatch.o");
  load1("../cmpnew/cmpenv.lsp");
  load1("../cmpnew/cmpeval.lsp");
  load1("../cmpnew/cmpflet.lsp");
  load1("../cmpnew/cmpfun.lsp");
  init_or_load(init_cmpif,"../cmpnew/cmpif.o");
  load1("../cmpnew/cmplabel.lsp");
  load1("../cmpnew/cmplam.lsp");
  init_or_load(init_cmplet,"../cmpnew/cmplet.o");
  load1("../cmpnew/cmploc.lsp");
  init_or_load(init_cmpmap,"../cmpnew/cmpmap.o");
  init_or_load(init_cmpmulti,"../cmpnew/cmpmulti.o");
  load1("../cmpnew/cmpspecial.lsp");
  load1("../cmpnew/cmptag.lsp");
  load1("../cmpnew/cmptop.lsp");
  load1("../cmpnew/cmpvar.lsp");
  load1("../cmpnew/cmpvs.lsp");
  load1("../cmpnew/cmpwt.lsp");
	     
  Vpackage->s.s_dbind = user_package;
  user_init();
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.