From: David Vazquez <davazp@gmail.com>
Date: Thu, 27 Dec 2012 02:26:29 +0000 (+0000)
Subject: Call JOIN without a separator in some callers
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d46de145191d4d4bc1b4759a6d49c0daf6e57c33;p=jscl.git

Call JOIN without a separator in some callers
---

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))))