From 64e96f570bec888a2fe155e3b9820b7758a08db9 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Sun, 27 Apr 2008 01:20:10 +0000
Subject: [PATCH] (calculator-expt): Replace cl function `oddp'.

---
 lisp/calculator.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/calculator.el b/lisp/calculator.el
index d5639298dba..be2fba355d8 100644
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -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 @@ To use this, apply a binary operator (evaluate it), then call this."
       ;; 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
-- 
2.39.2