Fix: join fails on empty list

diff --git a/src/utils.lisp b/src/utils.lisp
index 73fc551..20aa855 100644 (file)
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -37,9 +37,11 @@
 
 ;;; Concatenate a list of strings, with a separator
 (defun join (list &optional (separator ""))
-  (!reduce (lambda (s o) (concat s separator o))  
-           (cdr list) 
-           :initial-value (car list))) 
+  (if (null list)
+      ""
+      (!reduce (lambda (s o) (concat s separator o))  
+               (cdr list) 
+               :initial-value (car list)))) 
 
 (defun join-trailing (list &optional (separator ""))
   (if (null list)