Bind the reader and printer control variables to values that enable read to reliably read the results of print. These values are:

*package*

The :common-lisp-user package

*print-array*

t

*print-base*

10

*print-case*

:upcase or :downcase

*print-circle*

nil

*print-escape*

t

*print-gensym*

t

*print-length*

nil

*print-level*

nil

*print-lines*

nil

*print-miser-width*

nil

*print-pretty*

nil

*print-radix*

nil

*print-readably*

t

*print-right-margin*

nil

*read-base*

10

*read-default-float-format*

single-float

*read-eval*

t

*read-suppress*

nil

*readtable*

The standard readtable.