# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1209259210 0
# Node ID 7d261daf53c6b000973b9448bdb6f1348c0619b0
# Parent  5d266b6d0d3de330907577359a6c26c9ff6328ee
(calculator-expt): Replace cl function `oddp'.

diff -r 5d266b6d0d3d -r 7d261daf53c6 lisp/calculator.el
--- a/lisp/calculator.el	Sun Apr 27 01:17:03 2008 +0000
+++ b/lisp/calculator.el	Sun Apr 27 01:20:10 2008 +0000
@@ -5,7 +5,7 @@
 
 ;; Author: Eli Barzilay <eli@barzilay.org>
 ;; Keywords: tools, convenience
-;; Time-stamp: <2007-08-31 03:00:11 ttn>
+;; Time-stamp: <Sat 26-Apr-2008 18:18:44 gm on grasmoor>
 
 ;; This file is part of GNU Emacs.
 
@@ -1806,7 +1806,7 @@
       ;; The range errors come from large integer y.
       ((< y 0.0)
        0.0)
-      ((oddp (truncate y))
+      ((not (zerop (% (truncate y) 2)))
        ;; If y is odd
        -1.0e+INF)
       (t