printing lists with a delimiter

> (print-list-delimited '(1 asd "foo")) 1,ASD,"foo"
whalliburton · Jun 29, 2015 · 272ec0b · 272ec0b
1 parent ad6191f
commit 272ec0b
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/strings.lisp b/strings.lisp
@@ -17,3 +17,10 @@
            (setf acc nil)
         else do (push char acc)
         finally (return (nreverse (cons (coerce (nreverse acc) 'string) rtn)))))
+
+(defun print-list-delimited (list &optional (stream *standard-output*) (printer #'prin1) (delimiter ","))
+  "Output LIST to STREAM as a comma separated listing."
+  (loop for els on list
+        do (funcall printer (car els) stream)
+           (unless (null (cdr els))
+             (princ delimiter stream))))