/[gcl]/gcl/o/main.c
ViewVC logotype

Diff of /gcl/o/main.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26.4.1.2.4 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.26.4.1.2.5 by camm, Thu Nov 6 16:16:52 2003 UTC
# Line 460  initlisp(void) { Line 460  initlisp(void) {
460          export(Ct, common_lisp_package);          export(Ct, common_lisp_package);
461  #endif  #endif
462    
463          sLquote = make_ordinary("QUOTE");  /*      sLquote = make_ordinary("QUOTE"); */
464          sLfunction = make_ordinary("FUNCTION");  /*      sLfunction = make_ordinary("FUNCTION"); */
465          sLlambda = make_ordinary("LAMBDA");          sLlambda = make_ordinary("LAMBDA");
466          sLlambda_block = make_ordinary("LAMBDA-BLOCK");          sLlambda_block = make_ordinary("LAMBDA-BLOCK");
467          sLlambda_closure = make_ordinary("LAMBDA-CLOSURE");          sLlambda_closure = make_ordinary("LAMBDA-CLOSURE");
# Line 541  initlisp(void) { Line 541  initlisp(void) {
541          gcl_init_links();          gcl_init_links();
542    
543          gcl_init_fat_string();          gcl_init_fat_string();
544            gcl_init_sfasl();
545  #ifdef CMAC  #ifdef CMAC
546          gcl_init_cmac();          gcl_init_cmac();
547  #endif    #endif  
# Line 633  DEFUNO_NEW("BYE",object,fLbye,LISP Line 634  DEFUNO_NEW("BYE",object,fLbye,LISP
634    
635  DEFUN_NEW("QUIT",object,fLquit,LISP  DEFUN_NEW("QUIT",object,fLquit,LISP
636         ,0,1,NONE,OI,OO,OO,OO,(fixnum exitc),"")         ,0,1,NONE,OI,OO,OO,OO,(fixnum exitc),"")
637  {       return fLbye(exitc); }  {       return FFN(fLbye)(exitc); }
638    
639  /* DEFUN_NEW("EXIT",object,fLexit,LISP */  /* DEFUN_NEW("EXIT",object,fLexit,LISP */
640  /*        ,0,1,NONE,OI,OO,OO,OO,(fixnum exitc),"") */  /*        ,0,1,NONE,OI,OO,OO,OO,(fixnum exitc),"") */
# Line 648  DEFUN_NEW("QUIT",object,fLquit,LISP Line 649  DEFUN_NEW("QUIT",object,fLquit,LISP
649  /*  } */  /*  } */
650    
651  static void  static void
652  siLargc(void) {  FFN(siLargc)(void) {
653    check_arg(0);    check_arg(0);
654    vs_push(make_fixnum(ARGC));    vs_push(make_fixnum(ARGC));
655  }  }
656    
657  static void  static void
658  siLargv(void) {  FFN(siLargv)(void) {
659    int i=0;    int i=0;
660        
661    check_arg(1);    check_arg(1);
# Line 668  siLargv(void) { Line 669  siLargv(void) {
669    
670  #ifdef UNIX  #ifdef UNIX
671  static void  static void
672  siLgetenv(void) {  FFN(siLgetenv)(void) {
673    
674    char name[256];    char name[256];
675    int i;    int i;
# Line 698  siLgetenv(void) { Line 699  siLgetenv(void) {
699  object *vs_marker;  object *vs_marker;
700    
701  static void  static void
702  siLmark_vs(void) {  FFN(siLmark_vs)(void) {
703    check_arg(0);    check_arg(0);
704    vs_marker = vs_base;    vs_marker = vs_base;
705    vs_base[0] = Cnil;    vs_base[0] = Cnil;
706  }  }
707    
708  static void  static void
709  siLcheck_vs(void) {  FFN(siLcheck_vs)(void) {
710    check_arg(0);    check_arg(0);
711    if (vs_base != vs_marker)    if (vs_base != vs_marker)
712      FEerror("Value stack is flawed.", 0);      FEerror("Value stack is flawed.", 0);
# Line 713  siLcheck_vs(void) { Line 714  siLcheck_vs(void) {
714  }  }
715    
716  static object  static object
717  siLcatch_fatal(int i) {  FFN(siLcatch_fatal)(int i) {
718    catch_fatal=i;    catch_fatal=i;
719    return Cnil;    return Cnil;
720  }  }
# Line 728  reset_cstack_limit(int arg) { Line 729  reset_cstack_limit(int arg) {
729  #endif  #endif
730  }  }
731    
732  void  LFD(siLreset_stack_limits)(void)
 siLreset_stack_limits(void)  
733  {  {
734    int i=0;    int i=0;
735    
# Line 795  multiply_stacks(int m) { Line 795  multiply_stacks(int m) {
795    
796  DEFVAR("*NO-INIT*",sSAno_initA,SI,Cnil,"");  DEFVAR("*NO-INIT*",sSAno_initA,SI,Cnil,"");
797    
798  void  LFD(siLinit_system)(void) {
 siLinit_system(void) {  
799    check_arg(0);    check_arg(0);
800    gcl_init_system(sSAno_initA);    gcl_init_system(sSAno_initA);
801    vs_base[0] = Cnil;    vs_base[0] = Cnil;
802  }  }
803    
804  static void  static void
805  siLuser_init(void) {  FFN(siLuser_init)(void) {
806    check_arg(0);    check_arg(0);
807    sLApackageA->s.s_dbind = user_package;    sLApackageA->s.s_dbind = user_package;
808    user_init();    user_init();
# Line 811  siLuser_init(void) { Line 810  siLuser_init(void) {
810  }  }
811    
812  static void  static void
813  siLaddress(void) {  FFN(siLaddress)(void) {
814    check_arg(1);    check_arg(1);
815    vs_base[0] = make_fixnum((long)vs_base[0]);    vs_base[0] = make_fixnum((long)vs_base[0]);
816  }  }
817    
818  static void  static void
819  siLnani(void) {  FFN(siLnani)(void) {
820    check_arg(1);    check_arg(1);
821    vs_base[0] = (object)fixint(vs_base[0]);    vs_base[0] = (object)fixint(vs_base[0]);
822  }  }
823    
824  static void  static void
825  siLinitialization_failure(void) {  FFN(siLinitialization_failure)(void) {
826    check_arg(0);    check_arg(0);
827    printf("lisp initialization failed\n");    printf("lisp initialization failed\n");
828    exit(0);    exit(0);
# Line 845  DEFUN_NEW("LISP-IMPLEMENTATION-VERSION", Line 844  DEFUN_NEW("LISP-IMPLEMENTATION-VERSION",
844    
845    
846  static void  static void
847  siLsave_system(void) {  FFN(siLsave_system)(void) {
848    int i;    int i;
849        
850  #ifdef HAVE_YP_UNBIND  #ifdef HAVE_YP_UNBIND
# Line 987  init_main(void) { Line 986  init_main(void) {
986        
987    make_si_function("SAVE-SYSTEM", siLsave_system);    make_si_function("SAVE-SYSTEM", siLsave_system);
988    make_si_sfun("CATCH-FATAL",siLcatch_fatal,ARGTYPE1(f_fixnum));    make_si_sfun("CATCH-FATAL",siLcatch_fatal,ARGTYPE1(f_fixnum));
989      make_si_function("WARN-VERSION",Lidentity);
990        
991  }  }

Legend:
Removed from v.1.26.4.1.2.4  
changed lines
  Added in v.1.26.4.1.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26