From: Dave Love <fx@gnu.org>
Date: Sat, 11 Mar 2000 18:47:38 +0000 (+0000)
Subject: (hanoi-internal): Don't use oddp.
X-Git-Tag: emacs-pretest-21.0.90~4691
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cbf48ec9a2e53392c6cf4df88ffb247873163879;p=emacs.git

(hanoi-internal): Don't use oddp.
---

diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index 15b34e36873..8b98f067be9 100644
--- a/lisp/play/hanoi.el
+++ b/lisp/play/hanoi.el
@@ -268,7 +268,8 @@ BITS must be of length nrings.  Start at START-TIME."
 				  (make-string (1- radius) (if vert ?\- ?\|))
 				  (if vert ">" "v"))
 		for face =
-		  (if (oddp n) hanoi-odd-ring-face hanoi-even-ring-face)
+		  (if (eq (logand n 1) 1) ; oddp would require cl at runtime
+		      hanoi-odd-ring-face hanoi-even-ring-face)
 		do (hanoi-put-face 0 (length str) face str)
 		collect (cons str diameter)))
 	     ;; Disable display of line and column numbers, for speed.