[cl-l10n-cvs] CVS cl-l10n

[alendvai]

Update of /project/cl-l10n/cvsroot/cl-l10n
In directory clnet:/tmp/cvs-serv5714

Modified Files:
	utils.lisp 
Log Message:
Added missing strcat-separated-by function


--- /project/cl-l10n/cvsroot/cl-l10n/utils.lisp	2006/06/15 19:57:34	1.9
+++ /project/cl-l10n/cvsroot/cl-l10n/utils.lisp	2006/06/15 20:23:07	1.10
@@ -29,6 +29,15 @@
 
 (defvar *whitespace* (list #\Space #\Tab))
 
+(defun strcat-separated-by (separator &rest args)
+  (iter (for el in args)
+        (unless el
+          (next-iteration))
+        (unless (first-time-p)
+          (collect separator into components))
+        (collect el into components)
+        (finally (return (apply #'strcat components)))))
+
 (defun trim (string &optional (bag *whitespace*))
   (string-trim bag string))