diff options
| author | Gerd Moellmann | 2000-02-18 10:50:09 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-02-18 10:50:09 +0000 |
| commit | c382fb0af7755f48312b964ecf9efa06cf9cc6e5 (patch) | |
| tree | a671d9067ab5af647ce07513642ae5786670d73e | |
| parent | 3c0ed7cec3830e853fcd1bfe15198107356d0e0b (diff) | |
| download | emacs-c382fb0af7755f48312b964ecf9efa06cf9cc6e5.tar.gz emacs-c382fb0af7755f48312b964ecf9efa06cf9cc6e5.zip | |
(caar, cadr, cdar, cddr): Add defsetfs.
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index b0709ac1e40..f2663d7f385 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -1523,6 +1523,10 @@ Example: (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v))." | |||
| 1523 | (defsetf aref aset) | 1523 | (defsetf aref aset) |
| 1524 | (defsetf car setcar) | 1524 | (defsetf car setcar) |
| 1525 | (defsetf cdr setcdr) | 1525 | (defsetf cdr setcdr) |
| 1526 | (defsetf caar (x) (val) (list 'setcar (list 'car x) val)) | ||
| 1527 | (defsetf cadr (x) (val) (list 'setcar (list 'cdr x) val)) | ||
| 1528 | (defsetf cdar (x) (val) (list 'setcdr (list 'car x) val)) | ||
| 1529 | (defsetf cddr (x) (val) (list 'setcdr (list 'cdr x) val)) | ||
| 1526 | (defsetf elt (seq n) (store) | 1530 | (defsetf elt (seq n) (store) |
| 1527 | (list 'if (list 'listp seq) (list 'setcar (list 'nthcdr n seq) store) | 1531 | (list 'if (list 'listp seq) (list 'setcar (list 'nthcdr n seq) store) |
| 1528 | (list 'aset seq n store))) | 1532 | (list 'aset seq n store))) |