Coerce-number in cl.el

[Ben Wing]

Jerry --

I'm trying to fix the warning generated by this:

(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)
	(coerce-number v 'fixnum)
      v)))

Do you actually need the check on featurep bignum or is it enough to check
for the existence of coerce-number?