comparison lisp/calculator.el @ 94389:c8cc1acc029f

(calculator-expt): Modify previous change to just use the expanded cl definition of oddp.

94388:7d261daf53c6

;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004,
;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.

;; Author: Eli Barzilay <[e-mail]>
;; Keywords: tools, convenience
;; Time-stamp: <Sat 26-Apr-2008 18:18:44 gm on grasmoor>

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by the

     (cond
      ((and (< x 1.0) (> x -1.0))
       ;; 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 
       ;; comes from large negative y.
       0.0)
      ((and (> x 0.0) (> y 0.0))
       ;; 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)))
       ;; If y is odd
       -1.0e+INF)
      (t
       ;; 
       1.0e+INF)))

94389:c8cc1acc029f

;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004,
;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.

;; Author: Eli Barzilay <[e-mail]>
;; Keywords: tools, convenience
;; Time-stamp: <Sat 26-Apr-2008 18:25:36 gm on grasmoor>

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by the

     (cond
      ((and (< x 1.0) (> x -1.0))
       ;; 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
       ;; comes from large negative y.
       0.0)
      ((and (> x 0.0) (> y 0.0))
       ;; 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)
      ((eq (logand (truncate y) 1) 1)   ; expansion of cl `oddp'
       ;; If y is odd
       -1.0e+INF)
      (t
       ;; 
       1.0e+INF)))