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

Diff of /gcl/o/num_pred.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:52 2003 UTC
# Line 174  number_evenp(object x) Line 174  number_evenp(object x)
174          return(~i & 1);          return(~i & 1);
175  }  }
176    
177  void  LFD(Lzerop)(void)
 Lzerop(void)  
178  {  {
179          check_arg(1);          check_arg(1);
180          check_type_number(&vs_base[0]);          check_type_number(&vs_base[0]);
# Line 185  Lzerop(void) Line 184  Lzerop(void)
184                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
185  }  }
186    
187  void  LFD(Lplusp)(void)
 Lplusp(void)  
188  {  {
189          check_arg(1);          check_arg(1);
190          check_type_or_rational_float(&vs_base[0]);          check_type_or_rational_float(&vs_base[0]);
# Line 196  Lplusp(void) Line 194  Lplusp(void)
194                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
195  }  }
196    
197  void  LFD(Lminusp)(void)
 Lminusp(void)  
198  {  {
199          check_arg(1);          check_arg(1);
200          check_type_or_rational_float(&vs_base[0]);          check_type_or_rational_float(&vs_base[0]);
# Line 207  Lminusp(void) Line 204  Lminusp(void)
204                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
205  }  }
206    
207  void  LFD(Loddp)(void)
 Loddp(void)  
208  {  {
209          check_arg(1);          check_arg(1);
210          check_type_integer(&vs_base[0]);          check_type_integer(&vs_base[0]);
# Line 218  Loddp(void) Line 214  Loddp(void)
214                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
215  }  }
216    
217  void  LFD(Levenp)(void)
 Levenp(void)  
218  {  {
219          check_arg(1);          check_arg(1);
220          check_type_integer(&vs_base[0]);          check_type_integer(&vs_base[0]);

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