From 9a76035e648e67afaa118107fe86deaa0d85527f Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 7 Jul 2013 14:08:23 +0200 Subject: [PATCH] Remove *newline* variable --- src/print.lisp | 2 +- src/utils.lisp | 3 --- 2 files changed, 1 insertion(+), 4 deletions(-) diff --git a/src/print.lisp b/src/print.lisp index 17c4693..8cb36bd 100644 --- a/src/print.lisp +++ b/src/print.lisp @@ -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)))) -- 1.7.10.4