Mercurial > emacs
changeset 93603:40e064117c8a
(defsetf): Accept a lambda for the 2-arg form.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 03 Apr 2008 13:42:25 +0000 |
| parents | 702b99dd7604 |
| children | 5476a4f5d2f2 |
| files | lisp/ChangeLog lisp/emacs-lisp/cl-macs.el |
| diffstat | 2 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Apr 03 13:34:34 2008 +0000 +++ b/lisp/ChangeLog Thu Apr 03 13:42:25 2008 +0000 @@ -1,5 +1,7 @@ 2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca> + * emacs-lisp/cl-macs.el (defsetf): Accept a lambda for the 2-arg form. + * vc-bzr.el (vc-bzr-previous-revision, vc-bzr-next-revision): New funs. 2008-04-03 Chong Yidong <cyd@stupidchicken.com>
--- a/lisp/emacs-lisp/cl-macs.el Thu Apr 03 13:34:34 2008 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Thu Apr 03 13:42:25 2008 +0000 @@ -1619,7 +1619,7 @@ (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v)) \(fn NAME [FUNC | ARGLIST (STORE) BODY...])" - (if (listp arg1) + (if (and (listp arg1) (consp args)) (let* ((largs nil) (largsr nil) (temps nil) (tempsr nil) (restarg nil) (rest-temps nil)