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

Diff of /gcl/o/toplevel.c

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

revision 1.4.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.4.6.2 by camm, Thu Nov 6 16:16:53 2003 UTC
# Line 39  object sSAinhibit_macro_specialA; Line 39  object sSAinhibit_macro_specialA;
39  object sLtypep;  object sLtypep;
40    
41  static void  static void
42  Fdefun(object args)  FFN(Fdefun)(object args)
43  {  {
44    
45          object name;          object name;
# Line 98  Fdefun(object args) Line 98  Fdefun(object args)
98  }  }
99                    
100  static void  static void
101  siLAmake_special(void)  FFN(siLAmake_special)(void)
102  {  {
103          check_arg(1);          check_arg(1);
104          check_type_symbol(&vs_base[0]);          check_type_symbol(&vs_base[0]);
# Line 108  siLAmake_special(void) Line 108  siLAmake_special(void)
108  }  }
109    
110  static void  static void
111  siLAmake_constant(void)  FFN(siLAmake_constant)(void)
112  {  {
113          check_arg(2);          check_arg(2);
114          check_type_symbol(&vs_base[0]);          check_type_symbol(&vs_base[0]);
# Line 122  siLAmake_constant(void) Line 122  siLAmake_constant(void)
122  }  }
123    
124  static void  static void
125  Feval_when(object arg)  FFN(Feval_when)(object arg)
126  {  {
127    
128          object *base = vs_base;          object *base = vs_base;
# Line 148  Feval_when(object arg) Line 148  Feval_when(object arg)
148  }  }
149    
150  static void  static void
151  Fdeclare(object arg)  FFN(Fdeclare)(object arg)
152  {  {
153          FEerror("DECLARE appeared in an invalid position.", 0);          FEerror("DECLARE appeared in an invalid position.", 0);
154  }  }
155    
156  static void  static void
157  Flocally(object body)  FFN(Flocally)(object body)
158  {  {
159          object *oldlex = lex_env;          object *oldlex = lex_env;
160    
# Line 166  Flocally(object body) Line 166  Flocally(object body)
166  }  }
167    
168  static void  static void
169  Fthe(object args)  FFN(Fthe)(object args)
170  {  {
171    
172          object *vs;          object *vs;
# Line 213  gcl_init_toplevel(void) Line 213  gcl_init_toplevel(void)
213          make_si_function("*MAKE-CONSTANT", siLAmake_constant);          make_si_function("*MAKE-CONSTANT", siLAmake_constant);
214          make_special_form("EVAL-WHEN", Feval_when);          make_special_form("EVAL-WHEN", Feval_when);
215          make_special_form("THE", Fthe);          make_special_form("THE", Fthe);
216          make_special_form("DECLARE",Fdeclare);          sLdeclare=make_special_form("DECLARE",Fdeclare);
217          make_special_form("LOCALLY",Flocally);          make_special_form("LOCALLY",Flocally);
218    
219    

Legend:
Removed from v.1.4.6.1  
changed lines
  Added in v.1.4.6.2

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