diff options
| author | Jay Belanger | 2007-06-22 06:04:45 +0000 |
|---|---|---|
| committer | Jay Belanger | 2007-06-22 06:04:45 +0000 |
| commit | 206be3d94c8bbbe9ff081636adb37d61631753b6 (patch) | |
| tree | 686bd193204a126e104d710b9c3250dd847e437e | |
| parent | cebd3c8a27fc532514416ec9c243f0905d5337c6 (diff) | |
| download | emacs-206be3d94c8bbbe9ff081636adb37d61631753b6.tar.gz emacs-206be3d94c8bbbe9ff081636adb37d61631753b6.zip | |
(math-small-factorial-table): Eval when compile.
| -rw-r--r-- | lisp/calc/calc-comb.el | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el index 46f2e5637e0..d4d2ce19528 100644 --- a/lisp/calc/calc-comb.el +++ b/lisp/calc/calc-comb.el | |||
| @@ -295,18 +295,20 @@ | |||
| 295 | ;;; Factorial and related functions. | 295 | ;;; Factorial and related functions. |
| 296 | 296 | ||
| 297 | (defconst math-small-factorial-table | 297 | (defconst math-small-factorial-table |
| 298 | (vector 1 1 2 6 24 120 720 5040 40320 362880 | 298 | (eval-when-compile |
| 299 | (math-read-number-simple "3628800") | 299 | (list |
| 300 | (math-read-number-simple "39916800") | 300 | 'vector 1 1 2 6 24 120 720 5040 40320 362880 |
| 301 | (math-read-number-simple "479001600") | 301 | (math-read-number-simple "3628800") |
| 302 | (math-read-number-simple "6227020800") | 302 | (math-read-number-simple "39916800") |
| 303 | (math-read-number-simple "87178291200") | 303 | (math-read-number-simple "479001600") |
| 304 | (math-read-number-simple "1307674368000") | 304 | (math-read-number-simple "6227020800") |
| 305 | (math-read-number-simple "20922789888000") | 305 | (math-read-number-simple "87178291200") |
| 306 | (math-read-number-simple "355687428096000") | 306 | (math-read-number-simple "1307674368000") |
| 307 | (math-read-number-simple "6402373705728000") | 307 | (math-read-number-simple "20922789888000") |
| 308 | (math-read-number-simple "121645100408832000") | 308 | (math-read-number-simple "355687428096000") |
| 309 | (math-read-number-simple "2432902008176640000"))) | 309 | (math-read-number-simple "6402373705728000") |
| 310 | (math-read-number-simple "121645100408832000") | ||
| 311 | (math-read-number-simple "2432902008176640000")))) | ||
| 310 | 312 | ||
| 311 | (defun calcFunc-fact (n) ; [I I] [F F] [Public] | 313 | (defun calcFunc-fact (n) ; [I I] [F F] [Public] |
| 312 | (let (temp) | 314 | (let (temp) |