1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#include "all.h"
#include "funlink.h"
#define SI 0
#define LISP 1
#define KEYWORD 2
#define NONE 0
void SI_makefun(),LISP_makefun(),error();
#define MAKEFUN(pack,string,fname,argd) \
(pack == SI ? SI_makefun : pack == LISP ? LISP_makefun : error)(string,fname,argd)
#undef DEFUN
#define DEFUN(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56) \
{extern ret fname(); \
MAKEFUN(pack,string,fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));}
#undef DEFUNO
#define DEFUNO(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,old) \
{extern ret fname(); \
MAKEFUN(pack,string,fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));}
#undef DEFCOMP
#define DEFCOMP(type, fun) Ineed_in_image(fun);
#undef DEFVAR
#define DEFVAR(name,cname,pack,val) \
{ extern obj cname; \
cname = (pack == LISP ? make_special(name,val) : \
pack == SI ? make_si_special(name,val): \
(error(name,val),(obj)0));}
#undef DEFCONST
#define DEFCONST(name,cname,pack,val) \
{ extern obj cname; \
cname = (pack == LISP ? make_constant(name,val) : \
pack == SI ? make_si_constant(name,val): \
(error(name,val),(obj)0));}
#undef DEF_ORDINARY
#define DEF_ORDINARY(name,cname,pack) \
{ extern obj cname ; cname = (pack == LISP ? make_ordinary(name) : \
pack == SI ? make_si_ordinary(name): \
pack == KEYWORD ? make_keyword(name): \
(error(name),(obj)0));}
#undef DEF_INIT
#define DEF_INIT(x) x
|
