/[gcl]/gcl/o/cmpaux.c
ViewVC logotype

Diff of /gcl/o/cmpaux.c

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

revision 1.9 by camm, Wed Nov 13 04:26:22 2002 UTC revision 1.10 by camm, Sun Feb 9 22:35:18 2003 UTC
# Line 30  Foundation, 675 Mass Ave, Cambridge, MA Line 30  Foundation, 675 Mass Ave, Cambridge, MA
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 &&
# Line 45  object sym; Line 44  object sym;
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;
# Line 68  va_dcl Line 65  va_dcl
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;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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