Mercurial > emacs
changeset 94877:0b1b2b6fee44
(cl-set-nthcdr): Make it a defsubst so that
(setf (nthcdr ..) ..) doesn't require CL at runtime.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 12 May 2008 01:45:41 +0000 |
| parents | ee90761f44b6 |
| children | 112212c5e23c |
| files | lisp/ChangeLog lisp/emacs-lisp/cl.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun May 11 22:54:56 2008 +0000 +++ b/lisp/ChangeLog Mon May 12 01:45:41 2008 +0000 @@ -1,3 +1,8 @@ +2008-05-12 Stefan Monnier <monnier@iro.umontreal.ca> + + * emacs-lisp/cl.el (cl-set-nthcdr): Make it a defsubst so that + (setf (nthcdr ..) ..) doesn't require CL at runtime. + 2008-05-11 Carsten Dominik <dominik@science.uva.nl> * org/org.el (org-modules): Repair problems with loading
--- a/lisp/emacs-lisp/cl.el Sun May 11 22:54:56 2008 +0000 +++ b/lisp/emacs-lisp/cl.el Mon May 12 01:45:41 2008 +0000 @@ -166,7 +166,7 @@ (defun cl-set-elt (seq n val) (if (listp seq) (setcar (nthcdr n seq) val) (aset seq n val))) -(defun cl-set-nthcdr (n list x) +(defsubst cl-set-nthcdr (n list x) (if (<= n 0) x (setcdr (nthcdr (1- n) list) x) list)) (defun cl-set-buffer-substring (start end val)