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

Diff of /gcl/o/macros.c

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

revision 1.3 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.4 by camm, Sun Feb 9 22:35:18 2003 UTC
# Line 22  Foundation, 675 Mass Ave, Cambridge, MA Line 22  Foundation, 675 Mass Ave, Cambridge, MA
22  /*  /*
23          macros.c          macros.c
24  */  */
   
25  #include "include.h"  #include "include.h"
26    
27    
# Line 168  macro_def(object form) Line 167  macro_def(object form)
167                  return(Cnil);                  return(Cnil);
168  }  }
169    
170  DEFUNO("MACROEXPAND",object,fLmacroexpand,LISP  DEFUNO_NEW("MACROEXPAND",object,fLmacroexpand,LISP
171     ,1,2,NONE,OO,OO,OO,OO,Lmacroexpand,"")(form,va_alist)         ,1,2,NONE,OO,OO,OO,OO,Lmacroexpand,(object form,...),"")
 object form ;  
 va_dcl  
172  {       int n=VFUN_NARGS;  {       int n=VFUN_NARGS;
173          object envir;          object envir;
174          object exp_fun;          object exp_fun;
# Line 179  va_dcl Line 176  va_dcl
176          object buf[3];          object buf[3];
177                    
178          va_list ap;          va_list ap;
179          { va_start(ap);          { va_start(ap,form);
180            if (n>=2) envir=va_arg(ap,object);else goto LDEFAULT2;            if (n>=2) envir=va_arg(ap,object);else goto LDEFAULT2;
181            goto LEND_VARARG;            goto LEND_VARARG;
182          LDEFAULT2: envir = Cnil;          LDEFAULT2: envir = Cnil;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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