/[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.6.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.6.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  #include <stdlib.h>  #include <stdlib.h>
29  #include "include.h"  #include "include.h"
30    
31  DEFUNO_NEW("NULL",object,fLnot,LISP  DEFUNO_NEW("NULL",object,fLnull,LISP
32            ,1,1,NONE,OO,OO,OO,OO,void,Lnull,(object x0),"");            ,1,1,NONE,OO,OO,OO,OO,void,Lnull,(object x0),"")
33    {
34        /* 1 args */
35    
36            if (x0 == Cnil)
37                    x0 = Ct;
38            else
39                    x0 = Cnil;
40            RETURN1(x0);
41    }
42    
43  DEFUN_NEW("NOT",object,fLnot,LISP  DEFUN_NEW("NOT",object,fLnot,LISP
44     ,1,1,NONE,OO,OO,OO,OO,(object x0),"")     ,1,1,NONE,OO,OO,OO,OO,(object x0),"")
# Line 340  DEFUNO_NEW("FUNCTIONP",object,fLfunction Line 349  DEFUNO_NEW("FUNCTIONP",object,fLfunction
349          } else          } else
350                  x0 = Cnil;                  x0 = Cnil;
351  RETURN1(x0);}  RETURN1(x0);}
352    #ifdef STATIC_FUNCTION_POINTERS
353    object
354    fLfunctionp(object x) {
355      return FFN(fLfunctionp)(x);
356    }
357    #endif
358    
359    
360  DEFUNO_NEW("COMPILED-FUNCTION-P",object,fLcompiled_function_p,LISP  DEFUNO_NEW("COMPILED-FUNCTION-P",object,fLcompiled_function_p,LISP
361     ,1,1,NONE,OO,OO,OO,OO,void,Lcompiled_function_p,(object x0),"")     ,1,1,NONE,OO,OO,OO,OO,void,Lcompiled_function_p,(object x0),"")
# Line 698  DEFUNO_NEW("EQUALP",object,fLequalp,LISP Line 714  DEFUNO_NEW("EQUALP",object,fLequalp,LISP
714  }  }
715    
716  static void  static void
717  Fand(object args)  FFN(Fand)(object args)
718  {  {
719    
720          object *top = vs_top;          object *top = vs_top;
# Line 722  Fand(object args) Line 738  Fand(object args)
738  }  }
739    
740  static void  static void
741  For(object args)  FFN(For)(object args)
742  {  {
743    
744          object *top = vs_top;          object *top = vs_top;
# Line 838  void Line 854  void
854  gcl_init_predicate_function(void)  gcl_init_predicate_function(void)
855  {  {
856    
857          make_special_form("AND",Fand);          sLand=make_special_form("AND",Fand);
858          make_special_form("OR",For);          sLor=make_special_form("OR",For);
859    
860    
861    

Legend:
Removed from v.1.6.6.1  
changed lines
  Added in v.1.6.6.2

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