
DEFUN("NULL",object,fLnot,LISP
   ,1,1,0 ,OO,OO,OO,OO,"")
DEFUNO("NOT",object,fLnot,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lnull,"")
DEFUNO("SYMBOLP",object,fLsymbolp,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lsymbolp,"")
DEFUNO("ATOM",object,fLatom  ,LISP
   ,1,1,0 ,OO,OO,OO,OO,Latom  ,"")
DEFUNO("CONSP",object,fLconsp,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lconsp,"")
DEFUNO("LISTP",object,fLlistp,LISP
   ,1,1,0 ,OO,OO,OO,OO,Llistp,"")
DEFUNO("NUMBERP",object,fLnumberp,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lnumberp,"")
DEFUNO("INTEGERP",object,fLintegerp ,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lintegerp ,"")
DEFUNO("RATIONALP",object,fLrationalp,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lrationalp,"")
DEFUN("REALP",object,fLrealp,LISP
   ,1,1,0 ,OO,OO,OO,OO,"")
DEFUNO("FLOATP",object,fLfloatp,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lfloatp,"")
DEFUNO("COMPLEXP",object,fLcomplexp,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lcomplexp,"")
DEFUNO("CHARACTERP",object,fLcharacterp,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lcharacterp,"")
DEFUNO("STRINGP",object,fLstringp ,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lstringp ,"")
DEFUNO("BIT-VECTOR-P",object,fLbit_vector_p,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lbit_vector_p,"")
DEFUNO("VECTORP",object,fLvectorp,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lvectorp,"")
DEFUNO("SIMPLE-STRING-P",object,fLsimple_string_p,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lsimple_string_p,"")
DEFUNO("SIMPLE-BIT-VECTOR-P",object,fLsimple_bit_vector_p ,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lsimple_bit_vector_p ,"")
DEFUNO("SIMPLE-VECTOR-P",object,fLsimple_vector_p ,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lsimple_vector_p ,"")
DEFUNO("ARRAYP",object,fLarrayp ,LISP
   ,1,1,0 ,OO,OO,OO,OO,Larrayp ,"")
DEFUNO("PACKAGEP",object,fLpackagep ,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lpackagep ,"")
DEFUNO("FUNCTIONP",object,fLfunctionp,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lfunctionp,"")
DEFUNO("COMPILED-FUNCTION-P",object,fLcompiled_function_p,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lcompiled_function_p,"")
DEFUNO("COMMONP",object,fLcommonp,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lcommonp,"")
DEFUNO("EQ",object,fLeq,LISP
   ,2,2,0 ,OO,OO,OO,OO,Leq,"")
DEFUNO("EQL",object,fLeql,LISP
   ,2,2,0 ,OO,OO,OO,OO,Leql,"")
DEFUNO("EQUAL",object,fLequal,LISP
   ,2,2,0 ,OO,OO,OO,OO,Lequal,"")
DEFUNO("EQUALP",object,fLequalp,LISP
   ,2,2,0 ,OO,OO,OO,OO,Lequalp,"")
DEFUNO("CONTAINS-SHARP-COMMA",object,fScontains_sharp_comma,SI
   ,1,1,0 ,OO,OO,OO,OO,siLcontains_sharp_comma,"")
DEFUNO("SPICEP",object,fSspicep  ,SI
   ,1,1,0 ,OO,OO,OO,OO,siLspicep  ,"")
DEFUNO("FIXNUMP",object,fSfixnump,SI
   ,1,1,0 ,OO,OO,OO,OO,siLfixnump,"")