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

[Raymond Toy]

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

Modified: intl.lisp

Paul says we need to call NOTE-TRANSLATABLE in
READ-TRANSLATABLE-STRING for #\", just like for #\N.  This allows
string in code that has been conditionalized out to be put in the pot
file. 


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


Index: src/code/intl.lisp
diff -u src/code/intl.lisp:1.1.2.7 src/code/intl.lisp:1.1.2.8
--- src/code/intl.lisp:1.1.2.7	Tue Feb  9 18:40:35 2010
+++ src/code/intl.lisp	Tue Feb  9 20:52:28 2010
@@ -1,6 +1,6 @@
 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: INTL -*-
 
-;;; $Revision: 1.1.2.7 $
+;;; $Revision: 1.1.2.8 $
 ;;; 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.7 2010-02-09 23:40:35 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/Attic/intl.lisp,v 1.1.2.8 2010-02-10 01:52:28 rtoy Exp $")
 
 (in-package "INTL")
 
@@ -586,6 +586,8 @@
     (case (peek-char nil stream nil nil t)
       (#\" (let* ((*read-suppress* nil)
 		  (string (read stream t nil t)))
+	     #-runtime
+	     (note-translatable *default-domain* string)
 	     `(gettext ,string)))
       (#\N (read-char stream t nil t)
 	   (let* ((*read-suppress* nil)