Mercurial > emacs
comparison lisp/calc/calc-bin.el @ 82439:d45f82f9c8f3
(math-bignum-logb-digit-size,math-bignum-digit-power-of-two):
Remove `eval-when-compile's.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Fri, 17 Aug 2007 20:18:45 +0000 |
| parents | b98604865ea0 |
| children | 107ccd98fa12 aaccdab0ee26 |
comparison
equal
deleted
inserted
replaced
| 82438:3b91823ccbc5 | 82439:d45f82f9c8f3 |
|---|---|
| 32 (require 'calc-ext) | 32 (require 'calc-ext) |
| 33 (require 'calc-macs) | 33 (require 'calc-macs) |
| 34 | 34 |
| 35 ;;; Some useful numbers | 35 ;;; Some useful numbers |
| 36 (defconst math-bignum-logb-digit-size | 36 (defconst math-bignum-logb-digit-size |
| 37 (eval-when-compile (logb math-bignum-digit-size)) | 37 (logb math-bignum-digit-size) |
| 38 "The logb of the size of a bignum digit. | 38 "The logb of the size of a bignum digit. |
| 39 This is the largest value of B such that 2^B is less than | 39 This is the largest value of B such that 2^B is less than |
| 40 the size of a Calc bignum digit.") | 40 the size of a Calc bignum digit.") |
| 41 | 41 |
| 42 (defconst math-bignum-digit-power-of-two | 42 (defconst math-bignum-digit-power-of-two |
| 43 (eval-when-compile (expt 2 (logb math-bignum-digit-size))) | 43 (expt 2 (logb math-bignum-digit-size)) |
| 44 "The largest power of 2 less than the size of a Calc bignum digit.") | 44 "The largest power of 2 less than the size of a Calc bignum digit.") |
| 45 | 45 |
| 46 ;;; b-prefix binary commands. | 46 ;;; b-prefix binary commands. |
| 47 | 47 |
| 48 (defun calc-and (n) | 48 (defun calc-and (n) |