X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fprint.lisp;h=8cb36bd2db7092f5aff371de226b9ac95355571c;hb=dea14bb78b0fc90032373212912a16ed1f6a4a29;hp=a8ac834dbb42f969dd2678bd937aff63e34812c6;hpb=c296885ca974898925b89af066b1b14a6fca0f57;p=jscl.git

diff --git a/src/print.lisp b/src/print.lisp
index a8ac834..8cb36bd 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -45,6 +45,7 @@
         (when (or (terminalp ch)
                   (char= ch #\:)
                   (char= ch #\\)
+                  (not (char= ch (char-upcase ch)))
                   (char= ch #\|))
           (return-from escape-symbol-name-p t))))
     dots-only))
@@ -258,7 +259,7 @@
 
 (defun write-line (x)
   (write-string x)
-  (write-string *newline*)
+  (write-char #\newline)
   x)
 
 (defun warn (string)
@@ -282,7 +283,7 @@
                ((char= next #\~)
                 (concatf res "~"))
                ((char= next #\%)
-                (concatf res *newline*))
+                (concatf res (string #\newline)))
                ((char= next #\*)
                 (pop arguments))
                (t