Use #\newline instead of *newline*

[jscl.git] / src / print.lisp

diff --git a/src/print.lisp b/src/print.lisp
index 3cc3829..17c4693 100644 (file)
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -259,7 +259,7 @@
 
 (defun write-line (x)
   (write-string x)
-  (write-string *newline*)
+  (write-char #\newline)
   x)
 
 (defun warn (string)