feat: add calling

lens.lisp

@@ -291,6 +291,11 @@
     (apply #'concatenate result-type
            seq)))
 
+(defmacro calling (fun &rest args)
+  (alexandria:with-gensyms (first-arg)
+    `(lambda (,first-arg)
+       (funcall (functionalize ,fun) ,first-arg ,@args))))
+
 (defmacro applying (fun &rest args)
   (alexandria:with-gensyms (seq fsym)
     `(let ((,fsym (functionalize ,fun)))

package.lisp

@@ -16,11 +16,11 @@
            #:defun-ct #:key #:extract-key #:element #:let-fn #:juxt
            #:transform-tail #:slice #:compress-runs
            #:combine-matching-lists #:sorted #:applicable-when
-           #:of-length #:of-min-length #:of-max-length
+           #:of-length #:of-min-length #:of-max-length #:transform-head
-           #:transform-head #:maximizing #:zipping #:applying
+           #:maximizing #:zipping #:applying #:splice-elt
-           #:splice-elt #:transform-elt #:denest #:op #:defalias #:<>
+           #:transform-elt #:denest #:op #:defalias #:<> #:<>1 #:== #:•
-           #:<>1 #:== #:• #:suffixp #:functionalize #:inc #:group-by
+           #:∘ #:suffixp #:functionalize #:inc #:group-by #:keys
-           #:keys #:conj #:disj #:delay))
+           #:conj #:disj #:delay #:calling))
 
 (defpackage :data-lens.transducers.internals
   (:use :cl)