Mercurial > emacs
diff lisp/calc/calc-comb.el @ 81547:4ad09c06607c
(math-small-factorial-table): Eval when compile.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Fri, 22 Jun 2007 06:04:45 +0000 |
| parents | b71851fc9c63 |
| children | 5f2dd5474f8a |
line wrap: on
line diff
--- a/lisp/calc/calc-comb.el Fri Jun 22 06:02:50 2007 +0000 +++ b/lisp/calc/calc-comb.el Fri Jun 22 06:04:45 2007 +0000 @@ -295,18 +295,20 @@ ;;; Factorial and related functions. (defconst math-small-factorial-table - (vector 1 1 2 6 24 120 720 5040 40320 362880 - (math-read-number-simple "3628800") - (math-read-number-simple "39916800") - (math-read-number-simple "479001600") - (math-read-number-simple "6227020800") - (math-read-number-simple "87178291200") - (math-read-number-simple "1307674368000") - (math-read-number-simple "20922789888000") - (math-read-number-simple "355687428096000") - (math-read-number-simple "6402373705728000") - (math-read-number-simple "121645100408832000") - (math-read-number-simple "2432902008176640000"))) + (eval-when-compile + (list + 'vector 1 1 2 6 24 120 720 5040 40320 362880 + (math-read-number-simple "3628800") + (math-read-number-simple "39916800") + (math-read-number-simple "479001600") + (math-read-number-simple "6227020800") + (math-read-number-simple "87178291200") + (math-read-number-simple "1307674368000") + (math-read-number-simple "20922789888000") + (math-read-number-simple "355687428096000") + (math-read-number-simple "6402373705728000") + (math-read-number-simple "121645100408832000") + (math-read-number-simple "2432902008176640000")))) (defun calcFunc-fact (n) ; [I I] [F F] [Public] (let (temp)