Mercurial > hg > xemacs-beta

diff lisp/cl.el @ 2092:f557693c61de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-05-21 20:56:26 by james] Batch of fixes and new functions for bignums, ratios, and bigfloats.
author james
date Fri, 21 May 2004 20:56:32 +0000
parents 0f60caa73962
children 9d6ec778e1e8
line wrap: on
line diff
--- a/lisp/cl.el	Fri May 21 03:27:58 2004 +0000
+++ b/lisp/cl.el	Fri May 21 20:56:32 2004 +0000
@@ -311,7 +311,7 @@
 (defun cl-random-time ()
   (let* ((time (copy-sequence (current-time-string))) (i (length time)) (v 0))
     (while (>= (decf i) 0) (setq v (+ (* v 3) (aref time i))))
-    (if (featurep 'number-types)
+    (if (featurep 'bignum)
 	(coerce-number v 'fixnum)
       v)))