From: David Vazquez <davazp@gmail.com>
Date: Mon, 17 Dec 2012 18:38:58 +0000 (+0000)
Subject: Rewrite *newline* without literal string
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2ef9c09afba22adf2cd96ab35bc972a150947648;p=jscl.git

Rewrite *newline* without literal string
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index e8ecb3f..fe1fbb5 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -17,8 +17,7 @@
   (defun concat-two (s1 s2)
     (concatenate 'string s1 s2)))
 
-(defvar *newline* "
-")
+(defvar *newline* (string (code-char 10)))
 
 (defun concat (&rest strs)
   (!reduce (lambda (s1 s2) (concat-two s1 s2))