feat: calling and calling*

This commit is contained in:
Edward Langley
2023-07-15 10:27:36 -07:00
parent 40db934151
commit e833e39e87
3 changed files with 19 additions and 1 deletions

View File

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