247 |
DEFUNO_NEW("SIMPLE-STRING-P",object,fLsimple_string_p,LISP |
DEFUNO_NEW("SIMPLE-STRING-P",object,fLsimple_string_p,LISP |
248 |
,1,1,NONE,OO,OO,OO,OO,void,Lsimple_string_p,(object x0),"") { |
,1,1,NONE,OO,OO,OO,OO,void,Lsimple_string_p,(object x0),"") { |
249 |
|
|
250 |
RETURN1(fLstringp(x0)); |
RETURN1(FFN(fLstringp)(x0)); |
251 |
|
|
252 |
} |
} |
253 |
|
|
268 |
DEFUNO_NEW("SIMPLE-BIT-VECTOR-P",object,fLsimple_bit_vector_p ,LISP |
DEFUNO_NEW("SIMPLE-BIT-VECTOR-P",object,fLsimple_bit_vector_p ,LISP |
269 |
,1,1,NONE,OO,OO,OO,OO,void,Lsimple_bit_vector_p ,(object x0),"") { |
,1,1,NONE,OO,OO,OO,OO,void,Lsimple_bit_vector_p ,(object x0),"") { |
270 |
|
|
271 |
RETURN1(fLbit_vector_p(x0)); |
RETURN1(FFN(fLbit_vector_p)(x0)); |
272 |
|
|
273 |
} |
} |
274 |
|
|
291 |
DEFUNO_NEW("SIMPLE-VECTOR-P",object,fLsimple_vector_p ,LISP |
DEFUNO_NEW("SIMPLE-VECTOR-P",object,fLsimple_vector_p ,LISP |
292 |
,1,1,NONE,OO,OO,OO,OO,void,Lsimple_vector_p ,(object x0),"") { |
,1,1,NONE,OO,OO,OO,OO,void,Lsimple_vector_p ,(object x0),"") { |
293 |
|
|
294 |
RETURN1(fLvectorp(x0)); |
RETURN1(FFN(fLvectorp)(x0)); |
295 |
|
|
296 |
} |
} |
297 |
|
|