Mercurial > emacs

changeset 27755:3a803d09d619

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(caar, cadr, cdar, cddr): Add defsetfs.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 18 Feb 2000 10:50:09 +0000
parents 0d8de7862e51
children d0d4542bbdac
files lisp/emacs-lisp/cl-macs.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el	Thu Feb 17 20:45:37 2000 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Fri Feb 18 10:50:09 2000 +0000
@@ -1523,6 +1523,10 @@
 (defsetf aref aset)
 (defsetf car setcar)
 (defsetf cdr setcdr)
+(defsetf caar (x) (val) (list 'setcar (list 'car x) val))
+(defsetf cadr (x) (val) (list 'setcar (list 'cdr x) val))
+(defsetf cdar (x) (val) (list 'setcdr (list 'car x) val))
+(defsetf cddr (x) (val) (list 'setcdr (list 'cdr x) val))
 (defsetf elt (seq n) (store)
   (list 'if (list 'listp seq) (list 'setcar (list 'nthcdr n seq) store)
 	(list 'aset seq n store)))