From d46de145191d4d4bc1b4759a6d49c0daf6e57c33 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Thu, 27 Dec 2012 02:26:29 +0000 Subject: [PATCH] Call JOIN without a separator in some callers --- lispstrack.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lispstrack.lisp b/lispstrack.lisp index 5a23bdb..6150d86 100644 --- a/lispstrack.lisp +++ b/lispstrack.lisp @@ -418,8 +418,7 @@ (push (mod x 10) digits) (setq x (truncate x 10))) (join (mapcar (lambda (d) (string (char "0123456789" d))) - digits) - ""))))) + digits)))))) (defun print-to-string (form) (cond @@ -752,7 +751,7 @@ cases) (incf idx))) (push (concat "default: break;" *newline*) cases) - (join (reverse cases) ""))) + (join (reverse cases)))) "}" *newline*) "") ;; &rest argument @@ -1105,8 +1104,7 @@ (let ((code (ls-compile sexp nil nil))) (prog1 (concat (join (mapcar (lambda (x) (concat x ";" *newline*)) - *toplevel-compilations*) - "") + *toplevel-compilations*)) code) (setq *toplevel-compilations* nil)))) -- 1.7.10.4