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

Optimized concat.

parent 99823266
......@@ -1049,7 +1049,10 @@ 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 items)
(with-output-to-string (*standard-output*)
(dolist (item items)
(write-string item))))
(defun mapconcat (function sequence separator)
(etypecase sequence
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