CMUCL commit: intl-branch src/code (irrat.lisp)

[Raymond Toy]

    Date: Tuesday, February 9, 2010 @ 20:28:49
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: intl-branch

Modified: irrat.lisp

Oops.  :report needs a string.  Will fix this up later.


------------+
 irrat.lisp |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)


Index: src/code/irrat.lisp
diff -u src/code/irrat.lisp:1.60.2.2 src/code/irrat.lisp:1.60.2.3
--- src/code/irrat.lisp:1.60.2.2	Tue Feb  9 15:23:02 2010
+++ src/code/irrat.lisp	Tue Feb  9 20:28:48 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.60.2.2 2010-02-09 20:23:02 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.60.2.3 2010-02-10 01:28:48 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -332,9 +332,9 @@
 	       :base base
 	       :power power)
       (continue ()
-	:report _"Continue with calculation")
+	:report "Continue with calculation")
       (new-limit ()
-	:report _"Continue with calculation, update limit"
+	:report "Continue with calculation, update limit"
 	(setq *intexp-maximum-exponent* (abs power)))))
   (cond ((minusp power)
 	 (/ (intexp base (- power))))