From 2ef9c09afba22adf2cd96ab35bc972a150947648 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Mon, 17 Dec 2012 18:38:58 +0000 Subject: [PATCH] Rewrite *newline* without literal string --- lispstrack.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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)) -- 1.7.10.4