From 5a9192938a81037c2f698af5fdb93d248264e401 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Tue, 25 Oct 2022 07:09:34 -0500
Subject: Add: read-from-file

---
 utilities.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'utilities.lisp')

diff --git a/utilities.lisp b/utilities.lisp
index b91e345..abe10b7 100644
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -92,3 +92,7 @@
      (unwind-protect
           (progn ,@body)
        (uiop:delete-directory-tree ,dir :validate t))))
+
+(defun read-from-file (path)
+  (read-from-string
+   (alexandria:read-file-into-string path)))
-- 
cgit v1.2.3