feat: calling and calling*

lens.lisp

@@ -344,6 +344,11 @@
     `(lambda (,first-arg)
        (funcall (functionalize ,fun) ,first-arg ,@args))))
 
+(defmacro calling* (fun &rest args)
+  (alexandria:with-gensyms (last-arg)
+    `(lambda (,last-arg)
+       (funcall (functionalize ,fun) ,@args ,last-arg))))
+
 (defmacro applying (fun &rest args)
   (alexandria:with-gensyms (seq fsym)
     `(let ((,fsym (functionalize ,fun)))

package.lisp

@@ -20,7 +20,8 @@
            #:maximizing #:zipping #:applying #:splice-elt
            #:transform-elt #:denest #:op #:defalias #:<> #:<>1 #:== #:•
            #:∘ #:suffixp #:functionalize #:inc #:group-by #:keys
-           #:conj #:disj #:delay #:of-type #:transform))
+           #:conj #:disj #:delay #:of-type #:transform #:calling*
+           #:calling))
 
 (defpackage :data-lens.transducers.internals
   (:use :cl)

t/lens.lisp

@@ -284,3 +284,15 @@
   (5am:is (equal (funcall (data-lens:transform 1)
                           (data-lens:juxt '1- 'identity '1+))
                  '(0 1 2))))
+
+(5am:def-test calling (:suite :data-lens.lens :depends-on (and functionalize))
+  (5am:is (equal (funcall (data-lens:calling #'- 1) 3)
+                 2))
+  (5am:is (equal (funcall (data-lens:calling #'- 2 1) 3)
+                 0)))
+
+(5am:def-test calling* (:suite :data-lens.lens :depends-on (and functionalize))
+  (5am:is (equal (funcall (data-lens:calling* #'- 3) 1)
+                 2))
+  (5am:is (equal (funcall (data-lens:calling* #'- 3 2) 1)
+                 0)))