(cl-set-nthcdr): Make it a defsubst so that

(setf (nthcdr ..) ..) doesn't require CL at runtime.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0993ffcd7a57b822e3ae680a9b4eddc5e59a551a..f91b20804ed78d03aaebec2da65b448458e1b0e5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 2a179a5e1db1800d62be6eacc550c52838468d29..c03c91d76fa9a8a65ce185e938bb948171c6bed5 100644 (file)
--- 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)