CMUCL commit: RELEASE-20B-BRANCH src/tools (piglatin.lisp)

[Raymond Toy]

    Date: Monday, September 13, 2010 @ 16:46:26
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/tools
     Tag: RELEASE-20B-BRANCH

Modified: piglatin.lisp

Use the fasl version number when printing out the project id version. 


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


Index: src/tools/piglatin.lisp
diff -u src/tools/piglatin.lisp:1.3 src/tools/piglatin.lisp:1.3.4.1
--- src/tools/piglatin.lisp:1.3	Mon Jul 12 11:00:24 2010
+++ src/tools/piglatin.lisp	Mon Sep 13 16:46:26 2010
@@ -77,7 +77,7 @@
 
 
 (defconstant +piglatin-header+
-  "\"Project-Id-Version: CMUCL 20A\\n\"
+  "\"Project-Id-Version: CMUCL ~X\\n\"
 \"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\\n\"
 \"Last-Translator: Automatic translation\\n\"
 \"Language-Team: Pig Latin (auto-translated)\\n\"
@@ -125,7 +125,7 @@
 		     ((eq item 'msgstr)
 		      (write-string "msgstr " po)
 		      (when (equal string '(""))
-			(write-string +piglatin-header+ po)
+			(format po +piglatin-header+ (c::backend-fasl-file-version c::*native-backend*))
 			(setq string nil))
 		      (dolist (x string)
 			(write-char #\" po)