From 7a1e8d41ce96a7514adb31529f05aaed6a13c259 Mon Sep 17 00:00:00 2001
From: Grant Shangreaux <grant@unabridgedsoftware.com>
Date: Tue, 27 Dec 2022 19:22:46 -0600
Subject: Clean: zipper.lisp implementation and defuns, fewer iterations

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

(limited to 'utilities.lisp')

diff --git a/utilities.lisp b/utilities.lisp
index 1ed13a3..0e258b6 100644
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -127,3 +127,6 @@
     (if (apply pred args)
         (apply then args)
         (apply else args))))
+
+(defun clean-slashes (str)
+  (cl-ppcre:regex-replace-all "/" str "-"))
-- 
cgit v1.2.3