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." ...@@ -694,7 +694,13 @@ that are accessible by the user."
:name nil :type nil :version nil) :name nil :type nil :version nil)
rootpath 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)
item
(format nil "~A" item))) args)))
(defun mapconcat (function sequence separator) (defun mapconcat (function sequence separator)
;; 1- mon_key on irc://irc.freenode.org/#lisp signaled that nil are ;; 1- mon_key on irc://irc.freenode.org/#lisp signaled that nil are
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment