diff options
author | Stefan Monnier <[email protected]> | 2008-05-12 01:45:41 +0000 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2008-05-12 01:45:41 +0000 |
commit | 4ded1ddb2228f9c392b114ea6a18c7b375e4ac90 (patch) | |
tree | 46408029cb1a48acc9bc2b76183b2d80e6b7a4b6 | |
parent | 6dc30f4463e8a9bd587bcf4bc5e3e172dd745680 (diff) |
(cl-set-nthcdr): Make it a defsubst so that
(setf (nthcdr ..) ..) doesn't require CL at runtime.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/emacs-lisp/cl.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0993ffcd7a..f91b20804e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-05-12 Stefan Monnier <[email protected]> + + * 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 <[email protected]> * org/org.el (org-modules): Repair problems with loading diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 2a179a5e1d..c03c91d76f 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -166,7 +166,7 @@ an element already on the list. (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) |