Commit a44e580b authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Replaced simple concat by a copy of cesarum.utility:concat.

parent 16f7310d
......@@ -694,7 +694,13 @@ that are accessible by the user."
:name nil :type nil :version nil)
rootpath nil)))
(defun concat (&rest items) (apply (function concatenate) 'string items))
(defun concat (&rest args)
"Concatenate anything into a string."
(apply (function concatenate) 'string
(mapcar (lambda (item)
(if (typep item 'sequence)
(format nil "~A" item))) args)))
(defun mapconcat (function sequence separator)
;; 1- mon_key on irc:// signaled that nil are
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment