From 97f8b6d2a990fe2e93704460fcdf08701616d7e4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Mon, 23 Jun 2025 02:23:36 -0300
Subject: Update utils

---
 symbol.lisp | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 symbol.lisp

(limited to 'symbol.lisp')

diff --git a/symbol.lisp b/symbol.lisp
new file mode 100644
index 0000000..3585976
--- /dev/null
+++ b/symbol.lisp
@@ -0,0 +1,9 @@
+(in-package #:symbol)
+
+(defun normalize (sym expression)
+  (nsubst-if sym
+             (lambda (x)
+               (and (symbolp x)
+                    (string-equal (symbol-name x)
+                                  (symbol-name sym))))
+             expression))
-- 
cgit v1.2.3