From 6a78f30f4d4ea976093c3aad1353827dc1137c6f Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 5 Oct 2001 10:40:18 +0000
Subject: [PATCH] (define-setf-expander): Make it an alias for
 define-setf-method.

---
 lisp/emacs-lisp/cl-macs.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index a624677dd5b..2d51ac23adb 100644
--- 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.