Curry with uncurry in common lisp

uncurry.lisp

(defvar *uncurry* nil "When bound and non-nil, curried functions can be uncurried")
(makunbound '*uncurry*)

(defun curry (function &rest args)
  (lambda (&rest more-args)
    (if (and (boundp '*uncurry*) *uncurry*)
        (if more-args
            (error "No more args expected")
            function)
        (apply function (append args more-args)))))

(defun uncurry (function)
  (let ((*uncurry* t))
    (funcall function)))

(funcall (curry '+ 1) 2)
;; 3
(uncurry (curry '+ 1))
;; +
(uncurry (curry (lambda (x) (+ 1 x)) 1))
;; #<anonymous interpreted function 4050012934>
(funcall (uncurry (curry (lambda (x) (+ 1 x)) 1)) 2)
;; 3