diff options
| author | Alan Mackenzie <acm@muc.de> | 2011-10-28 14:35:39 +0000 |
|---|---|---|
| committer | Alan Mackenzie <acm@muc.de> | 2011-10-28 14:35:39 +0000 |
| commit | 93b5b3bdc8b734132c530acd6ffae1196c0865bc (patch) | |
| tree | da8ed72a56bfbf65d6f3cd9bdc3fa5d123dc4873 /lisp/emacs-lisp/cl-extra.el | |
| parent | 020716e178cdae443a3630c4307023cb3fc4c350 (diff) | |
| parent | bc97a826f8ea89a269f6043be3148930f023e2b2 (diff) | |
| download | emacs-93b5b3bdc8b734132c530acd6ffae1196c0865bc.tar.gz emacs-93b5b3bdc8b734132c530acd6ffae1196c0865bc.tar.bz2 emacs-93b5b3bdc8b734132c530acd6ffae1196c0865bc.zip | |
Boring merge from savannah.
Diffstat (limited to 'lisp/emacs-lisp/cl-extra.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 7468a0237cf..8ea58b2e07c 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -480,17 +480,13 @@ If STATE is t, return a new state object seeded from the time of day." (and (numberp res) (/= res (/ res 2)) res)) (arith-error nil))) -(defvar most-positive-float) -(defvar most-negative-float) -(defvar least-positive-float) -(defvar least-negative-float) -(defvar least-positive-normalized-float) -(defvar least-negative-normalized-float) -(defvar float-epsilon) -(defvar float-negative-epsilon) - ;;;###autoload (defun cl-float-limits () + "Initialize the Common Lisp floating-point parameters. +This sets the values of: `most-positive-float', `most-negative-float', +`least-positive-float', `least-negative-float', `float-epsilon', +`float-negative-epsilon', `least-positive-normalized-float', and +`least-negative-normalized-float'." (or most-positive-float (not (numberp '2e1)) (let ((x '2e0) y z) ;; Find maximum exponent (first two loops are optimizations) |