From bbcb4d7c83198e039c6e71ca5c7701cfb4009de3 Mon Sep 17 00:00:00 2001
From: Avril <flanchan@cumallover.me>
Date: Tue, 7 Jul 2020 00:00:36 +0100
Subject: [PATCH] strcat-fast

---
 flan-utils.lisp | 5 +++++
 1 file changed, 5 insertions(+)

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))