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))