Parent Directory | Revision Log | 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; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |