Add Into String instances

coalton-lang · Oct 9, 2024 · 76fa2fa · 76fa2fa
1 parent b75d02f
commit 76fa2fa
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/library/cell.lisp b/library/cell.lisp
@@ -144,6 +144,10 @@
   (define-instance (Into (Cell :a) :a)
     (define into read))
 
+  (define-instance (Into :a String => Into (Cell :a) String)
+    (define (into c)
+      (into (read c))))
+
   (define-instance (Default :a => Default (Cell :a))
     (define (default) (new (default)))))
 

diff --git a/library/string.lisp b/library/string.lisp
@@ -195,6 +195,16 @@ does not have that suffix."
       (lisp String (lst)
         (cl:coerce lst 'cl:string))))
 
+  (define-instance (Into (List String) String)
+    (define (into strs)
+      (lisp String (strs)
+        (cl:format cl:nil "~{~a~}" strs))))
+
+  (define-instance (Into (Vector String) String)
+    (define (into strs)
+      (lisp String (strs)
+        (cl:format cl:nil "~{~a~}" (cl:coerce strs 'cl:list)))))
+
   (define-instance (Iso (List Char) String)))
 
 (define-instance-into-integral-string Integer)