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

Diff of /gcl/o/predicate.c

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

revision 1.4 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.5 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 28  Foundation, 675 Mass Ave, Cambridge, MA Line 28  Foundation, 675 Mass Ave, Cambridge, MA
28  #include <stdlib.h>  #include <stdlib.h>
29  #include "include.h"  #include "include.h"
30    
31  DEFUN("NULL",object,fLnot,LISP  DEFUNO_NEW("NULL",object,fLnot,LISP
32     ,1,1,NONE,OO,OO,OO,OO,"")();            ,1,1,NONE,OO,OO,OO,OO,void,Lnull,(object x0),"");
33    
34    DEFUN_NEW("NOT",object,fLnot,LISP
35       ,1,1,NONE,OO,OO,OO,OO,(object x0),"")
36    
 DEFUNO("NOT",object,fLnot,LISP  
    ,1,1,NONE,OO,OO,OO,OO,Lnull,"")(x0)  
 object x0;  
37  {  {
38      /* 1 args */      /* 1 args */
39    
# Line 44  object x0; Line 44  object x0;
44          RETURN1(x0);          RETURN1(x0);
45  }  }
46    
47  DEFUNO("SYMBOLP",object,fLsymbolp,LISP  DEFUNO_NEW("SYMBOLP",object,fLsymbolp,LISP
48     ,1,1,NONE,OO,OO,OO,OO,Lsymbolp,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lsymbolp,(object x0),"")
49  object x0;  
50  {  {
51          /* 1 args */          /* 1 args */
52    
# Line 57  object x0; Line 57  object x0;
57          RETURN1(x0);          RETURN1(x0);
58  }  }
59    
60  DEFUNO("ATOM",object,fLatom  ,LISP  DEFUNO_NEW("ATOM",object,fLatom  ,LISP
61     ,1,1,NONE,OO,OO,OO,OO,Latom  ,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Latom,(object x0),"")
62  object x0;  
63  {  {
64          /* 1 args */          /* 1 args */
65    
# Line 70  object x0; Line 70  object x0;
70          RETURN1(x0);          RETURN1(x0);
71  }  }
72    
73  DEFUNO("CONSP",object,fLconsp,LISP  DEFUNO_NEW("CONSP",object,fLconsp,LISP
74     ,1,1,NONE,OO,OO,OO,OO,Lconsp,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lconsp,(object x0),"")
75  object x0;  
76  {  {
77          /* 1 args */          /* 1 args */
78    
# Line 83  object x0; Line 83  object x0;
83          RETURN1(x0);          RETURN1(x0);
84  }  }
85    
86  DEFUNO("LISTP",object,fLlistp,LISP  DEFUNO_NEW("LISTP",object,fLlistp,LISP
87     ,1,1,NONE,OO,OO,OO,OO,Llistp,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Llistp,(object x0),"")
88  object x0;  
89  {  {
90          /* 1 args */          /* 1 args */
91    
# Line 96  object x0; Line 96  object x0;
96          RETURN1(x0);          RETURN1(x0);
97  }  }
98    
99  DEFUNO("NUMBERP",object,fLnumberp,LISP  DEFUNO_NEW("NUMBERP",object,fLnumberp,LISP
100     ,1,1,NONE,OO,OO,OO,OO,Lnumberp,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lnumberp,(object x0),"")
101  object x0;  
102  {  {
103          enum type t;          enum type t;
104          /* 1 args */          /* 1 args */
# Line 113  object x0; Line 113  object x0;
113          RETURN1(x0);          RETURN1(x0);
114  }  }
115    
116  DEFUNO("INTEGERP",object,fLintegerp ,LISP  DEFUNO_NEW("INTEGERP",object,fLintegerp ,LISP
117     ,1,1,NONE,OO,OO,OO,OO,Lintegerp ,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lintegerp,(object x0),"")
118  object x0;  
119  {  {
120          enum type t;          enum type t;
121          /* 1 args */          /* 1 args */
# Line 128  object x0; Line 128  object x0;
128          RETURN1(x0);          RETURN1(x0);
129  }  }
130    
131  DEFUNO("RATIONALP",object,fLrationalp,LISP  DEFUN_NEW("RATIONALP",object,fLrationalp,LISP
132     ,1,1,NONE,OO,OO,OO,OO,Lrationalp,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,(object x0),"")
133  object x0;  
134  {  {
135          enum type t;          enum type t;
136          /* 1 args */          /* 1 args */
# Line 144  object x0; Line 144  object x0;
144  }  }
145    
146    
147  DEFUN("REALP",object,fLrealp,LISP  DEFUN_NEW("REALP",object,fLrealp,LISP
148     ,1,1,NONE,OO,OO,OO,OO,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,(object x0),"")
 object x0;  
149  {  {
150          enum type t;          enum type t;
151          t = type_of(x0);          t = type_of(x0);
# Line 160  object x0; Line 159  object x0;
159    
160    
161    
162  DEFUNO("FLOATP",object,fLfloatp,LISP  DEFUNO_NEW("FLOATP",object,fLfloatp,LISP
163     ,1,1,NONE,OO,OO,OO,OO,Lfloatp,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lfloatp,(object x0),"")
164  object x0;  
165  {  {
166          enum type t;          enum type t;
167          /* 1 args */          /* 1 args */
# Line 174  object x0; Line 173  object x0;
173                  x0 = Cnil;                  x0 = Cnil;
174  RETURN1(x0);}  RETURN1(x0);}
175    
176  DEFUNO("COMPLEXP",object,fLcomplexp,LISP  DEFUNO_NEW("COMPLEXP",object,fLcomplexp,LISP
177     ,1,1,NONE,OO,OO,OO,OO,Lcomplexp,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lcomplexp,(object x0),"")
178  object x0;  
179  {  {
180          /* 1 args */          /* 1 args */
181    
# Line 186  object x0; Line 185  object x0;
185                  x0 = Cnil;                  x0 = Cnil;
186  RETURN1(x0);}  RETURN1(x0);}
187    
188  DEFUNO("CHARACTERP",object,fLcharacterp,LISP  DEFUNO_NEW("CHARACTERP",object,fLcharacterp,LISP
189     ,1,1,NONE,OO,OO,OO,OO,Lcharacterp,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lcharacterp,(object x0),"")
190  object x0;  
191  {  {
192          /* 1 args */          /* 1 args */
193    
# Line 198  object x0; Line 197  object x0;
197                  x0 = Cnil;                  x0 = Cnil;
198  RETURN1(x0);}  RETURN1(x0);}
199    
200  DEFUNO("STRINGP",object,fLstringp ,LISP  DEFUNO_NEW("STRINGP",object,fLstringp ,LISP
201     ,1,1,NONE,OO,OO,OO,OO,Lstringp ,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lstringp,(object x0),"")
202  object x0;  
203  {  {
204          /* 1 args */          /* 1 args */
205    
# Line 210  object x0; Line 209  object x0;
209                  x0 = Cnil;                  x0 = Cnil;
210  RETURN1(x0);}  RETURN1(x0);}
211    
212  DEFUNO("BIT-VECTOR-P",object,fLbit_vector_p,LISP  DEFUNO_NEW("BIT-VECTOR-P",object,fLbit_vector_p,LISP
213     ,1,1,NONE,OO,OO,OO,OO,Lbit_vector_p,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lbit_vector_p,(object x0),"")
214  object x0;  
215  {  {
216          /* 1 args */          /* 1 args */
217    
# Line 222  object x0; Line 221  object x0;
221                  x0 = Cnil;                  x0 = Cnil;
222  RETURN1(x0);}  RETURN1(x0);}
223    
224  DEFUNO("VECTORP",object,fLvectorp,LISP  DEFUNO_NEW("VECTORP",object,fLvectorp,LISP
225     ,1,1,NONE,OO,OO,OO,OO,Lvectorp,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lvectorp,(object x0),"")
226  object x0;  
227  {  {
228          enum type t;          enum type t;
229          /* 1 args */          /* 1 args */
# Line 236  object x0; Line 235  object x0;
235                  x0 = Cnil;                  x0 = Cnil;
236  RETURN1(x0);}  RETURN1(x0);}
237    
238  DEFUNO("SIMPLE-STRING-P",object,fLsimple_string_p,LISP  DEFUNO_NEW("SIMPLE-STRING-P",object,fLsimple_string_p,LISP
239     ,1,1,NONE,OO,OO,OO,OO,Lsimple_string_p,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lsimple_string_p,(object x0),"")
240  object x0;  
241  {  {
242          /* 1 args */          /* 1 args */
243    
# Line 251  object x0; Line 250  object x0;
250                  x0 = Cnil;                  x0 = Cnil;
251  RETURN1(x0);}  RETURN1(x0);}
252    
253  DEFUNO("SIMPLE-BIT-VECTOR-P",object,fLsimple_bit_vector_p ,LISP  DEFUNO_NEW("SIMPLE-BIT-VECTOR-P",object,fLsimple_bit_vector_p ,LISP
254     ,1,1,NONE,OO,OO,OO,OO,Lsimple_bit_vector_p ,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lsimple_bit_vector_p ,(object x0),"")
255  object x0;  
256  {  {
257          /* 1 args */          /* 1 args */
258    
# Line 266  object x0; Line 265  object x0;
265                  x0 = Cnil;                  x0 = Cnil;
266  RETURN1(x0);}  RETURN1(x0);}
267    
268  DEFUNO("SIMPLE-VECTOR-P",object,fLsimple_vector_p ,LISP  DEFUNO_NEW("SIMPLE-VECTOR-P",object,fLsimple_vector_p ,LISP
269     ,1,1,NONE,OO,OO,OO,OO,Lsimple_vector_p ,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lsimple_vector_p ,(object x0),"")
270  object x0;  
271  {  {
272          enum type t;          enum type t;
273          /* 1 args */          /* 1 args */
# Line 284  object x0; Line 283  object x0;
283                  x0 = Cnil;                  x0 = Cnil;
284  RETURN1(x0);}  RETURN1(x0);}
285    
286  DEFUNO("ARRAYP",object,fLarrayp ,LISP  DEFUNO_NEW("ARRAYP",object,fLarrayp ,LISP
287     ,1,1,NONE,OO,OO,OO,OO,Larrayp ,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Larrayp,(object x0),"")
288  object x0;  
289  {  {
290          enum type t;          enum type t;
291          /* 1 args */          /* 1 args */
# Line 299  object x0; Line 298  object x0;
298                  x0 = Cnil;                  x0 = Cnil;
299  RETURN1(x0);}  RETURN1(x0);}
300    
301  DEFUNO("PACKAGEP",object,fLpackagep ,LISP  DEFUNO_NEW("PACKAGEP",object,fLpackagep ,LISP
302     ,1,1,NONE,OO,OO,OO,OO,Lpackagep ,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lpackagep ,(object x0),"")
303  object x0;  
304  {  {
305          /* 1 args */          /* 1 args */
306    
# Line 311  object x0; Line 310  object x0;
310                  x0 = Cnil;                  x0 = Cnil;
311  RETURN1(x0);}  RETURN1(x0);}
312    
313  DEFUNO("FUNCTIONP",object,fLfunctionp,LISP  DEFUNO_NEW("FUNCTIONP",object,fLfunctionp,LISP
314     ,1,1,NONE,OO,OO,OO,OO,Lfunctionp,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lfunctionp,(object x0),"")
315  object x0;  
316  {  {
317          enum type t;          enum type t;
318          object x;          object x;
# Line 342  object x0; Line 341  object x0;
341                  x0 = Cnil;                  x0 = Cnil;
342  RETURN1(x0);}  RETURN1(x0);}
343    
344  DEFUNO("COMPILED-FUNCTION-P",object,fLcompiled_function_p,LISP  DEFUNO_NEW("COMPILED-FUNCTION-P",object,fLcompiled_function_p,LISP
345     ,1,1,NONE,OO,OO,OO,OO,Lcompiled_function_p,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lcompiled_function_p,(object x0),"")
346  object x0;  
347  {  {
348          /* 1 args */;          /* 1 args */;
349    
# Line 363  object x0; Line 362  object x0;
362                  x0 = Cnil;                  x0 = Cnil;
363  RETURN1(x0);}  RETURN1(x0);}
364    
365  DEFUNO("COMMONP",object,fLcommonp,LISP  DEFUNO_NEW("COMMONP",object,fLcommonp,LISP
366     ,1,1,NONE,OO,OO,OO,OO,Lcommonp,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,void,Lcommonp,(object x0),"")
367  object x0;  
368  {  {
369          /* 1 args */;          /* 1 args */;
370    
# Line 375  object x0; Line 374  object x0;
374                  x0 = Cnil;                  x0 = Cnil;
375  RETURN1(x0);}  RETURN1(x0);}
376    
377  DEFUNO("EQ",object,fLeq,LISP  DEFUNO_NEW("EQ",object,fLeq,LISP
378     ,2,2,NONE,OO,OO,OO,OO,Leq,"")(x0,x1)     ,2,2,NONE,OO,OO,OO,OO,void,Leq,(object x0,object x1),"")
379  object x0,x1;  
380  {  {
381    /* 2 args */    /* 2 args */
382    
# Line 451  eql(object x, object y) Line 450  eql(object x, object y)
450          return(FALSE);          return(FALSE);
451  }  }
452    
453  DEFUNO("EQL",object,fLeql,LISP  DEFUNO_NEW("EQL",object,fLeql,LISP
454     ,2,2,NONE,OO,OO,OO,OO,Leql,"")(x0,x1)     ,2,2,NONE,OO,OO,OO,OO,void,Leql,(object x0,object x1),"")
455  object x0,x1;  
456  {  {
457          /* 2 args */          /* 2 args */
458    
# Line 541  BEGIN: Line 540  BEGIN:
540          return(eql(x,y));          return(eql(x,y));
541  }  }
542    
543  DEFUNO("EQUAL",object,fLequal,LISP  DEFUNO_NEW("EQUAL",object,fLequal,LISP
544     ,2,2,NONE,OO,OO,OO,OO,Lequal,"")(x0,x1)     ,2,2,NONE,OO,OO,OO,OO,void,Lequal,(object x0,object x1),"")
545  object x0,x1;  
546  {  {
547          /* 2 args */          /* 2 args */
548    
# Line 682  ARRAY: Line 681  ARRAY:
681          }          }
682  }  }
683    
684  DEFUNO("EQUALP",object,fLequalp,LISP  DEFUNO_NEW("EQUALP",object,fLequalp,LISP
685     ,2,2,NONE,OO,OO,OO,OO,Lequalp,"")(x0,x1)     ,2,2,NONE,OO,OO,OO,OO,void,Lequalp,(object x0,object x1),"")
686  object x0,x1;  
687  {  {
688          /* 2 args */          /* 2 args */
689    
# Line 695  object x0,x1; Line 694  object x0,x1;
694          RETURN1(x0);          RETURN1(x0);
695  }  }
696    
697  void  static void
698  Fand(object args)  Fand(object args)
699  {  {
700    
# Line 719  Fand(object args) Line 718  Fand(object args)
718          eval(MMcar(args));          eval(MMcar(args));
719  }  }
720    
721  void  static void
722  For(object args)  For(object args)
723  {  {
724    
# Line 795  BEGIN: Line 794  BEGIN:
794          return(FALSE);          return(FALSE);
795  }  }
796    
797  DEFUNO("CONTAINS-SHARP-COMMA",object,fScontains_sharp_comma,SI  DEFUN_NEW("CONTAINS-SHARP-COMMA",object,fScontains_sharp_comma,SI
798     ,1,1,NONE,OO,OO,OO,OO,siLcontains_sharp_comma,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,(object x0),"")
799  object x0;  
800  {  {
801          /* 1 args */          /* 1 args */
802    
# Line 808  object x0; Line 807  object x0;
807          RETURN1(x0);          RETURN1(x0);
808  }  }
809    
810  DEFUNO("SPICEP",object,fSspicep  ,SI  DEFUN_NEW("SPICEP",object,fSspicep  ,SI
811     ,1,1,NONE,OO,OO,OO,OO,siLspicep  ,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,(object x0),"")
812  object x0;  
813  {  {
814          /* 1 args */          /* 1 args */
815          if (type_of(x0) == t_spice)          if (type_of(x0) == t_spice)
# Line 820  object x0; Line 819  object x0;
819          RETURN1(x0);          RETURN1(x0);
820  }  }
821    
822  DEFUNO("FIXNUMP",object,fSfixnump,SI  DEFUN_NEW("FIXNUMP",object,fSfixnump,SI
823     ,1,1,NONE,OO,OO,OO,OO,siLfixnump,"")(x0)     ,1,1,NONE,OO,OO,OO,OO,(object x0),"")
824  object x0;  
825  {  {
826          /* 1 args */          /* 1 args */
827          if (type_of(x0) == t_fixnum)          if (type_of(x0) == t_fixnum)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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