Commit cbf48ec9 authored by Dave Love's avatar Dave Love
Browse files

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

parent f24fef2f
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment