mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

(define-setf-expander): Make it an

Browse Source 
alias for define-setf-method.
This commit is contained in:
Gerd Moellmann 2001-10-05 10:40:18 +00:00
parent c89e4bc57f
commit 6a78f30f4d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/emacs-lisp/cl-macs.el
View File

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