Mercurial > hg > xemacs-beta

diff lisp/cl.el @ 2509:6a9afa282c8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-26 09:53:28 by ben] fix warnings frame.el: Fix warning. cl.el: Conditionalize on coerce-number as Jerry says it's OK. fakemail.c: Add args to fix warning.
author ben
date Wed, 26 Jan 2005 09:53:32 +0000
parents ecf1ebac70d8
children 29234c1a76c7
line wrap: on
line diff
--- a/lisp/cl.el	Wed Jan 26 09:51:23 2005 +0000
+++ b/lisp/cl.el	Wed Jan 26 09:53:32 2005 +0000
@@ -307,8 +307,8 @@
 (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 'bignum)
-	(declare-fboundp (coerce-number v 'fixnum))
+    (if-fboundp 'coerce-number
+	(coerce-number v 'fixnum) 
       v)))
 
 (defvar *gensym-counter* (* (logand (cl-random-time) 1023) 100))