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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.