Mercurial > hg > xemacs-beta
diff lisp/cl-macs.el @ 5501:4813ff11c6e2
Correct the definition of #'cl-non-fixnum-number-p on 32-bit machines.
2011-05-06 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (most-positive-fixnum-on-32-bit-machines):
Correct this, I had an off-by-one error (because I was developing
on a 64-bit machine). Thanks for the report, Raymond Toy!
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Fri, 06 May 2011 10:37:14 +0100 |
| parents | f2881cb841b4 |
| children | 9ac0016d8fe8 |
line wrap: on
line diff
--- a/lisp/cl-macs.el Tue May 03 08:13:21 2011 -0400 +++ b/lisp/cl-macs.el Fri May 06 10:37:14 2011 +0100 @@ -3227,8 +3227,9 @@ ;; range of fixnums as well as their types. XEmacs doesn't support machines ;; with word size less than 32, so it's OK to have that as the minimum. (macrolet - ((most-negative-fixnum-on-32-bit-machines () (lognot (1- (lsh 1 30)))) - (most-positive-fixnum-on-32-bit-machines () (lsh 1 30))) + ((most-positive-fixnum-on-32-bit-machines () (1- (lsh 1 30))) + (most-negative-fixnum-on-32-bit-machines () + (lognot (most-positive-fixnum-on-32-bit-machines)))) (defun cl-non-fixnum-number-p (object) "Return t if OBJECT is a number not guaranteed to be immediate." (and (numberp object)