/[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.19 by mjthomas, Fri Sep 20 02:22:02 2002 UTC revision 1.20 by camm, Fri Sep 27 21:13:56 2002 UTC
# Line 388  initlisp(void) { Line 388  initlisp(void) {
388            }            }
389          init_alloc();          init_alloc();
390    
391            Dotnil_body.t = (short)t_symbol;
392            Dotnil_body.s_dbind = Dotnil;
393            Dotnil_body.s_sfdef = NOT_SPECIAL;
394            Dotnil_body.s_fillp = 6;
395            Dotnil_body.s_self = "DOTNIL";
396            Dotnil_body.s_gfdef = OBJNULL;
397            Dotnil_body.s_plist = Dotnil;
398            Dotnil_body.s_hpack = Dotnil;
399            Dotnil_body.s_stype = (short)stp_constant;
400            Dotnil_body.s_mflag = FALSE;
401            
402          Cnil_body.t = (short)t_symbol;          Cnil_body.t = (short)t_symbol;
403          Cnil_body.s_dbind = Cnil;          Cnil_body.s_dbind = Cnil;
404          Cnil_body.s_sfdef = NOT_SPECIAL;          Cnil_body.s_sfdef = NOT_SPECIAL;

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

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