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

Diff of /gcl/o/reference.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:53 2003 UTC
# Line 28  Foundation, 675 Mass Ave, Cambridge, MA Line 28  Foundation, 675 Mass Ave, Cambridge, MA
28    
29  #include "include.h"  #include "include.h"
30    
31  void  LFD(Lfboundp)(void)
 Lfboundp(void)  
32  {  {
33          object sym;          object sym;
34    
# Line 65  symbol_function(object sym) Line 64  symbol_function(object sym)
64                  (macro . function-closure)      for macros                  (macro . function-closure)      for macros
65                  (special . address)             for special forms.                  (special . address)             for special forms.
66  */  */
67  void  LFD(Lsymbol_function)(void)
 Lsymbol_function(void)  
68  {  {
69          object sym;          object sym;
70    
# Line 92  Lsymbol_function(void) Line 90  Lsymbol_function(void)
90  }  }
91    
92  static void  static void
93  Fquote(object form)  FFN(Fquote)(object form)
94  {  {
95    
96          if (endp(form))          if (endp(form))
# Line 104  Fquote(object form) Line 102  Fquote(object form)
102  }  }
103    
104  static void  static void
105  Ffunction(object form)  FFN(Ffunction)(object form)
106  {  {
107    
108          object fun;          object fun;
# Line 138  Ffunction(object form) Line 136  Ffunction(object form)
136                  FEinvalid_function(fun);                  FEinvalid_function(fun);
137  }  }
138    
139  void  LFD(Lsymbol_value)(void)
 Lsymbol_value(void)  
140  {  {
141          object sym;          object sym;
142          check_arg(1);          check_arg(1);
# Line 152  Lsymbol_value(void) Line 149  Lsymbol_value(void)
149                  vs_base[0] = sym->s.s_dbind;                  vs_base[0] = sym->s.s_dbind;
150  }  }
151    
152  void  LFD(Lboundp)(void)
 Lboundp(void)  
153  {  {
154          object sym;          object sym;
155          check_arg(1);          check_arg(1);
# Line 166  Lboundp(void) Line 162  Lboundp(void)
162                  vs_base[0] = Ct;                  vs_base[0] = Ct;
163  }  }
164    
165  void  LFD(Lmacro_function)(void)
 Lmacro_function(void)  
166  {  {
167          check_arg(1);          check_arg(1);
168          if (type_of(vs_base[0]) != t_symbol)          if (type_of(vs_base[0]) != t_symbol)
# Line 178  Lmacro_function(void) Line 173  Lmacro_function(void)
173                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
174  }  }
175    
176  void  LFD(Lspecial_form_p)(void)
 Lspecial_form_p(void)  
177  {  {
178          check_arg(1);          check_arg(1);
179          if (type_of(vs_base[0]) != t_symbol)          if (type_of(vs_base[0]) != t_symbol)
# Line 195  gcl_init_reference(void) Line 189  gcl_init_reference(void)
189  {  {
190          make_function("SYMBOL-FUNCTION", Lsymbol_function);          make_function("SYMBOL-FUNCTION", Lsymbol_function);
191          make_function("FBOUNDP", Lfboundp);          make_function("FBOUNDP", Lfboundp);
192          make_special_form("QUOTE", Fquote);          sLquote=make_special_form("QUOTE", Fquote);
193          sLfunction = make_special_form("FUNCTION", Ffunction);          sLfunction = make_special_form("FUNCTION", Ffunction);
194          make_function("SYMBOL-VALUE", Lsymbol_value);          make_function("SYMBOL-VALUE", Lsymbol_value);
195          make_function("BOUNDP", Lboundp);          make_function("BOUNDP", Lboundp);

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