From 4ded1ddb2228f9c392b114ea6a18c7b375e4ac90 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 12 May 2008 01:45:41 +0000 Subject: (cl-set-nthcdr): Make it a defsubst so that (setf (nthcdr ..) ..) doesn't require CL at runtime. --- lisp/emacs-lisp/cl.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 2a179a5e1db..c03c91d76fa 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) -- cgit v1.2.3