/[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.16 by mjthomas, Wed Jul 31 07:16:44 2002 UTC revision 1.17 by camm, Wed Aug 14 22:02:02 2002 UTC
# Line 420  initlisp(void) { Line 420  initlisp(void) {
420          import(Ct, lisp_package);          import(Ct, lisp_package);
421          export(Ct, lisp_package);          export(Ct, lisp_package);
422    
423    #ifdef ANSI_COMMON_LISP
424  /*      Cnil->s.s_hpack = common_lisp_package; */  /*      Cnil->s.s_hpack = common_lisp_package; */
425          import(Cnil, common_lisp_package);          import(Cnil, common_lisp_package);
426          export(Cnil, common_lisp_package);          export(Cnil, common_lisp_package);
# Line 427  initlisp(void) { Line 428  initlisp(void) {
428  /*      Ct->s.s_hpack = common_lisp_package; */  /*      Ct->s.s_hpack = common_lisp_package; */
429          import(Ct, common_lisp_package);          import(Ct, common_lisp_package);
430          export(Ct, common_lisp_package);          export(Ct, common_lisp_package);
431    #endif
432    
433          sLquote = make_ordinary("QUOTE");          sLquote = make_ordinary("QUOTE");
434          sLfunction = make_ordinary("FUNCTION");          sLfunction = make_ordinary("FUNCTION");

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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