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

[Raymond Toy]

    Date: Wednesday, February 24, 2010 @ 20:11:57
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: intl-branch

Modified: irrat.lisp

Oops.  Reporter function for intexp-limit-error needs 2 args, not 1.


------------+
 irrat.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/code/irrat.lisp
diff -u src/code/irrat.lisp:1.60.2.5 src/code/irrat.lisp:1.60.2.6
--- src/code/irrat.lisp:1.60.2.5	Sat Feb 13 12:10:09 2010
+++ src/code/irrat.lisp	Wed Feb 24 20:11:57 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.5 2010-02-13 17:10:09 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.60.2.6 2010-02-25 01:11:57 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -307,7 +307,7 @@
 (define-condition intexp-limit-error (error)
   ((base :initarg :base :reader intexp-base)
    (power :initarg :power :reader intexp-power))
-  (:report (lambda (stream)
+  (:report (lambda (condition stream)
 	     (format stream _"The absolute value of ~S exceeds limit ~S."
 		     (intexp-power condition)
 		     *intexp-maximum-exponent*))))