1.0.47.11: isqrt: Fix reference to `fast-isqrt'.

It was originally named `fast-isqrt', but the self-recursive call wasn't renamed.

diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp
index f4b1994..31455e8 100644 (file)
--- a/src/code/numbers.lisp
+++ b/src/code/numbers.lisp
@@ -1394,7 +1394,7 @@ the first."
     ((> n 24)
      (let* ((n-fourth-size (ash (1- (integer-length n)) -2))
             (n-significant-half (ash n (- (ash n-fourth-size 1))))
-            (n-significant-half-isqrt (isqrt-fast n-significant-half))
+            (n-significant-half-isqrt (isqrt n-significant-half))
             (zeroth-iteration (ash n-significant-half-isqrt n-fourth-size))
             (qr (multiple-value-list (floor n zeroth-iteration)))
             (first-iteration (ash (+ zeroth-iteration (first qr)) -1)))

diff --git a/version.lisp-expr b/version.lisp-expr
index 7c456f8..cecdaba 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -20,4 +20,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.47.10"
+"1.0.47.11"