diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2005-06-03 05:49:26 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2005-06-03 05:49:26 +0000 |
| commit | 8736257554f49445f7b4402ac7a9436b38ce6452 (patch) | |
| tree | de0478f60f773c3e09c6c4fcbed3b6ea1641e74c /lisp/emacs-lisp/cl-macs.el | |
| parent | 93d7a3669284221c9272784875f69c047873fe04 (diff) | |
| parent | d06e384795d5ca4e82c88273847eeb9d01380046 (diff) | |
| download | emacs-8736257554f49445f7b4402ac7a9436b38ce6452.tar.gz emacs-8736257554f49445f7b4402ac7a9436b38ce6452.tar.bz2 emacs-8736257554f49445f7b4402ac7a9436b38ce6452.zip | |
Merged from miles@gnu.org--gnu-2005 (patch 74-79, 332-349)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-332
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-333
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-334
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-335
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-336
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-337
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-338
etc/emacs-buffer.gdb: Remove RCS keywords
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-339
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-340
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-341
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-342
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-343
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-344
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-345
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-346
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-347
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-348
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-349
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-74
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-75
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-76
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-77
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-78
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-79
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-349
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 4a01181e777..0301476afc2 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1565,14 +1565,21 @@ form. See `defsetf' for a simpler way to define most setf-methods. 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). +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))." +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) |