(define-setf-expander): Make it an

alias for define-setf-method.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index a624677dd5bd19bac03a0835cbf3bbafa2bc1b9f..2d51ac23adb980aa9154decf4fbe105099662db9 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1432,6 +1432,7 @@ form.  See `defsetf' for a simpler way to define most setf-methods."
                          (cl-pop body))))
          (list (cl-transform-function-property
                 func 'setf-method (cons args body)))))
+(defalias 'define-setf-expander 'define-setf-method)
 
 (defmacro defsetf (func arg1 &rest args)
   "(defsetf NAME FUNC): define a `setf' method.