diff --git a/flan-utils.lisp b/flan-utils.lisp
index 3fe1dd0..cce9f32 100644
--- a/flan-utils.lisp
+++ b/flan-utils.lisp
@@ -107,6 +107,11 @@
 						   (t (write-to-string x))))
 					     str))))
 
+(defmacro strcat-fast (&rest strings)
+  "Concat all strings, they need to be strings. Use `strcat' instead unless you can guarantee you won't violate that."
+  `(concatenate 'string
+		,@strings))
+
 (defmacro until (stmt)
   "Repeat stmt until its return is not NIL, then return that value."
   `(let ((ret nil))