diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 10:40:18 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 10:40:18 +0000 |
commit | 6a78f30f4d4ea976093c3aad1353827dc1137c6f (patch) | |
tree | 609295b414aa0c081e45357395869cd6f04a8746 /lisp/emacs-lisp/cl-macs.el | |
parent | c89e4bc57feca4a91bb53cbb5c9a57e05904062a (diff) | |
download | emacs-6a78f30f4d4ea976093c3aad1353827dc1137c6f.tar.gz emacs-6a78f30f4d4ea976093c3aad1353827dc1137c6f.tar.bz2 emacs-6a78f30f4d4ea976093c3aad1353827dc1137c6f.zip |
(define-setf-expander): Make it an
alias for define-setf-method.
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
-rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 1 |
1 files changed, 1 insertions, 0 deletions
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. |