
DEF_ORDINARY("COMMON",sLcommon,LISP,"")
DEF_ORDINARY("NULL",sLnull,LISP,"")
DEF_ORDINARY("CONS",sLcons,LISP,"")
DEF_ORDINARY("LIST",sLlist,LISP,"")
DEF_ORDINARY("SYMBOL",sLsymbol,LISP,"")
DEF_ORDINARY("ARRAY",sLarray,LISP,"")
DEF_ORDINARY("VECTOR",sLvector,LISP,"")
DEF_ORDINARY("BIT-VECTOR",sLbit_vector,LISP,"")
DEF_ORDINARY("STRING",sLstring,LISP,"")
DEF_ORDINARY("SEQUENCE",sLsequence,LISP,"")
DEF_ORDINARY("SIMPLE-ARRAY",sLsimple_array,LISP,"")
DEF_ORDINARY("SIMPLE-VECTOR",sLsimple_vector,LISP,"")
DEF_ORDINARY("SIMPLE-BIT-VECTOR",sLsimple_bit_vector,LISP,"")
DEF_ORDINARY("SIMPLE-STRING",sLsimple_string,LISP,"")
DEF_ORDINARY("FUNCTION",sLfunction,LISP,"")
DEF_ORDINARY("COMPILED-FUNCTION",sLcompiled_function,LISP,"")
DEF_ORDINARY("PATHNAME",sLpathname,LISP,"")
DEF_ORDINARY("CHARACTER",sLcharacter,LISP,"")
DEF_ORDINARY("NUMBER",sLnumber,LISP,"")
DEF_ORDINARY("RATIONAL",sLrational,LISP,"")
DEF_ORDINARY("FLOAT",sLfloat,LISP,"")
DEF_ORDINARY("STRING-CHAR",sLstring_char,LISP,"")
DEF_ORDINARY("INTEGER",sLinteger,LISP,"")
DEF_ORDINARY("RATIO",sLratio,LISP,"")
DEF_ORDINARY("SHORT-FLOAT",sLshort_float,LISP,"")
DEF_ORDINARY("STANDARD-CHAR",sLstandard_char,LISP,"")
DEF_ORDINARY("FIXNUM",sLfixnum,LISP,"")
DEF_ORDINARY("COMPLEX",sLcomplex,LISP,"")
DEF_ORDINARY("SINGLE-FLOAT",sLsingle_float,LISP,"")
DEF_ORDINARY("PACKAGE",sLpackage,LISP,"")
DEF_ORDINARY("BIGNUM",sLbignum,LISP,"")
DEF_ORDINARY("RANDOM-STATE",sLrandom_state,LISP,"")
DEF_ORDINARY("DOUBLE-FLOAT",sLdouble_float,LISP,"")
DEF_ORDINARY("STREAM",sLstream,LISP,"")
DEF_ORDINARY("BIT",sLbit,LISP,"")
DEF_ORDINARY("READTABLE",sLreadtable,LISP,"")
DEF_ORDINARY("LONG-FLOAT",sLlong_float,LISP,"")
DEF_ORDINARY("HASH-TABLE",sLhash_table,LISP,"")
DEF_ORDINARY("KEYWORD",sLkeyword,LISP,"")
DEF_ORDINARY("STRUCTURE",sLstructure,LISP,"")
DEF_ORDINARY("SATISFIES",sLsatisfies,LISP,"")
DEF_ORDINARY("MEMBER",sLmember,LISP,"")
DEF_ORDINARY("NOT",sLnot,LISP,"")
DEF_ORDINARY("OR",sLor,LISP,"")
DEF_ORDINARY("AND",sLand,LISP,"")
DEF_ORDINARY("VALUES",sLvalues,LISP,"")
DEF_ORDINARY("MOD",sLmod,LISP,"")
DEF_ORDINARY("SIGNED-BYTE",sLsigned_byte,LISP,"")
DEF_ORDINARY("UNSIGNED-BYTE",sLunsigned_byte,LISP,"")
DEF_ORDINARY("SIGNED-CHAR",sLsigned_char,LISP,"")
DEF_ORDINARY("UNSIGNED-CHAR",sLunsigned_char,LISP,"")
DEF_ORDINARY("SIGNED-SHORT",sLsigned_short,LISP,"")
DEF_ORDINARY("UNSIGNED-SHORT",sLunsigned_short,LISP,"")
DEF_ORDINARY("*",sLA,LISP,"")
DEF_ORDINARY("PLUSP",sLplusp,LISP,"")
DEFCONST("CHAR-SIZE",sSchar_size,SI,(object)(small_fixnum_table+ 1024 +( 8  )) ,"Size in bits of a character")
DEFCONST("SHORT-SIZE",sSshort_size,SI,(object)(small_fixnum_table+ 1024 +( 8 *sizeof(short) )) ,"Size in bits of a short integer")