From: David Vázquez <davazp@gmail.com>
Date: Mon, 5 Aug 2013 18:27:51 +0000 (+0200)
Subject: Merge branch 'master' of github.com:davazp/jscl
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f752a8ec380510705bd3c5e1e1a7016366238101;hp=4b80f1c7c6781960f7ef2d7f613b1ae7eebb8e33;p=jscl.git

Merge branch 'master' of github.com:davazp/jscl
---

diff --git a/src/print.lisp b/src/print.lisp
index 3cc3829..8cb36bd 100644
--- 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)
@@ -283,7 +283,7 @@
                ((char= next #\~)
                 (concatf res "~"))
                ((char= next #\%)
-                (concatf res *newline*))
+                (concatf res (string #\newline)))
                ((char= next #\*)
                 (pop arguments))
                (t
diff --git a/src/utils.lisp b/src/utils.lisp
index d380e4c..6ab351d 100644
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -18,9 +18,6 @@
 
 (/debug "loading utils.lisp!")
 
-(defvar *newline* "
-")
-
 (defmacro concatf (variable &body form)
   `(setq ,variable (concat ,variable (progn ,@form))))