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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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 */ |
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 */ |
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 */ |
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); |
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 */ |
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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 */ |
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 |
|
|
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 |
|
|
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 */ |
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 */ |
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 |
|
|
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; |
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
694 |
RETURN1(x0); |
RETURN1(x0); |
695 |
} |
} |
696 |
|
|
697 |
void |
static void |
698 |
Fand(object args) |
Fand(object args) |
699 |
{ |
{ |
700 |
|
|
718 |
eval(MMcar(args)); |
eval(MMcar(args)); |
719 |
} |
} |
720 |
|
|
721 |
void |
static void |
722 |
For(object args) |
For(object args) |
723 |
{ |
{ |
724 |
|
|
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 |
|
|
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) |
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) |