From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 5 Oct 2001 10:40:18 +0000 (+0000)
Subject: (define-setf-expander): Make it an
X-Git-Tag: ttn-vms-21-2-B4~19728
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a78f30f4d4ea976093c3aad1353827dc1137c6f;p=emacs.git

(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 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.