From: Glenn Morris <rgm@gnu.org>
Date: Sun, 27 Apr 2008 01:20:10 +0000 (+0000)
Subject: (calculator-expt): Replace cl function `oddp'.
X-Git-Tag: emacs-pretest-23.0.90~6014
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64e96f570bec888a2fe155e3b9820b7758a08db9;p=emacs.git

(calculator-expt): Replace cl function `oddp'.
---

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