diff options
| author | Gerd Moellmann | 2001-10-05 10:40:18 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-10-05 10:40:18 +0000 |
| commit | 6a78f30f4d4ea976093c3aad1353827dc1137c6f (patch) | |
| tree | 609295b414aa0c081e45357395869cd6f04a8746 | |
| parent | c89e4bc57feca4a91bb53cbb5c9a57e05904062a (diff) | |
| download | emacs-6a78f30f4d4ea976093c3aad1353827dc1137c6f.tar.gz emacs-6a78f30f4d4ea976093c3aad1353827dc1137c6f.zip | |
(define-setf-expander): Make it an
alias for define-setf-method.
| -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." | |||
| 1432 | (cl-pop body)))) | 1432 | (cl-pop body)))) |
| 1433 | (list (cl-transform-function-property | 1433 | (list (cl-transform-function-property |
| 1434 | func 'setf-method (cons args body))))) | 1434 | func 'setf-method (cons args body))))) |
| 1435 | (defalias 'define-setf-expander 'define-setf-method) | ||
| 1435 | 1436 | ||
| 1436 | (defmacro defsetf (func arg1 &rest args) | 1437 | (defmacro defsetf (func arg1 &rest args) |
| 1437 | "(defsetf NAME FUNC): define a `setf' method. | 1438 | "(defsetf NAME FUNC): define a `setf' method. |