/[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.5.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.5.6.2 by camm, Thu Nov 6 16:16:52 2003 UTC
# Line 30  object sLwarn; Line 30  object sLwarn;
30  object sSAinhibit_macro_specialA;  object sSAinhibit_macro_specialA;
31    
32  static void  static void
33  siLdefine_macro(void)  FFN(siLdefine_macro)(void)
34  {  {
35          check_arg(2);          check_arg(2);
36          if (type_of(vs_base[0]) != t_symbol)          if (type_of(vs_base[0]) != t_symbol)
# Line 69  siLdefine_macro(void) Line 69  siLdefine_macro(void)
69  }  }
70    
71  static void  static void
72  Fdefmacro(object form)  FFN(Fdefmacro)(object form)
73  {  {
74    
75          object *top = vs_top;          object *top = vs_top;
# Line 215  DEFUNO_NEW("MACROEXPAND",object,fLmacroe Line 215  DEFUNO_NEW("MACROEXPAND",object,fLmacroe
215            }            }
216  }  }
217    
218  void  LFD(Lmacroexpand_1)(void)
 Lmacroexpand_1(void)  
219  {  {
220          object exp_fun;          object exp_fun;
221          object *base=vs_base;          object *base=vs_base;

Legend:
Removed from v.1.5.6.1  
changed lines
  Added in v.1.5.6.2

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