(define-setf-expander): Make it an
alias for define-setf-method.
This commit is contained in:
parent
c89e4bc57f
commit
6a78f30f4d
1 changed files with 1 additions and 0 deletions
|
@ -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.
|
||||
|
|
Loading…
Add table
Reference in a new issue