15 |
pack == LISP ? LISP_makefun(string,fname,argd) : \ |
pack == LISP ? LISP_makefun(string,fname,argd) : \ |
16 |
error("Bad pack variable in MAKEFUN\n")) |
error("Bad pack variable in MAKEFUN\n")) |
17 |
|
|
18 |
|
#define MAKESYM(pack,string) \ |
19 |
|
(pack == SI ? make_si_ordinary(string) : \ |
20 |
|
pack == LISP ? make_ordinary(string) : \ |
21 |
|
(error("Bad pack variable in MAKESYM\n"),Cnil)) |
22 |
|
|
23 |
#undef DEFUN |
#undef DEFUN |
24 |
#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) \ |
25 |
{extern ret fname(); \ |
{extern ret fname(); \ |
30 |
{extern ret fname(); \ |
{extern ret fname(); \ |
31 |
MAKEFUN(pack,string,fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));} |
MAKEFUN(pack,string,fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));} |
32 |
|
|
33 |
|
/* FIXME, possibly restore old MAKEFUN in place (in NewInit) here |
34 |
|
when STATIC_FUNCTION_POINTERS not defined */ |
35 |
#undef DEFUN_NEW |
#undef DEFUN_NEW |
36 |
#define DEFUN_NEW(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,args,doc) \ |
#define DEFUN_NEW(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,args,doc) \ |
37 |
{extern ret fname args; \ |
{extern void Mjoin(fname,_init)(); Mjoin(fname,_init)();} |
|
MAKEFUN(pack,string,(ret (*)())fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));} |
|
38 |
|
|
39 |
#undef DEFUNO_NEW |
#undef DEFUNO_NEW |
40 |
#define DEFUNO_NEW(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,oldret,old,args,doc) \ |
#define DEFUNO_NEW(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,oldret,old,args,doc) \ |
41 |
{extern ret fname args; \ |
{extern void Mjoin(fname,_init)();Mjoin(fname,_init)();} |
|
MAKEFUN(pack,string,(ret (*)())fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));} |
|
42 |
|
|
43 |
#undef DEFCOMP |
#undef DEFCOMP |
44 |
#define DEFCOMP(type, fun,doc) Ineed_in_image(fun); |
#define DEFCOMP(type, fun,doc) Ineed_in_image(fun); |