Use #\newline instead of *newline*

[jscl.git] / src / print.lisp

diff --git a/src/print.lisp b/src/print.lisp
index db3be82..17c4693 100644 (file)
--- 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)
@@ -289,8 +290,7 @@
                 (concatf res (format-special next (car arguments)))
                 (pop arguments))))
             (setq res (concat res (string c))))
-        (incf i))
-      (/debug res))
+        (incf i)))
     (if destination
         (progn
           (write-string res)