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

[Raymond Toy]

    Date: Monday, February 8, 2010 @ 18:52:35
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: intl-branch

Modified: intl.lisp

Print out warning when dumping the pot file if a key is nil.


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


Index: src/code/intl.lisp
diff -u src/code/intl.lisp:1.1.2.3 src/code/intl.lisp:1.1.2.4
--- src/code/intl.lisp:1.1.2.3	Mon Feb  8 18:43:17 2010
+++ src/code/intl.lisp	Mon Feb  8 18:52:34 2010
@@ -1,6 +1,6 @@
 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: INTL -*-
 
-;;; $Revision: 1.1.2.3 $
+;;; $Revision: 1.1.2.4 $
 ;;; 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.3 2010-02-08 23:43:17 rtoy Exp $")
+(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 $")
 
 (in-package "INTL")
 
@@ -681,10 +681,12 @@
 		    (format t "~&msgid_plural ") (str (cdr key) 13 0)
 		    (format t "~&msgstr[0] \"\"~2%"))
 		   (t
-		    (unless key
-		      (format *debug-io* "*** WHOA!  key is NIL~%"))
-		    (format t "~&msgid ") (str key 6 0)
-		    (format t "~&msgstr \"\"~2%"))))
+		    (cond
+		      (key
+		       (format t "~&msgid ") (str key 6 0)
+		       (format t "~&msgstr \"\"~2%"))
+		      (t
+		       (format *error-output* "Skipping NIL key~%"))))))
 	   (str (string col start)
 	     (when (and (plusp col) (> (length string) (- 76 col)))
 	       (format t "\"\"~%"))