Commit d76f4bf9 authored by rtoy's avatar rtoy
Browse files

I think we can turn off debug 3 for KARATSUBA.

parent 1b272408

code/bignum.lisp

+2 −2
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ 
;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bignum.lisp,v 1.45 2008/10/21 17:35:17 rtoy Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bignum.lisp,v 1.46 2008/10/22 02:45:23 rtoy Exp $")

;;;

;;; **********************************************************************

;;;
@@ -830,7 +830,7 @@ down to individual words.") 
;;;

(defun karatsuba (x y)

  (declare (type bignum-type x y)

	   (optimize (speed 3) (safety 0) (debug 3)))

	   (optimize (speed 3) (safety 0)))

  (flet ((power-of-two (n)

	   ;; Compute the smallest power of two greater than or equal

	   ;; to the given number.