diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-14 10:29:10 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-14 10:29:10 -0400 |
| commit | 0f3cc0b8245dfd7a9f6fcc95ec148be03fde8931 (patch) | |
| tree | 4eec5e393178ee9202f29989a20362372ab92475 /lisp/emacs-lisp/cl-lib.el | |
| parent | 1e09f8d379ef3e37132189b2760c3d14920d0f96 (diff) | |
| download | emacs-0f3cc0b8245dfd7a9f6fcc95ec148be03fde8931.tar.gz emacs-0f3cc0b8245dfd7a9f6fcc95ec148be03fde8931.tar.bz2 emacs-0f3cc0b8245dfd7a9f6fcc95ec148be03fde8931.zip | |
* lisp/emacs-lisp/cl-lib.el (cl--random-time): Remove as well
It's also defined in cl-extra.el.
Diffstat (limited to 'lisp/emacs-lisp/cl-lib.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index 3c9c6223018..c183852fd3b 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el @@ -288,11 +288,6 @@ If true return the decimal value of digit CHAR in RADIX." (let ((n (aref cl-digit-char-table char))) (and n (< n (or radix 10)) n))) -(defun cl--random-time () - (let* ((time (copy-sequence (current-time-string))) (i (length time)) (v 0)) - (while (>= (cl-decf i) 0) (setq v (+ (* v 3) (aref time i)))) - v)) - (defconst cl-most-positive-float nil "The largest value that a Lisp float can hold. If your system supports infinities, this is the largest finite value. |