Mercurial > hg > xemacs-beta

comparison lisp/cl.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c5d627a313b1
children a4f53d9b3154
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
362 (or (fboundp 'abs) (defalias 'abs 'cl-abs)) ; This is built-in to Emacs 19 362 (or (fboundp 'abs) (defalias 'abs 'cl-abs)) ; This is built-in to Emacs 19
363 363
364 (defvar *random-state* (vector 'cl-random-state-tag -1 30 (cl-random-time))) 364 (defvar *random-state* (vector 'cl-random-state-tag -1 30 (cl-random-time)))
365 365
366 ;;; We use `eval' in case VALBITS differs from compile-time to load-time. 366 ;;; We use `eval' in case VALBITS differs from compile-time to load-time.
367 (defconst most-positive-fixnum (eval '(lsh -1 -1))) 367 (defconst most-positive-fixnum (eval '(lsh -1 -1))
368 (defconst most-negative-fixnum (eval '(- -1 (lsh -1 -1)))) 368 "The integer closest in value to positive infinity.")
369 369 (defconst most-negative-fixnum (eval '(- -1 (lsh -1 -1)))
370 ;;; The following are actually set by cl-float-limits. 370 "The integer closest in value to negative infinity.")
371 (defconst most-positive-float nil) 371
372 (defconst most-negative-float nil) 372 ;;; The following are set by code in cl-extra.el
373 (defconst least-positive-float nil) 373 (defconst most-positive-float nil
374 (defconst least-negative-float nil) 374 "The float closest in value to positive infinity.")
375 (defconst most-negative-float nil
376 "The float closest in value to negative infinity.")
377 (defconst least-positive-float nil
378 "The positive float closest in value to 0.")
379 (defconst least-negative-float nil
380 "The negative float closest in value to 0.")
375 (defconst least-positive-normalized-float nil) 381 (defconst least-positive-normalized-float nil)
376 (defconst least-negative-normalized-float nil) 382 (defconst least-negative-normalized-float nil)
377 (defconst float-epsilon nil) 383 (defconst float-epsilon nil)
378 (defconst float-negative-epsilon nil) 384 (defconst float-negative-epsilon nil)
379 385