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),"") |
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),"") |
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; |
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; |
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 |
|
|