# HG changeset patch # User Aidan Kehoe # Date 1304674634 -3600 # Node ID 4813ff11c6e297815a02fc0601a3b01881f6f6a1 # Parent 01900734203a8d625bb4ec113fd0daad8131d7bb Correct the definition of #'cl-non-fixnum-number-p on 32-bit machines. 2011-05-06 Aidan Kehoe * 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! diff -r 01900734203a -r 4813ff11c6e2 lisp/ChangeLog --- a/lisp/ChangeLog Tue May 03 08:13:21 2011 -0400 +++ b/lisp/ChangeLog Fri May 06 10:37:14 2011 +0100 @@ -1,3 +1,9 @@ +2011-05-06 Aidan Kehoe + + * 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! + 2011-05-01 Aidan Kehoe * buff-menu.el (list-buffers-directory): diff -r 01900734203a -r 4813ff11c6e2 lisp/cl-macs.el --- 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)