mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

(calculator-expt): Modify previous change to just use the expanded cl

Browse source 
definition of oddp.
This commit is contained in:
Glenn Morris 2008-04-27 01:27:47 +00:00
parent 64e96f570b
commit cba1a4bdc3
2 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2008-04-27 Glenn Morris <rgm@gnu.org>
* calculator.el (calculator-expt): Replace cl function `oddp'.
2008-04-27 Johan Bockgård <bojohan@gnu.org>
* emacs-lisp/bytecomp.el (byte-compile-find-cl-functions):

8
lisp/calculator.el
View file

@ -5,7 +5,7 @@
;; Author: Eli Barzilay <eli@barzilay.org>
;; Keywords: tools, convenience
;; Time-stamp: <Sat 26-Apr-2008 18:18:44 gm on grasmoor>
;; Time-stamp: <Sat 26-Apr-2008 18:25:36 gm on grasmoor>
;; This file is part of GNU Emacs.
@ -1795,18 +1795,18 @@ To use this, apply a binary operator (evaluate it), then call this."
;; For small x, the range error comes from large y.
0.0)
((and (> x 0.0) (< y 0.0))
;; For large positive x and negative y, the range error
;; For large positive x and negative y, the range error
;; comes from large negative y.
0.0)
((and (> x 0.0) (> y 0.0))
;; For large positive x and positive y, the range error
;; For large positive x and positive y, the range error
;; comes from large y.
1.0e+INF)
;; For the rest, x must be large and negative.
;; The range errors come from large integer y.
((< y 0.0)
0.0)
((not (zerop (% (truncate y) 2)))
((eq (logand (truncate y) 1) 1) ; expansion of cl `oddp'
;; If y is odd
-1.0e+INF)
(t