Add compiler macro to apply-partially

* lisp/subr.el (apply-partially): Add compiler macro.

1 files changed, 6 insertions, 1 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 128bf258ab6..bc5f8943fb4 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -537,7 +537,12 @@ ARGS is a list of the first N arguments to pass to FUN.
 The result is a new function which does the same as FUN, except that
 the first N arguments are fixed at the values with which this function
 was called."
-  (declare (side-effect-free error-free))
+  (declare (side-effect-free error-free)
+           (compiler-macro
+            (lambda (_)
+              `(lambda (&rest args2)
+                 ,(let ((l (length args)))
+                    `(apply ,fun ,@args args2))))))
   (lambda (&rest args2)
     (apply fun (append args args2))))