Changeset 15008

Timestamp:

Oct 3, 2011, 10:18:59 AM (13 years ago)

Author:

R. Matthew Emerson

Message:

In WITH-STANDARD-IO-SYNTAX, bind *PRINT-ABBREVIATE-QUOTE* to nil.

See ticket:886.

File:

• trunk/source/lib/macros.lisp (modified) (2 diffs)

trunk/source/lib/macros.lisp

@@ -1601 +1601 @@
            (*print-length* nil)
            (*print-level* nil)
-           (*print-lines* nil) ; This doesn't exist as of 5/15/90 - does now
+           (*print-lines* nil)
            (*print-miser-width* nil)
            (*print-pprint-dispatch* nil)
@@ -1610 +1610 @@
            (*read-base* 10.)
            (*read-default-float-format* 'single-float)
-           (*read-eval* t) ; Also MIA as of 5/15/90
+           (*read-eval* t)
            (*read-suppress* nil)
            (*readtable* %standard-readtable%)
-           ; ccl extensions (see l1-io.lisp)
-           (*print-abbreviate-quote* t)
+           ;; ccl extensions (see l1-io.lisp)
+           (*print-abbreviate-quote* nil)
            (*print-structure* t)
            (*print-simple-vector* nil)