Mercurial > hg > xemacs-beta

comparison src/number.c @ 2019:4db90be29229

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-04-16 02:04:50 by james] Fodd -> Foddp, thanks to Olivier Galibert.
author james
date Fri, 16 Apr 2004 02:04:51 +0000
parents f2fdfc131770
children a7dd0aed0fe6
comparison
equal deleted inserted replaced
2018:be4d412c3009 2019:4db90be29229
133 return (BIGNUMP (integer) 133 return (BIGNUMP (integer)
134 ? bignum_evenp (XBIGNUM_DATA (integer)) 134 ? bignum_evenp (XBIGNUM_DATA (integer))
135 : XTYPE (integer) == Lisp_Type_Int_Even) ? Qt : Qnil; 135 : XTYPE (integer) == Lisp_Type_Int_Even) ? Qt : Qnil;
136 } 136 }
137 137
138 DEFUN ("odd", Foddp, 1, 1, 0, /* 138 DEFUN ("oddp", Foddp, 1, 1, 0, /*
139 Return t if INTEGER is odd, nil otherwise. 139 Return t if INTEGER is odd, nil otherwise.
140 */ 140 */
141 (integer)) 141 (integer))
142 { 142 {
143 CONCHECK_INTEGER (integer); 143 CONCHECK_INTEGER (integer);