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) \ |
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 |
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 |