feat: add calling

This commit is contained in:
Edward Langley
2023-03-26 11:06:18 -07:00
parent 964a3d6d2d
commit c9dbe2109f
2 changed files with 10 additions and 5 deletions

View File

@ -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)))