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

[Raymond Toy]

    Date: Monday, February 8, 2010 @ 23:13:21
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: intl-branch

Modified: intl.lisp

Remove debugging print.


-----------+
 intl.lisp |    5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)


Index: src/code/intl.lisp
diff -u src/code/intl.lisp:1.1.2.4 src/code/intl.lisp:1.1.2.5
--- src/code/intl.lisp:1.1.2.4	Mon Feb  8 18:52:34 2010
+++ src/code/intl.lisp	Mon Feb  8 23:13:21 2010
@@ -1,6 +1,6 @@
 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: INTL -*-
 
-;;; $Revision: 1.1.2.4 $
+;;; $Revision: 1.1.2.5 $
 ;;; Copyright 1999-2010 Paul Foley (mycroft at actrix.gen.nz)
 ;;;
 ;;; Permission is hereby granted, free of charge, to any person obtaining
@@ -23,7 +23,7 @@
 ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
 ;;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
 ;;; DAMAGE.
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/Attic/intl.lisp,v 1.1.2.4 2010-02-08 23:52:34 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/Attic/intl.lisp,v 1.1.2.5 2010-02-09 04:13:21 rtoy Exp $")
 
 (in-package "INTL")
 
@@ -747,7 +747,6 @@
 			(write-char #\") (terpri)
 			(str string 0 end))))))
 	   (wstr (string start end)
-	     (format *debug-io* "wstr = ~S (~D to ~D)~%" string start end)
 	     (loop while (< start end) do
 	       (let ((i (position-if (lambda (x)
 				       (or (char= x #\") (char= x #\\)))