type declarations for join and concat

vindarel · Oct 23, 2020 · 51feb40 · 51feb40
1 parent e6f9c67
commit 51feb40
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/str.lisp b/str.lisp
@@ -161,10 +161,17 @@
   Remove newlines."
   (ppcre:regex-replace-all "\\s+" s " "))
 
+(declaim (ftype (function (&rest (or string))
+                          (or string))
+                concat))
 (defun concat (&rest strings)
   "Join all the string arguments into one string."
   (apply #'concatenate 'string strings))
 
+(declaim (ftype (function ((or character string)
+                           (cons string))
+                          string)
+                join))
 (defun join (separator strings)
   "Join all the strings of the list with a separator."
   (let ((separator (replace-all "~" "~~" (string separator))))