diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2019-02-18 14:51:26 -0800 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-02-18 14:52:37 -0800 |
commit | a812ed215ce0a7a53f51dd5aa51de720917d2ff0 (patch) | |
tree | ac452d74428b3522b76c6c5c1906242e78da472d /lisp | |
parent | 5d46862440af7957ea617e42d6c1c6ee4c46ba3e (diff) | |
download | emacs-a812ed215ce0a7a53f51dd5aa51de720917d2ff0.tar.gz |
Speed up cl-list-length
* lisp/emacs-lisp/cl-extra.el (cl-list-length): Use ‘length’
to do the real work; this is simpler and uses a better algorithm.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 99b55ad6b72..a2400a0ba37 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -594,10 +594,10 @@ too large if positive or too small if negative)." ;;;###autoload (defun cl-list-length (x) "Return the length of list X. Return nil if list is circular." - (let ((n 0) (fast x) (slow x)) - (while (and (cdr fast) (not (and (eq fast slow) (> n 0)))) - (setq n (+ n 2) fast (cdr (cdr fast)) slow (cdr slow))) - (if fast (if (cdr fast) nil (1+ n)) n))) + (cl-check-type x list) + (condition-case nil + (length x) + (circular-list))) ;;;###autoload (defun cl-tailp (sublist list) |