From 93bc4ffd8275ecbb337e62fb3139942e08c86c7f Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Tue, 18 Dec 2012 00:45:41 +0000 Subject: [PATCH] Remove more unnecessary semicolons --- lispstrack.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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) -- 1.7.10.4