
DO_MARK:

DO_INDENT:

DEF_ORDINARY("UPCASE",sKupcase,KEYWORD,"")
DEF_ORDINARY("DOWNCASE",sKdowncase,KEYWORD,"")
DEF_ORDINARY("CAPITALIZE",sKcapitalize,KEYWORD,"")
DEF_ORDINARY("STREAM",sKstream,KEYWORD,"")
DEF_ORDINARY("ESCAPE",sKescape,KEYWORD,"")
DEF_ORDINARY("PRETTY",sKpretty,KEYWORD,"")
DEF_ORDINARY("CIRCLE",sKcircle,KEYWORD,"")
DEF_ORDINARY("BASE",sKbase,KEYWORD,"")
DEF_ORDINARY("RADIX",sKradix,KEYWORD,"")
DEF_ORDINARY("CASE",sKcase,KEYWORD,"")
DEF_ORDINARY("GENSYM",sKgensym,KEYWORD,"")
DEF_ORDINARY("LEVEL",sKlevel,KEYWORD,"")
DEF_ORDINARY("LENGTH",sKlength,KEYWORD,"")
DEF_ORDINARY("ARRAY",sKarray,KEYWORD,"")
DEFVAR("*PRINT-ESCAPE*",sLAprint_escapeA,LISP,Ct,"")
DEFVAR("*PRINT-PRETTY*",sLAprint_prettyA,LISP,Ct,"")
DEFVAR("*PRINT-CIRCLE*",sLAprint_circleA,LISP,Cnil,"")
DEFVAR("*PRINT-BASE*",sLAprint_baseA,LISP,make_fixnum(10),"")
DEFVAR("*PRINT-RADIX*",sLAprint_radixA,LISP,Cnil,"")
DEFVAR("*PRINT-CASE*",sLAprint_caseA,LISP,sKupcase,"")
DEFVAR("*PRINT-GENSYM*",sLAprint_gensymA,LISP,Ct,"")
DEFVAR("*PRINT-LEVEL*",sLAprint_levelA,LISP,Cnil,"")
DEFVAR("*PRINT-LENGTH*",sLAprint_lengthA,LISP,Cnil,"")
DEFVAR("*PRINT-ARRAY*",sLAprint_arrayA,LISP,Ct,"")
DEFVAR("*PRINT-PACKAGE*",sSAprint_packageA,SI,Cnil,"")
DEFVAR("*PRINT-STRUCTURE*",sSAprint_structureA,SI,Cnil,"")
DEF_ORDINARY("PRETTY-PRINT-FORMAT",sSpretty_print_format,SI,"")
DEFVAR("*PRINT-NANS*",sSAprint_nansA,SI,Cnil,"")