From: David Vazquez <davazp@gmail.com>
Date: Tue, 18 Dec 2012 00:45:41 +0000 (+0000)
Subject: Remove more unnecessary semicolons
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=93bc4ffd8275ecbb337e62fb3139942e08c86c7f;p=jscl.git

Remove more unnecessary semicolons
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 3809e9f..89d6c4c 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -37,9 +37,13 @@
              (join (cdr list) separator)))))
 
 (defun join-trailing (list separator)
-  (if (null list)
-      ""
-      (concat (car list) separator (join-trailing (cdr list) separator))))
+  (cond
+    ((null list)
+     "")
+    ((null (car list))
+     (join-trailing (cdr list) separator))
+    (t
+     (concat (car list) separator (join-trailing (cdr list) separator)))))
 
 (defun integer-to-string (x)
   (if (zerop x)