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

[Raymond Toy]

    Date: Tuesday, February 9, 2010 @ 08:22:59
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: intl-branch

Modified: intl.lisp

Should be LET* in READ-TRANSLATABLE-STRING so we read the string.


-----------+
 intl.lisp |   12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)


Index: src/code/intl.lisp
diff -u src/code/intl.lisp:1.1.2.5 src/code/intl.lisp:1.1.2.6
--- src/code/intl.lisp:1.1.2.5	Mon Feb  8 23:13:21 2010
+++ src/code/intl.lisp	Tue Feb  9 08:22:58 2010
@@ -1,6 +1,6 @@
 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: INTL -*-
 
-;;; $Revision: 1.1.2.5 $
+;;; $Revision: 1.1.2.6 $
 ;;; 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.5 2010-02-09 04:13:21 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/Attic/intl.lisp,v 1.1.2.6 2010-02-09 13:22:58 rtoy Exp $")
 
 (in-package "INTL")
 
@@ -578,12 +578,12 @@
 (defun read-translatable-string (stream char)
   (declare (ignore char))
     (case (peek-char nil stream nil nil t)
-      (#\" (let ((*read-suppress* nil)
-		 (string (read stream t nil t)))
+      (#\" (let* ((*read-suppress* nil)
+		  (string (read stream t nil t)))
 	     `(gettext ,string)))
       (#\N (read-char stream t nil t)
-	   (let ((*read-suppress* nil)
-		 (string (read stream t nil t)))
+	   (let* ((*read-suppress* nil)
+		  (string (read stream t nil t)))
 	     #-runtime
 	     (note-translatable *default-domain* string)
 	     string))