From 93bbfb9f781e179c006bbcdfb11e87ef6549e2f0 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 12 Jul 2010 14:42:11 +0000
Subject: [PATCH] tools/build-world.sh: o Load all the external formats so we
 can save the strings to the pot   file.

external-formats/*.lisp:
o Set the text domain to cmucl for all of the files.
---
 pcl/simple-streams/external-formats/ascii.lisp         | 3 ++-
 pcl/simple-streams/external-formats/beta-gk.lisp       | 5 ++++-
 pcl/simple-streams/external-formats/cp1250.lisp        | 3 ++-
 pcl/simple-streams/external-formats/cp1251.lisp        | 3 ++-
 pcl/simple-streams/external-formats/cp1252.lisp        | 3 ++-
 pcl/simple-streams/external-formats/cp1253.lisp        | 3 ++-
 pcl/simple-streams/external-formats/cp1254.lisp        | 3 ++-
 pcl/simple-streams/external-formats/cp1255.lisp        | 3 ++-
 pcl/simple-streams/external-formats/cp1256.lisp        | 3 ++-
 pcl/simple-streams/external-formats/cp1257.lisp        | 3 ++-
 pcl/simple-streams/external-formats/cp1258.lisp        | 3 ++-
 pcl/simple-streams/external-formats/cr.lisp            | 3 ++-
 pcl/simple-streams/external-formats/crlf.lisp          | 3 ++-
 pcl/simple-streams/external-formats/final-sigma.lisp   | 5 ++++-
 pcl/simple-streams/external-formats/iso8859-1.lisp     | 3 ++-
 pcl/simple-streams/external-formats/iso8859-10.lisp    | 3 ++-
 pcl/simple-streams/external-formats/iso8859-13.lisp    | 3 ++-
 pcl/simple-streams/external-formats/iso8859-14.lisp    | 3 ++-
 pcl/simple-streams/external-formats/iso8859-15.lisp    | 3 ++-
 pcl/simple-streams/external-formats/iso8859-2.lisp     | 4 +++-
 pcl/simple-streams/external-formats/iso8859-3.lisp     | 3 ++-
 pcl/simple-streams/external-formats/iso8859-4.lisp     | 3 ++-
 pcl/simple-streams/external-formats/iso8859-5.lisp     | 3 ++-
 pcl/simple-streams/external-formats/iso8859-6.lisp     | 3 ++-
 pcl/simple-streams/external-formats/iso8859-7.lisp     | 3 ++-
 pcl/simple-streams/external-formats/iso8859-8.lisp     | 3 ++-
 pcl/simple-streams/external-formats/iso8859-9.lisp     | 3 ++-
 pcl/simple-streams/external-formats/koi8-r.lisp        | 3 ++-
 pcl/simple-streams/external-formats/mac-cyrillic.lisp  | 3 ++-
 pcl/simple-streams/external-formats/mac-greek.lisp     | 3 ++-
 pcl/simple-streams/external-formats/mac-icelandic.lisp | 3 ++-
 pcl/simple-streams/external-formats/mac-latin2.lisp    | 3 ++-
 pcl/simple-streams/external-formats/mac-roman.lisp     | 3 ++-
 pcl/simple-streams/external-formats/mac-turkish.lisp   | 3 ++-
 pcl/simple-streams/external-formats/utf-16-be.lisp     | 3 ++-
 pcl/simple-streams/external-formats/utf-16-le.lisp     | 3 ++-
 pcl/simple-streams/external-formats/utf-16.lisp        | 3 ++-
 pcl/simple-streams/external-formats/utf-32-be.lisp     | 3 ++-
 pcl/simple-streams/external-formats/utf-32-le.lisp     | 3 ++-
 pcl/simple-streams/external-formats/utf-32.lisp        | 3 ++-
 pcl/simple-streams/external-formats/utf-8.lisp         | 3 ++-
 pcl/simple-streams/external-formats/void.lisp          | 5 ++++-
 tools/build-world.sh                                   | 2 ++
 43 files changed, 93 insertions(+), 42 deletions(-)

diff --git a/pcl/simple-streams/external-formats/ascii.lisp b/pcl/simple-streams/external-formats/ascii.lisp
index bf25a4680..b3c2cbe37 100644
--- a/pcl/simple-streams/external-formats/ascii.lisp
+++ b/pcl/simple-streams/external-formats/ascii.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/ascii.lisp,v 1.5 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/ascii.lisp,v 1.6 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (define-external-format :ascii (:size 1 :documentation 
 "US ASCII 7-bit encoding.  Illegal input sequences are replaced with
diff --git a/pcl/simple-streams/external-formats/beta-gk.lisp b/pcl/simple-streams/external-formats/beta-gk.lisp
index f12a3d465..e92345482 100644
--- a/pcl/simple-streams/external-formats/beta-gk.lisp
+++ b/pcl/simple-streams/external-formats/beta-gk.lisp
@@ -4,11 +4,14 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/beta-gk.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/beta-gk.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 ;; This is a composing format that translates (lower-case) Beta code
 ;; (an ASCII encoding of ancient Greek) into Unicode Greek.
 
+(in-package "STREAM")
+(intl:textdomain "cmucl")
+
 (defvar *betamap*
   '((109 956)
     ((102 966)
diff --git a/pcl/simple-streams/external-formats/cp1250.lisp b/pcl/simple-streams/external-formats/cp1250.lisp
index 3d795ecc4..960fb2f8f 100644
--- a/pcl/simple-streams/external-formats/cp1250.lisp
+++ b/pcl/simple-streams/external-formats/cp1250.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1250.lisp,v 1.4 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1250.lisp,v 1.5 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See
 ;; http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1250.TXT
diff --git a/pcl/simple-streams/external-formats/cp1251.lisp b/pcl/simple-streams/external-formats/cp1251.lisp
index 782df2564..8f28e84f3 100644
--- a/pcl/simple-streams/external-formats/cp1251.lisp
+++ b/pcl/simple-streams/external-formats/cp1251.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1251.lisp,v 1.4 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1251.lisp,v 1.5 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1251.TXT
 
diff --git a/pcl/simple-streams/external-formats/cp1252.lisp b/pcl/simple-streams/external-formats/cp1252.lisp
index b7fc4f433..889c14cba 100644
--- a/pcl/simple-streams/external-formats/cp1252.lisp
+++ b/pcl/simple-streams/external-formats/cp1252.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1252.lisp,v 1.5 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1252.lisp,v 1.6 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1252.TXT
 
diff --git a/pcl/simple-streams/external-formats/cp1253.lisp b/pcl/simple-streams/external-formats/cp1253.lisp
index 62ad03870..023ad889a 100644
--- a/pcl/simple-streams/external-formats/cp1253.lisp
+++ b/pcl/simple-streams/external-formats/cp1253.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1253.lisp,v 1.4 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1253.lisp,v 1.5 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1253.TXT
 ;;
diff --git a/pcl/simple-streams/external-formats/cp1254.lisp b/pcl/simple-streams/external-formats/cp1254.lisp
index 2afccb2d6..cfbdc41e3 100644
--- a/pcl/simple-streams/external-formats/cp1254.lisp
+++ b/pcl/simple-streams/external-formats/cp1254.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1254.lisp,v 1.4 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1254.lisp,v 1.5 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1254.TXT
 ;;
diff --git a/pcl/simple-streams/external-formats/cp1255.lisp b/pcl/simple-streams/external-formats/cp1255.lisp
index e257de40a..278d017eb 100644
--- a/pcl/simple-streams/external-formats/cp1255.lisp
+++ b/pcl/simple-streams/external-formats/cp1255.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1255.lisp,v 1.4 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1255.lisp,v 1.5 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1255.TXT
 ;;
diff --git a/pcl/simple-streams/external-formats/cp1256.lisp b/pcl/simple-streams/external-formats/cp1256.lisp
index ff18ea25d..13e3b3ae8 100644
--- a/pcl/simple-streams/external-formats/cp1256.lisp
+++ b/pcl/simple-streams/external-formats/cp1256.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1256.lisp,v 1.4 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1256.lisp,v 1.5 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1256.TXT
 ;;
diff --git a/pcl/simple-streams/external-formats/cp1257.lisp b/pcl/simple-streams/external-formats/cp1257.lisp
index 40c5c3943..d025bf51e 100644
--- a/pcl/simple-streams/external-formats/cp1257.lisp
+++ b/pcl/simple-streams/external-formats/cp1257.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1257.lisp,v 1.4 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1257.lisp,v 1.5 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1257.TXT
 ;;
diff --git a/pcl/simple-streams/external-formats/cp1258.lisp b/pcl/simple-streams/external-formats/cp1258.lisp
index 26a8d93a3..b6927d015 100644
--- a/pcl/simple-streams/external-formats/cp1258.lisp
+++ b/pcl/simple-streams/external-formats/cp1258.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1258.lisp,v 1.4 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1258.lisp,v 1.5 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1258.TXT
 ;;
diff --git a/pcl/simple-streams/external-formats/cr.lisp b/pcl/simple-streams/external-formats/cr.lisp
index 4c7796aee..be2b3589b 100644
--- a/pcl/simple-streams/external-formats/cr.lisp
+++ b/pcl/simple-streams/external-formats/cr.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cr.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cr.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; Convert CR to/from #\newline.
 (define-composing-external-format :cr (:size 1 :documentation
diff --git a/pcl/simple-streams/external-formats/crlf.lisp b/pcl/simple-streams/external-formats/crlf.lisp
index ce0c7f3b4..e2bc9ed7d 100644
--- a/pcl/simple-streams/external-formats/crlf.lisp
+++ b/pcl/simple-streams/external-formats/crlf.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/crlf.lisp,v 1.4 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/crlf.lisp,v 1.5 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; Convert DOS cr/lf end-of-line sequence to/from #\newline
 (define-composing-external-format :crlf (:max 2 :documentation
diff --git a/pcl/simple-streams/external-formats/final-sigma.lisp b/pcl/simple-streams/external-formats/final-sigma.lisp
index de04cbf04..0c0df3d5a 100644
--- a/pcl/simple-streams/external-formats/final-sigma.lisp
+++ b/pcl/simple-streams/external-formats/final-sigma.lisp
@@ -4,7 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/final-sigma.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/final-sigma.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
+
+(in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; This is a composing format that attempts to detect sigma in
 ;; word-final position and change it from "σ" (U+03C3) to "ς" (U+03C2).
diff --git a/pcl/simple-streams/external-formats/iso8859-1.lisp b/pcl/simple-streams/external-formats/iso8859-1.lisp
index 974e3a336..70f3deb46 100644
--- a/pcl/simple-streams/external-formats/iso8859-1.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-1.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-1.lisp,v 1.5 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-1.lisp,v 1.6 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; This is actually implemented in the external-formats code
 ;; It appears here only for reference, and will never get loaded
diff --git a/pcl/simple-streams/external-formats/iso8859-10.lisp b/pcl/simple-streams/external-formats/iso8859-10.lisp
index 198022905..899cc8ba1 100644
--- a/pcl/simple-streams/external-formats/iso8859-10.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-10.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-10.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-10.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-10+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/iso8859-13.lisp b/pcl/simple-streams/external-formats/iso8859-13.lisp
index 8d5f58b56..a36a0ff17 100644
--- a/pcl/simple-streams/external-formats/iso8859-13.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-13.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-13.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-13.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-13+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/iso8859-14.lisp b/pcl/simple-streams/external-formats/iso8859-14.lisp
index af0cabb1f..5ca2640e8 100644
--- a/pcl/simple-streams/external-formats/iso8859-14.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-14.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-14.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-14.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-14+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/iso8859-15.lisp b/pcl/simple-streams/external-formats/iso8859-15.lisp
index 63f916628..1135d9ac5 100644
--- a/pcl/simple-streams/external-formats/iso8859-15.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-15.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-15.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-15.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-15+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/iso8859-2.lisp b/pcl/simple-streams/external-formats/iso8859-2.lisp
index db550c3e4..4c4101839 100644
--- a/pcl/simple-streams/external-formats/iso8859-2.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-2.lisp
@@ -4,9 +4,11 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-2.lisp,v 1.6 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-2.lisp,v 1.7 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
+
 
 (defconstant +iso-8859-2+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/iso8859-3.lisp b/pcl/simple-streams/external-formats/iso8859-3.lisp
index 2a85ed057..26e79a5b0 100644
--- a/pcl/simple-streams/external-formats/iso8859-3.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-3.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-3.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-3.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-3+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/iso8859-4.lisp b/pcl/simple-streams/external-formats/iso8859-4.lisp
index d58d83b62..7625426c3 100644
--- a/pcl/simple-streams/external-formats/iso8859-4.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-4.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-4.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-4.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-4+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/iso8859-5.lisp b/pcl/simple-streams/external-formats/iso8859-5.lisp
index 226ed5d4f..e1787eaa9 100644
--- a/pcl/simple-streams/external-formats/iso8859-5.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-5.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-5.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-5.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-5+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/iso8859-6.lisp b/pcl/simple-streams/external-formats/iso8859-6.lisp
index 2d68399fc..afcc6fdaa 100644
--- a/pcl/simple-streams/external-formats/iso8859-6.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-6.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-6.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-6.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-6+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/iso8859-7.lisp b/pcl/simple-streams/external-formats/iso8859-7.lisp
index d9718e47f..a5bc07db8 100644
--- a/pcl/simple-streams/external-formats/iso8859-7.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-7.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-7.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-7.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-7+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/iso8859-8.lisp b/pcl/simple-streams/external-formats/iso8859-8.lisp
index 395c8f998..e08087a78 100644
--- a/pcl/simple-streams/external-formats/iso8859-8.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-8.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-8.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-8.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-8+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/iso8859-9.lisp b/pcl/simple-streams/external-formats/iso8859-9.lisp
index 7da494dea..d165503d2 100644
--- a/pcl/simple-streams/external-formats/iso8859-9.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-9.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-9.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-9.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-9+
   (make-array 96 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/koi8-r.lisp b/pcl/simple-streams/external-formats/koi8-r.lisp
index 09fa9503e..1360a5e91 100644
--- a/pcl/simple-streams/external-formats/koi8-r.lisp
+++ b/pcl/simple-streams/external-formats/koi8-r.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/koi8-r.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/koi8-r.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +koi8-r+
   (make-array 128 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/mac-cyrillic.lisp b/pcl/simple-streams/external-formats/mac-cyrillic.lisp
index 91e4cd4f4..ef52085c8 100644
--- a/pcl/simple-streams/external-formats/mac-cyrillic.lisp
+++ b/pcl/simple-streams/external-formats/mac-cyrillic.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-cyrillic.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-cyrillic.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +mac-cyrillic+
   (make-array 128 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/mac-greek.lisp b/pcl/simple-streams/external-formats/mac-greek.lisp
index 44d7fe062..f45ff77eb 100644
--- a/pcl/simple-streams/external-formats/mac-greek.lisp
+++ b/pcl/simple-streams/external-formats/mac-greek.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-greek.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-greek.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +mac-greek+
   (make-array 128 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/mac-icelandic.lisp b/pcl/simple-streams/external-formats/mac-icelandic.lisp
index 89ef6999b..7cb397f0d 100644
--- a/pcl/simple-streams/external-formats/mac-icelandic.lisp
+++ b/pcl/simple-streams/external-formats/mac-icelandic.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-icelandic.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-icelandic.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +mac-icelandic+
   (make-array 128 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/mac-latin2.lisp b/pcl/simple-streams/external-formats/mac-latin2.lisp
index ece9e08e5..a4640a7cc 100644
--- a/pcl/simple-streams/external-formats/mac-latin2.lisp
+++ b/pcl/simple-streams/external-formats/mac-latin2.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-latin2.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-latin2.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +mac-latin2+
   (make-array 128 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/mac-roman.lisp b/pcl/simple-streams/external-formats/mac-roman.lisp
index 59519d111..9e3bc1aa1 100644
--- a/pcl/simple-streams/external-formats/mac-roman.lisp
+++ b/pcl/simple-streams/external-formats/mac-roman.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-roman.lisp,v 1.7 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-roman.lisp,v 1.8 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/APPLE/ROMAN.TXT.  We
 ;; only need the entries from 128 to 255.
diff --git a/pcl/simple-streams/external-formats/mac-turkish.lisp b/pcl/simple-streams/external-formats/mac-turkish.lisp
index a5e73306d..aa35b051e 100644
--- a/pcl/simple-streams/external-formats/mac-turkish.lisp
+++ b/pcl/simple-streams/external-formats/mac-turkish.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-turkish.lisp,v 1.3 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-turkish.lisp,v 1.4 2010/07/12 14:42:11 rtoy Rel $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +mac-turkish+
   (make-array 128 :element-type '(unsigned-byte 16)
diff --git a/pcl/simple-streams/external-formats/utf-16-be.lisp b/pcl/simple-streams/external-formats/utf-16-be.lisp
index a83f00757..2c94b9279 100644
--- a/pcl/simple-streams/external-formats/utf-16-be.lisp
+++ b/pcl/simple-streams/external-formats/utf-16-be.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-16-be.lisp,v 1.9 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-16-be.lisp,v 1.10 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; UTF-16BE.  BOM is not recognized and is never output.
 
diff --git a/pcl/simple-streams/external-formats/utf-16-le.lisp b/pcl/simple-streams/external-formats/utf-16-le.lisp
index 6c74e66d1..a23851833 100644
--- a/pcl/simple-streams/external-formats/utf-16-le.lisp
+++ b/pcl/simple-streams/external-formats/utf-16-le.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-16-le.lisp,v 1.9 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-16-le.lisp,v 1.10 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; UTF-16LE.  BOM is not recognized, and is never output.
 ;;
diff --git a/pcl/simple-streams/external-formats/utf-16.lisp b/pcl/simple-streams/external-formats/utf-16.lisp
index b541af125..ed69a256f 100644
--- a/pcl/simple-streams/external-formats/utf-16.lisp
+++ b/pcl/simple-streams/external-formats/utf-16.lisp
@@ -1,9 +1,10 @@
 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: STREAM -*-
 ;;;
 ;;; **********************************************************************
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-16.lisp,v 1.11 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-16.lisp,v 1.12 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; From the Unicode BOM FAQ
 ;; (http://www.unicode.org/faq/utf_bom.html#BOM), UTF-16BE and
diff --git a/pcl/simple-streams/external-formats/utf-32-be.lisp b/pcl/simple-streams/external-formats/utf-32-be.lisp
index 46c53ed89..3a8f6f1af 100644
--- a/pcl/simple-streams/external-formats/utf-32-be.lisp
+++ b/pcl/simple-streams/external-formats/utf-32-be.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-32-be.lisp,v 1.8 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-32-be.lisp,v 1.9 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (define-external-format :utf-32-be (:size 4 :documentation
 "UTF-32-BE is a fixed-length character encoding of 4 octets for
diff --git a/pcl/simple-streams/external-formats/utf-32-le.lisp b/pcl/simple-streams/external-formats/utf-32-le.lisp
index 21c3d93b6..a6e6ea0aa 100644
--- a/pcl/simple-streams/external-formats/utf-32-le.lisp
+++ b/pcl/simple-streams/external-formats/utf-32-le.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-32-le.lisp,v 1.8 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-32-le.lisp,v 1.9 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (define-external-format :utf-32-le (:size 4 :documentation
 "UTF-32-LE is a fixed-length character encoding of 4 octets for
diff --git a/pcl/simple-streams/external-formats/utf-32.lisp b/pcl/simple-streams/external-formats/utf-32.lisp
index 0fd041a88..e0f00ab8a 100644
--- a/pcl/simple-streams/external-formats/utf-32.lisp
+++ b/pcl/simple-streams/external-formats/utf-32.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-32.lisp,v 1.10 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-32.lisp,v 1.11 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; UTF-32, with unspecified endianness.  We default to big-endian (as
 ;; specified), but we do recognize the BOM to specify endianness.  We
diff --git a/pcl/simple-streams/external-formats/utf-8.lisp b/pcl/simple-streams/external-formats/utf-8.lisp
index 0f670cb3f..d95f1f652 100644
--- a/pcl/simple-streams/external-formats/utf-8.lisp
+++ b/pcl/simple-streams/external-formats/utf-8.lisp
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-8.lisp,v 1.13 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-8.lisp,v 1.14 2010/07/12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; A safe UTF-8 external format.  Any illegal UTF-8 sequences on input
 ;; are replaced with the Unicode REPLACEMENT CHARACTER (U+FFFD).
diff --git a/pcl/simple-streams/external-formats/void.lisp b/pcl/simple-streams/external-formats/void.lisp
index 9cdc3bbef..c26601669 100644
--- a/pcl/simple-streams/external-formats/void.lisp
+++ b/pcl/simple-streams/external-formats/void.lisp
@@ -4,7 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/void.lisp,v 1.5 2010/07/12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/void.lisp,v 1.6 2010/07/12 14:42:11 rtoy Rel $")
+
+(in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; This is actually implemented in the external-formats code
 ;; It appears here only for reference, and will never get loaded
diff --git a/tools/build-world.sh b/tools/build-world.sh
index 7fd3f54bf..f354915ac 100755
--- a/tools/build-world.sh
+++ b/tools/build-world.sh
@@ -22,6 +22,7 @@ else
 fi
 
 if [ -n "$MAKE_POT" ]; then
+    GETFMT="(map nil #'(lambda (f) (stream::find-external-format (car f))) (list-all-external-formats))"
     SAVEPOT='(intl::dump-pot-files :output-directory "default:src/i18n/locale/")'
 fi
 
@@ -61,6 +62,7 @@ $LISP "$@" -noinit -nositeinit <<EOF
 #+(or no-compiler runtime) (comf "target:compiler/generic/new-genesis")
 #-(or no-pcl runtime) (load "target:tools/pclcom")
 
+$GETFMT
 $SAVEPOT
 
 (setq *gc-verbose* t *interactive* t)
-- 
GitLab