diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-04-21 23:18:15 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-04-21 23:18:15 -0400 |
| commit | d6f14ca729315dd94cdb24da47e1569519e3a4dd (patch) | |
| tree | 61f745135efdeaee056f0b5c0df5039d8a136cef /lisp/emacs-lisp/cl-lib.el | |
| parent | 44faec17883a77a54378f607adea302f90f2da9d (diff) | |
| download | emacs-d6f14ca729315dd94cdb24da47e1569519e3a4dd.tar.gz emacs-d6f14ca729315dd94cdb24da47e1569519e3a4dd.tar.bz2 emacs-d6f14ca729315dd94cdb24da47e1569519e3a4dd.zip | |
* lisp/emacs-lisp/cl-macs.el (cl-struct-slot-offset): Mark as pure.
(cl--set-elt): Don't proclaim as inline.
(cl-struct-slot-value): Remove explicit gv-setter and compiler-macro.
Define as inlinable instead.
(cl-struct-set-slot-value): Remove.
* doc/misc/cl.texi (Structures): Remove cl-struct-set-slot-value.
* lisp/emacs-lisp/cl-lib.el (cl--set-elt): Remove.
* lisp/emacs-lisp/cl-seq.el (cl-replace, cl-substitute, cl-nsubstitute):
Use setf instead.
Diffstat (limited to 'lisp/emacs-lisp/cl-lib.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index b9556b06f50..929e3dfb2f5 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el @@ -152,9 +152,6 @@ an element already on the list. `(setq ,place (cl-adjoin ,x ,place ,@keys))) `(cl-callf2 cl-adjoin ,x ,place ,@keys))) -(defun cl--set-elt (seq n val) - (if (listp seq) (setcar (nthcdr n seq) val) (aset seq n val))) - (defun cl--set-buffer-substring (start end val) (save-excursion (delete-region start end) (goto-char start) |