Наваял я тут такой макрос
(defmacro bind1st(f arg)
(let ((f0 (gensym))
(arg1 (gensym))
(args (gensym)))
`(let ((,arg1 ,arg)
(,f0 ,f))
#'(lambda (&rest ,args)
(apply ,f0 (cons ,arg1 ,args))))))
Но возникло ощущение что он должен уже где-то быть среди стандартных функций. Чего-то я не понял как подобные вещи искать.