/[gcl]/gcl/h/make-init.h
ViewVC logotype

Diff of /gcl/h/make-init.h

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:02 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 8  Line 8 
8    
9  #define NONE 0  #define NONE 0
10    
11  void SI_makefun(),LISP_makefun(),error();  /*  void SI_makefun(),LISP_makefun(),error(); */
12    
13  #define MAKEFUN(pack,string,fname,argd) \  #define MAKEFUN(pack,string,fname,argd) \
14    (pack == SI ? SI_makefun : pack == LISP ? LISP_makefun : error)(string,fname,argd)    (pack == SI ? SI_makefun(string,fname,argd) : \
15       pack == LISP ? LISP_makefun(string,fname,argd) : \
16       error("Bad pack variable in MAKEFUN\n"))
17    
18  #undef DEFUN  #undef DEFUN
19  #define DEFUN(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,doc) \  #define DEFUN(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,doc) \
# Line 32  void SI_makefun(),LISP_makefun(),error() Line 34  void SI_makefun(),LISP_makefun(),error()
34   { extern object cname; \   { extern object cname; \
35     cname = (pack == LISP ? make_special(name,val) : \     cname = (pack == LISP ? make_special(name,val) : \
36             pack == SI ?  make_si_special(name,val): \             pack == SI ?  make_si_special(name,val): \
37             (error(name,val),(object)0));}             (error("Bad pack variable in DEFVAR\n"),(object)0));}
38    
39  #undef DEFCONST  #undef DEFCONST
40  #define DEFCONST(name,cname,pack,val,doc) \  #define DEFCONST(name,cname,pack,val,doc) \
41   { extern object cname; \   { extern object cname; \
42     cname = (pack == LISP ? make_constant(name,val) : \     cname = (pack == LISP ? make_constant(name,val) : \
43             pack == SI ?  make_si_constant(name,val): \             pack == SI ?  make_si_constant(name,val): \
44             (error(name,val),(object)0));}             (error("Bad pack variable in DEFCONST\n"),(object)0));}
45    
46    
47  #undef DEF_ORDINARY  #undef DEF_ORDINARY
# Line 47  void SI_makefun(),LISP_makefun(),error() Line 49  void SI_makefun(),LISP_makefun(),error()
49     { extern object cname ; cname = (pack == LISP ? make_ordinary(name) : \     { extern object cname ; cname = (pack == LISP ? make_ordinary(name) : \
50             pack == SI ?  make_si_ordinary(name): \             pack == SI ?  make_si_ordinary(name): \
51             pack == KEYWORD ?  make_keyword(name):   \             pack == KEYWORD ?  make_keyword(name):   \
52             (error(name),(object)0));}             (error("Bad pack variable in DEF_ORDINARY\n"),(object)0));}
53    
54    
55  #undef DO_INIT  #undef DO_INIT

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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