From 2e8323c2af42e817e98eb931eb733dc42c832448 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Mon, 26 May 2025 19:14:28 -0300
Subject: Remove surround

---
 extra.lisp   | 6 ------
 package.lisp | 3 +--
 2 files changed, 1 insertion(+), 8 deletions(-)

diff --git a/extra.lisp b/extra.lisp
index e99bf5b..b738da7 100644
--- a/extra.lisp
+++ b/extra.lisp
@@ -50,9 +50,3 @@
                (separated-list p separator)
                nothing)))
         (cons v vn)))
-
-(defun surround (p left &optional right)
-  (comp ((_ left)
-         (body p)
-         (_ (or right left)))
-        body))
diff --git a/package.lisp b/package.lisp
index cf3f1df..2b64c6f 100644
--- a/package.lisp
+++ b/package.lisp
@@ -17,5 +17,4 @@
            #:repeat
            #:whitespace?
            #:whitespace
-           #:separated-list
-           #:surround))
+           #:separated-list))
-- 
cgit v1.2.3