Changeset 13275


Ignore:
Timestamp:
05/07/11 23:31:35 (10 years ago)
Author:
ehuelsmann
Message:

Fix the remainder of ticket #147: make sure we write proper-case
symbol and package names to allow case sensitive reading of symbols
as required by (e.g.) Qi.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r13149 r13275  
    593593            (write "; -*- Mode: Lisp -*-" :escape nil :stream out)
    594594            (%stream-terpri out)
    595             (let ((*package* (find-package '#:cl)))
     595            (let ((*package* (find-package '#:cl))
     596                  (*print-fasl* t)
     597                  (*print-array* t)
     598                  (*print-base* 10)
     599                  (*print-case* :upcase)
     600                  (*print-circle* nil)
     601                  (*print-escape* t)
     602                  (*print-gensym* t)
     603                  (*print-length* nil)
     604                  (*print-level* nil)
     605                  (*print-lines* nil)
     606                  (*print-pretty* nil)
     607                  (*print-radix* nil)
     608                  (*print-readably* t)
     609                  (*print-right-margin* nil)
     610                  (*print-structure* t)
     611
     612                  ;; make sure to write all floats with their exponent marker:
     613                  ;; the dump-time default may not be the same at load-time
     614
     615                  (*read-default-float-format* nil))
     616
     617              ;; these values are also bound by WITH-STANDARD-IO-SYNTAX,
     618              ;; but not used by our reader/printer, so don't bind them,
     619              ;; for efficiency reasons.
     620              ;;        (*read-eval* t)
     621              ;;        (*read-suppress* nil)
     622              ;;        (*print-miser-width* nil)
     623              ;;        (*print-pprint-dispatch* (copy-pprint-dispatch nil))
     624              ;;        (*read-base* 10)
     625              ;;        (*read-default-float-format* 'single-float)
     626              ;;        (*readtable* (copy-readtable nil))
     627
    596628              (write (list 'init-fasl :version *fasl-version*)
    597629                     :stream out)
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r13257 r13275  
    930930(defun emit-constructor-lambda-list (lambda-list)
    931931  (if lambda-list
    932       (let* ((*print-level* nil)
    933              (*print-length* nil)
    934              (s (sys::%format nil "~S" lambda-list)))
    935         (emit 'ldc (pool-string s))
    936         (emit-invokestatic +lisp+ "readObjectFromString"
    937                            (list +java-string+) +lisp-object+))
     932      (serialize-object lambda-list)
    938933      (emit-push-nil)))
    939934
Note: See TracChangeset for help on using the changeset viewer.