From: Jay Belanger Date: Wed, 4 Jul 2007 04:36:04 +0000 (+0000) Subject: (math-small-factorial-table): Replace list by vector. X-Git-Tag: emacs-pretest-23.0.90~12050 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa9f2751768aa432534b99a674a9dce053c49649;p=emacs.git (math-small-factorial-table): Replace list by vector. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e7ab6ae52d9..5f68d1e20a3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -8,6 +8,8 @@ compute "^". (calculator-mode): Mention that results which are too large will return inf. + * calc/calc-comb.el (math-small-factorial-table): Replace list + by vector. 2007-07-03 David Kastrup diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el index 515995a2e74..7bda9972426 100644 --- a/lisp/calc/calc-comb.el +++ b/lisp/calc/calc-comb.el @@ -296,19 +296,18 @@ (defconst math-small-factorial-table (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")))) + (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)