Index: emacs/lisp/emacs-lisp/cl-macs.el
diff -c emacs/lisp/emacs-lisp/cl-macs.el:1.51
emacs/lisp/emacs-lisp/cl-macs.el:1.52
*** emacs/lisp/emacs-lisp/cl-macs.el:1.51 Sun May 22 17:48:54 2005
--- emacs/lisp/emacs-lisp/cl-macs.el Wed Jun 1 15:33:06 2005
***************
*** 1565,1578 ****
This macro is an easy-to-use substitute for `define-setf-method' that works
well for simple place forms. In the simple `defsetf' form, `setf's of
the form (setf (NAME ARGS...) VAL) are transformed to function or macro
! calls of the form (FUNC ARGS... VAL). Example: (defsetf aref aset).
Alternate form: (defsetf NAME ARGLIST (STORE) BODY...).
Here, the above `setf' call is expanded by binding the argument forms ARGS
according to ARGLIST, binding the value form VAL to STORE, then executing
BODY, which must return a Lisp form that does the necessary `setf' operation.
Actually, ARGLIST and STORE may be bound to temporary variables which are
introduced automatically to preserve proper execution order of the arguments.
! Example: (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v))."
(if (listp arg1)
(let* ((largs nil) (largsr nil)
(temps nil) (tempsr nil)
--- 1565,1585 ----
This macro is an easy-to-use substitute for `define-setf-method' that works
well for simple place forms. In the simple `defsetf' form, `setf's of
the form (setf (NAME ARGS...) VAL) are transformed to function or macro
! calls of the form (FUNC ARGS... VAL). Example:
!
! (defsetf aref aset)
!
Alternate form: (defsetf NAME ARGLIST (STORE) BODY...).
Here, the above `setf' call is expanded by binding the argument forms ARGS
according to ARGLIST, binding the value form VAL to STORE, then executing
BODY, which must return a Lisp form that does the necessary `setf' operation.
Actually, ARGLIST and STORE may be bound to temporary variables which are
introduced automatically to preserve proper execution order of the arguments.
! Example:
!
! (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v))
!
! \(fn NAME [FUNC | ARGLIST (STORE) BODY...])"
(if (listp arg1)
(let* ((largs nil) (largsr nil)
(temps nil) (tempsr nil)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
