Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
2508:14f65fa1e69e 2509:6a9afa282c8e
305 ;;; Symbols. 305 ;;; Symbols.
306 306
307 (defun cl-random-time () 307 (defun cl-random-time ()
308 (let* ((time (copy-sequence (current-time-string))) (i (length time)) (v 0)) 308 (let* ((time (copy-sequence (current-time-string))) (i (length time)) (v 0))
309 (while (>= (decf i) 0) (setq v (+ (* v 3) (aref time i)))) 309 (while (>= (decf i) 0) (setq v (+ (* v 3) (aref time i))))
310 (if (featurep 'bignum) 310 (if-fboundp 'coerce-number
311 (declare-fboundp (coerce-number v 'fixnum)) 311 (coerce-number v 'fixnum)
312 v))) 312 v)))
313 313
314 (defvar *gensym-counter* (* (logand (cl-random-time) 1023) 100)) 314 (defvar *gensym-counter* (* (logand (cl-random-time) 1023) 100))
315 315
316 ;; XEmacs change: gensym and gentemp moved here from cl-macs.el 316 ;; XEmacs change: gensym and gentemp moved here from cl-macs.el