From: Stas Boukarev <stassats@users.sourceforge.net>
Date: Tue, 5 Apr 2011 18:36:12 +0000 (+0000)
Subject: 1.0.47.11: isqrt: Fix reference to `fast-isqrt'.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a45305842f1b454acccbd540cf8b433cb73c6693;p=sbcl.git

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
--- 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
--- 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"