Ignore:
Timestamp:
05/04/11 19:13:32 (10 years ago)
Author:
ehuelsmann
Message:

Fix 147: *PRINT-CASE* setting affects COMPILE-FILE.

Found by Dan Corkill.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/dump-form.lisp

    r12711 r13274  
    124124(defun dump-form (form stream)
    125125  (let ((*print-fasl* t)
     126        (*print-array* t)
     127        (*print-base* 10)
     128        (*print-case* :upcase)
     129        (*print-circle* nil)
     130        (*print-escape* t)
     131        (*print-gensym* t)
     132        (*print-length* nil)
    126133        (*print-level* nil)
    127         (*print-length* nil)
    128         (*print-circle* nil)
     134        (*print-lines* nil)
     135        (*print-pretty* nil)
     136        (*print-radix* nil)
     137        (*print-readably* t)
     138        (*print-right-margin* nil)
    129139        (*print-structure* t)
     140
    130141        ;; make sure to write all floats with their exponent marker:
    131142        ;; the dump-time default may not be the same at load-time
    132         (*read-default-float-format* nil))
     143        (*read-default-float-format* nil)
     144
     145        ;; these values are also bound by WITH-STANDARD-IO-SYNTAX,
     146        ;; but not used by our reader/printer, so don't bind them,
     147        ;; for efficiency reasons.
     148        ;;        (*read-eval* t)
     149        ;;        (*read-suppress* nil)
     150        ;;        (*print-miser-width* nil)
     151        ;;        (*print-pprint-dispatch* (copy-pprint-dispatch nil))
     152        ;;        (*read-base* 10)
     153        ;;        (*read-default-float-format* 'single-float)
     154        ;;        (*readtable* (copy-readtable nil))
     155        )
    133156    (dump-object form stream)))
    134157
Note: See TracChangeset for help on using the changeset viewer.