merged trunk

diff --cc src/compiler.lisp
index e870dce,7d92b9e..df148d9
--- 1/src/compiler.lisp
--- 2/src/compiler.lisp
+++ b/src/compiler.lisp
@@@ -580,7 -580,7 +580,7 @@@
    #+jscl
    (let ((package (symbol-package symbol)))
      (if (null package)
-         (code "{name: " (dump-string (symbol-name symbol)) "}")
 -        (code "(new Symbol(" (dump-symbol (symbol-name symbol)) "))")
++        (code "(new Symbol(" (dump-string (symbol-name symbol)) "))")
          (ls-compile `(intern ,(symbol-name symbol) ,(package-name package))))))
  
  (defun dump-cons (cons)

diff --cc src/read.lisp
index ca76ed6,4116bb6..05074a4
--- 1/src/read.lisp
--- 2/src/read.lisp
+++ b/src/read.lisp
@@@ -130,12 -141,9 +141,12 @@@
    (%read-char stream)
    (ecase (%read-char stream)
      (#\'
-      (list 'function (ls-read-1 stream)))
+      (list 'function (ls-read stream)))
      (#\( (list-to-vector (%read-list stream)))
 -    (#\: (make-symbol (string-upcase (read-until stream #'terminalp))))
 +    (#\: (make-symbol
 +          (unescape
 +           (string-upcase-noescaped
 +            (read-escaped-until stream #'terminalp)))))
      (#\\
       (let ((cname
              (concat (string (%read-char stream))