From a0bcb57cbcfbfa8070ee617056983b03e8e64c29 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Fri, 4 Nov 2022 00:40:17 -0300
Subject: Add str:from-list

---
 package.lisp |  1 +
 str.lisp     | 10 ++++++++++
 2 files changed, 11 insertions(+)

diff --git a/package.lisp b/package.lisp
index de145ed..ddf77ea 100644
--- a/package.lisp
+++ b/package.lisp
@@ -10,4 +10,5 @@
 (defpackage #:str
   (:use #:cl)
   (:export #:split
+           #:from-list
            #:read-file))
diff --git a/str.lisp b/str.lisp
index e099e26..cbd6fe3 100644
--- a/str.lisp
+++ b/str.lisp
@@ -19,3 +19,13 @@
                                                                      (length input)))
         (queue:add result (subseq input start next)))))
   (queue:to-list (split-rec (queue:new) 0)))
+
+(declaim (ftype (function ((cons char)) (values simple-string) &optional)) from-list)
+(defun from-list (lst)
+  (let ((str (make-string (length lst)))
+        (i 0))
+    (dolist (item lst)
+      (setf (char str i) item)
+      (incf i))
+    str))
+
-- 
cgit v1.2.3