30 |
#include "include.h" |
#include "include.h" |
31 |
#define dcheck_type(a,b) check_type(a,b) |
#define dcheck_type(a,b) check_type(a,b) |
32 |
|
|
33 |
DEFUNO("SPECIALP",object,fSspecialp,SI |
DEFUNO_NEW("SPECIALP",object,fSspecialp,SI |
34 |
,1,1,NONE,OO,OO,OO,OO,siLspecialp,"")(sym) |
,1,1,NONE,OO,OO,OO,OO,siLspecialp,(object sym),"") |
|
object sym; |
|
35 |
{ |
{ |
36 |
/* 1 args */ |
/* 1 args */ |
37 |
if (type_of(sym) == t_symbol && |
if (type_of(sym) == t_symbol && |
44 |
|
|
45 |
DEF_ORDINARY("DEBUG",sSdebug,SI,""); |
DEF_ORDINARY("DEBUG",sSdebug,SI,""); |
46 |
|
|
47 |
DEFUNO("DEFVAR1",object,fSdefvar1,SI |
DEFUNO_NEW("DEFVAR1",object,fSdefvar1,SI |
48 |
,2,3,NONE,OO,OO,OO,OO,siLdefvar1,"")(sym,val,va_alist) |
,2,3,NONE,OO,OO,OO,OO,siLdefvar1,(object sym,object val,...),"") |
|
object sym,val; |
|
|
va_dcl |
|
49 |
{ int n=VFUN_NARGS; |
{ int n=VFUN_NARGS; |
50 |
object doc; |
object doc; |
51 |
va_list ap; |
va_list ap; |
52 |
{ va_start(ap); |
{ va_start(ap,val); |
53 |
if (n>=3) doc=va_arg(ap,object);else goto LDEFAULT3; |
if (n>=3) doc=va_arg(ap,object);else goto LDEFAULT3; |
54 |
goto LEND_VARARG; |
goto LEND_VARARG; |
55 |
LDEFAULT3: doc = Cnil; |
LDEFAULT3: doc = Cnil; |
65 |
} |
} |
66 |
|
|
67 |
|
|
68 |
DEFUNO("DEBUG",object,fSdebug,SI |
DEFUNO_NEW("DEBUG",object,fSdebug,SI |
69 |
,2,2,NONE,OO,OO,OO,OO,siLdebug,"")(sym,val) |
,2,2,NONE,OO,OO,OO,OO,siLdebug,(object sym,object val),"") |
|
object sym,val; |
|
70 |
{ /* 2 args */ |
{ /* 2 args */ |
71 |
putprop(sym,val,sSdebug); |
putprop(sym,val,sSdebug); |
72 |
RETURN1(sym); |
RETURN1(sym); |
73 |
} |
} |
74 |
|
|
75 |
|
|
76 |
DEFUNO("SETVV",object,fSsetvv,SI |
DEFUNO_NEW("SETVV",object,fSsetvv,SI |
77 |
,2,2,NONE,OO,OO,OO,OO,siLsetvv,"")(index,val) |
,2,2,NONE,OO,OO,OO,OO,siLsetvv,(object index,object val),"") |
|
object index,val; |
|
78 |
{ /* 2 args */ |
{ /* 2 args */ |
79 |
if(type_of(sSPmemory->s.s_dbind)==t_cfdata) |
if(type_of(sSPmemory->s.s_dbind)==t_cfdata) |
80 |
sSPmemory->s.s_dbind->cfd.cfd_self[fix(index)]=val; |
sSPmemory->s.s_dbind->cfd.cfd_self[fix(index)]=val; |