Remove dependency on map-bind.

Hexstream · Jun 13, 2023 · b087806 · b087806
1 parent 9cbd001
commit b087806
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 6 deletions.
diff --git a/main.lisp b/main.lisp
@@ -50,7 +50,7 @@
 
 (defmacro with-shadowed-bindings (bindings &body body &environment env)
   (if bindings
-      (map-bind (reduce) (((binding body) bindings)
-                          (() :from-end t :initial-value body))
-        (multiple-value-call #'%add-shadowing body (%analyze binding env)))
+      (reduce (lambda (binding body)
+                (multiple-value-call #'%add-shadowing body (%analyze binding env)))
+              bindings :from-end t :initial-value body)
       `(progn ,@body)))
diff --git a/package.lisp b/package.lisp
@@ -1,6 +1,5 @@
 (cl:defpackage #:with-shadowed-bindings
   (:use #:cl)
-  (:import-from #:map-bind #:map-bind)
   (:export #:with-shadowed-bindings ; Import this single symbol for normal usage. Don't (:use)!
 
            #:invalid-access

diff --git a/with-shadowed-bindings.asd b/with-shadowed-bindings.asd
@@ -7,8 +7,6 @@
 
   :description "Establishes a new lexical context within which specified bindings are explicitly shadowed, making it clear that they are not referenced within, thereby reducing cognitive load."
 
-  :depends-on ("map-bind")
-
   :version "1.0"
   :serial cl:t
   :components ((:file "package")