
DEFUNO("BYE",int,fLbye,LISP
   ,0,1,0 ,II,OO,OO,OO,Lby,"")
DEFUNO("IDENTITY",object,fLidentity,LISP
   ,1,1,0 ,OO,OO,OO,OO,Lidentity,"")
DEFUNO("LISP-IMPLEMENTATION-VERSION",object,fLlisp_implementation_version,LISP
   ,0,0,0 ,OO,OO,OO,OO,Llisp_implementation_version,"")
DEFVAR("*LISP-MAXPAGES*",sSAlisp_maxpagesA,SI,make_fixnum(real_maxpage),"")
DEFVAR("*SYSTEM-DIRECTORY*",sSAsystem_directoryA,SI,make_simple_string(system_directory),"")
DEFVAR("*MULTIPLY-STACKS*",sSAmultiply_stacksA,SI,((object)&Cnil_body) ,"")
DEF_ORDINARY("TOP-LEVEL",sStop_level,SI,"")
DEFVAR("*COMMAND-ARGS*",sSAcommand_argsA,SI,((object)&Cnil_body)  ,"")