changeset: 5501:4813ff11c6e2 tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Fri May 06 10:37:14 2011 +0100 files: lisp/ChangeLog lisp/cl-macs.el description: Correct the definition of #'cl-non-fixnum-number-p on 32-bit machines. 2011-05-06 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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 <kehoea(a)parhasard.net&gt; + + * 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 <kehoea(a)parhasard.net&gt; * 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) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches