X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fnumbers.lisp;h=31455e82de91b828e1be7147762c38fd79f8fb7b;hb=4d0b87793a047baecf2403455ddca1a82f44a41b;hp=f4b19946ba373aa7d076bdb5bb769b357cd99107;hpb=0413e8c9a18ec14710d48f8d3dd6f453fa582457;p=sbcl.git

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