CMUCL commit: src (43 files)

Raymond Toy rtoy at common-lisp.net
Mon Jul 12 16:42:11 CEST 2010


    Date: Monday, July 12, 2010 @ 10:42:11
  Author: rtoy
    Path: /project/cmucl/cvsroot/src

Modified: pcl/simple-streams/external-formats/ascii.lisp
          pcl/simple-streams/external-formats/beta-gk.lisp
          pcl/simple-streams/external-formats/cp1250.lisp
          pcl/simple-streams/external-formats/cp1251.lisp
          pcl/simple-streams/external-formats/cp1252.lisp
          pcl/simple-streams/external-formats/cp1253.lisp
          pcl/simple-streams/external-formats/cp1254.lisp
          pcl/simple-streams/external-formats/cp1255.lisp
          pcl/simple-streams/external-formats/cp1256.lisp
          pcl/simple-streams/external-formats/cp1257.lisp
          pcl/simple-streams/external-formats/cp1258.lisp
          pcl/simple-streams/external-formats/cr.lisp
          pcl/simple-streams/external-formats/crlf.lisp
          pcl/simple-streams/external-formats/final-sigma.lisp
          pcl/simple-streams/external-formats/iso8859-1.lisp
          pcl/simple-streams/external-formats/iso8859-10.lisp
          pcl/simple-streams/external-formats/iso8859-13.lisp
          pcl/simple-streams/external-formats/iso8859-14.lisp
          pcl/simple-streams/external-formats/iso8859-15.lisp
          pcl/simple-streams/external-formats/iso8859-2.lisp
          pcl/simple-streams/external-formats/iso8859-3.lisp
          pcl/simple-streams/external-formats/iso8859-4.lisp
          pcl/simple-streams/external-formats/iso8859-5.lisp
          pcl/simple-streams/external-formats/iso8859-6.lisp
          pcl/simple-streams/external-formats/iso8859-7.lisp
          pcl/simple-streams/external-formats/iso8859-8.lisp
          pcl/simple-streams/external-formats/iso8859-9.lisp
          pcl/simple-streams/external-formats/koi8-r.lisp
          pcl/simple-streams/external-formats/mac-cyrillic.lisp
          pcl/simple-streams/external-formats/mac-greek.lisp
          pcl/simple-streams/external-formats/mac-icelandic.lisp
          pcl/simple-streams/external-formats/mac-latin2.lisp
          pcl/simple-streams/external-formats/mac-roman.lisp
          pcl/simple-streams/external-formats/mac-turkish.lisp
          pcl/simple-streams/external-formats/utf-16-be.lisp
          pcl/simple-streams/external-formats/utf-16-le.lisp
          pcl/simple-streams/external-formats/utf-16.lisp
          pcl/simple-streams/external-formats/utf-32-be.lisp
          pcl/simple-streams/external-formats/utf-32-le.lisp
          pcl/simple-streams/external-formats/utf-32.lisp
          pcl/simple-streams/external-formats/utf-8.lisp
          pcl/simple-streams/external-formats/void.lisp tools/build-world.sh

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(-)


Index: src/pcl/simple-streams/external-formats/ascii.lisp
diff -u src/pcl/simple-streams/external-formats/ascii.lisp:1.5 src/pcl/simple-streams/external-formats/ascii.lisp:1.6
--- src/pcl/simple-streams/external-formats/ascii.lisp:1.5	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/ascii.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/ascii.lisp,v 1.5 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/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
Index: src/pcl/simple-streams/external-formats/beta-gk.lisp
diff -u src/pcl/simple-streams/external-formats/beta-gk.lisp:1.3 src/pcl/simple-streams/external-formats/beta-gk.lisp:1.4
--- src/pcl/simple-streams/external-formats/beta-gk.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/beta-gk.lisp	Mon Jul 12 10:42:11 2010
@@ -4,11 +4,14 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/beta-gk.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 ;; 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)
Index: src/pcl/simple-streams/external-formats/cp1250.lisp
diff -u src/pcl/simple-streams/external-formats/cp1250.lisp:1.4 src/pcl/simple-streams/external-formats/cp1250.lisp:1.5
--- src/pcl/simple-streams/external-formats/cp1250.lisp:1.4	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/cp1250.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1250.lisp,v 1.4 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1250.lisp,v 1.5 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See
 ;; http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1250.TXT
Index: src/pcl/simple-streams/external-formats/cp1251.lisp
diff -u src/pcl/simple-streams/external-formats/cp1251.lisp:1.4 src/pcl/simple-streams/external-formats/cp1251.lisp:1.5
--- src/pcl/simple-streams/external-formats/cp1251.lisp:1.4	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/cp1251.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1251.lisp,v 1.4 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1251.lisp,v 1.5 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1251.TXT
 
Index: src/pcl/simple-streams/external-formats/cp1252.lisp
diff -u src/pcl/simple-streams/external-formats/cp1252.lisp:1.5 src/pcl/simple-streams/external-formats/cp1252.lisp:1.6
--- src/pcl/simple-streams/external-formats/cp1252.lisp:1.5	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/cp1252.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1252.lisp,v 1.5 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1252.lisp,v 1.6 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1252.TXT
 
Index: src/pcl/simple-streams/external-formats/cp1253.lisp
diff -u src/pcl/simple-streams/external-formats/cp1253.lisp:1.4 src/pcl/simple-streams/external-formats/cp1253.lisp:1.5
--- src/pcl/simple-streams/external-formats/cp1253.lisp:1.4	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/cp1253.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1253.lisp,v 1.4 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1253.lisp,v 1.5 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1253.TXT
 ;;
Index: src/pcl/simple-streams/external-formats/cp1254.lisp
diff -u src/pcl/simple-streams/external-formats/cp1254.lisp:1.4 src/pcl/simple-streams/external-formats/cp1254.lisp:1.5
--- src/pcl/simple-streams/external-formats/cp1254.lisp:1.4	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/cp1254.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1254.lisp,v 1.4 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1254.lisp,v 1.5 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1254.TXT
 ;;
Index: src/pcl/simple-streams/external-formats/cp1255.lisp
diff -u src/pcl/simple-streams/external-formats/cp1255.lisp:1.4 src/pcl/simple-streams/external-formats/cp1255.lisp:1.5
--- src/pcl/simple-streams/external-formats/cp1255.lisp:1.4	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/cp1255.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1255.lisp,v 1.4 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1255.lisp,v 1.5 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1255.TXT
 ;;
Index: src/pcl/simple-streams/external-formats/cp1256.lisp
diff -u src/pcl/simple-streams/external-formats/cp1256.lisp:1.4 src/pcl/simple-streams/external-formats/cp1256.lisp:1.5
--- src/pcl/simple-streams/external-formats/cp1256.lisp:1.4	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/cp1256.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1256.lisp,v 1.4 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1256.lisp,v 1.5 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1256.TXT
 ;;
Index: src/pcl/simple-streams/external-formats/cp1257.lisp
diff -u src/pcl/simple-streams/external-formats/cp1257.lisp:1.4 src/pcl/simple-streams/external-formats/cp1257.lisp:1.5
--- src/pcl/simple-streams/external-formats/cp1257.lisp:1.4	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/cp1257.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1257.lisp,v 1.4 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1257.lisp,v 1.5 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1257.TXT
 ;;
Index: src/pcl/simple-streams/external-formats/cp1258.lisp
diff -u src/pcl/simple-streams/external-formats/cp1258.lisp:1.4 src/pcl/simple-streams/external-formats/cp1258.lisp:1.5
--- src/pcl/simple-streams/external-formats/cp1258.lisp:1.4	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/cp1258.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1258.lisp,v 1.4 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cp1258.lisp,v 1.5 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1258.TXT
 ;;
Index: src/pcl/simple-streams/external-formats/cr.lisp
diff -u src/pcl/simple-streams/external-formats/cr.lisp:1.3 src/pcl/simple-streams/external-formats/cr.lisp:1.4
--- src/pcl/simple-streams/external-formats/cr.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/cr.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cr.lisp,v 1.3 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/cr.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 ;; Convert CR to/from #\newline.
 (define-composing-external-format :cr (:size 1 :documentation
Index: src/pcl/simple-streams/external-formats/crlf.lisp
diff -u src/pcl/simple-streams/external-formats/crlf.lisp:1.4 src/pcl/simple-streams/external-formats/crlf.lisp:1.5
--- src/pcl/simple-streams/external-formats/crlf.lisp:1.4	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/crlf.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/crlf.lisp,v 1.4 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/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
Index: src/pcl/simple-streams/external-formats/final-sigma.lisp
diff -u src/pcl/simple-streams/external-formats/final-sigma.lisp:1.3 src/pcl/simple-streams/external-formats/final-sigma.lisp:1.4
--- src/pcl/simple-streams/external-formats/final-sigma.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/final-sigma.lisp	Mon Jul 12 10:42:11 2010
@@ -4,7 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/final-sigma.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
+
+(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).
Index: src/pcl/simple-streams/external-formats/iso8859-1.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-1.lisp:1.5 src/pcl/simple-streams/external-formats/iso8859-1.lisp:1.6
--- src/pcl/simple-streams/external-formats/iso8859-1.lisp:1.5	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-1.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/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
Index: src/pcl/simple-streams/external-formats/iso8859-10.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-10.lisp:1.3 src/pcl/simple-streams/external-formats/iso8859-10.lisp:1.4
--- src/pcl/simple-streams/external-formats/iso8859-10.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-10.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/iso8859-10.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-10+
   (make-array 96 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/iso8859-13.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-13.lisp:1.3 src/pcl/simple-streams/external-formats/iso8859-13.lisp:1.4
--- src/pcl/simple-streams/external-formats/iso8859-13.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-13.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/iso8859-13.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-13+
   (make-array 96 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/iso8859-14.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-14.lisp:1.3 src/pcl/simple-streams/external-formats/iso8859-14.lisp:1.4
--- src/pcl/simple-streams/external-formats/iso8859-14.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-14.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/iso8859-14.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-14+
   (make-array 96 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/iso8859-15.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-15.lisp:1.3 src/pcl/simple-streams/external-formats/iso8859-15.lisp:1.4
--- src/pcl/simple-streams/external-formats/iso8859-15.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-15.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/iso8859-15.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-15+
   (make-array 96 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/iso8859-2.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-2.lisp:1.6 src/pcl/simple-streams/external-formats/iso8859-2.lisp:1.7
--- src/pcl/simple-streams/external-formats/iso8859-2.lisp:1.6	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-2.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,11 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/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)
Index: src/pcl/simple-streams/external-formats/iso8859-3.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-3.lisp:1.3 src/pcl/simple-streams/external-formats/iso8859-3.lisp:1.4
--- src/pcl/simple-streams/external-formats/iso8859-3.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-3.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/iso8859-3.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-3+
   (make-array 96 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/iso8859-4.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-4.lisp:1.3 src/pcl/simple-streams/external-formats/iso8859-4.lisp:1.4
--- src/pcl/simple-streams/external-formats/iso8859-4.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-4.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/iso8859-4.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-4+
   (make-array 96 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/iso8859-5.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-5.lisp:1.3 src/pcl/simple-streams/external-formats/iso8859-5.lisp:1.4
--- src/pcl/simple-streams/external-formats/iso8859-5.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-5.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/iso8859-5.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-5+
   (make-array 96 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/iso8859-6.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-6.lisp:1.3 src/pcl/simple-streams/external-formats/iso8859-6.lisp:1.4
--- src/pcl/simple-streams/external-formats/iso8859-6.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-6.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/iso8859-6.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-6+
   (make-array 96 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/iso8859-7.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-7.lisp:1.3 src/pcl/simple-streams/external-formats/iso8859-7.lisp:1.4
--- src/pcl/simple-streams/external-formats/iso8859-7.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-7.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/iso8859-7.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-7+
   (make-array 96 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/iso8859-8.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-8.lisp:1.3 src/pcl/simple-streams/external-formats/iso8859-8.lisp:1.4
--- src/pcl/simple-streams/external-formats/iso8859-8.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-8.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/iso8859-8.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-8+
   (make-array 96 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/iso8859-9.lisp
diff -u src/pcl/simple-streams/external-formats/iso8859-9.lisp:1.3 src/pcl/simple-streams/external-formats/iso8859-9.lisp:1.4
--- src/pcl/simple-streams/external-formats/iso8859-9.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/iso8859-9.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/iso8859-9.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +iso-8859-9+
   (make-array 96 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/koi8-r.lisp
diff -u src/pcl/simple-streams/external-formats/koi8-r.lisp:1.3 src/pcl/simple-streams/external-formats/koi8-r.lisp:1.4
--- src/pcl/simple-streams/external-formats/koi8-r.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/koi8-r.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/koi8-r.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +koi8-r+
   (make-array 128 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/mac-cyrillic.lisp
diff -u src/pcl/simple-streams/external-formats/mac-cyrillic.lisp:1.3 src/pcl/simple-streams/external-formats/mac-cyrillic.lisp:1.4
--- src/pcl/simple-streams/external-formats/mac-cyrillic.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/mac-cyrillic.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/mac-cyrillic.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +mac-cyrillic+
   (make-array 128 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/mac-greek.lisp
diff -u src/pcl/simple-streams/external-formats/mac-greek.lisp:1.3 src/pcl/simple-streams/external-formats/mac-greek.lisp:1.4
--- src/pcl/simple-streams/external-formats/mac-greek.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/mac-greek.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/mac-greek.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +mac-greek+
   (make-array 128 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/mac-icelandic.lisp
diff -u src/pcl/simple-streams/external-formats/mac-icelandic.lisp:1.3 src/pcl/simple-streams/external-formats/mac-icelandic.lisp:1.4
--- src/pcl/simple-streams/external-formats/mac-icelandic.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/mac-icelandic.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/mac-icelandic.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +mac-icelandic+
   (make-array 128 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/mac-latin2.lisp
diff -u src/pcl/simple-streams/external-formats/mac-latin2.lisp:1.3 src/pcl/simple-streams/external-formats/mac-latin2.lisp:1.4
--- src/pcl/simple-streams/external-formats/mac-latin2.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/mac-latin2.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/mac-latin2.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +mac-latin2+
   (make-array 128 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/mac-roman.lisp
diff -u src/pcl/simple-streams/external-formats/mac-roman.lisp:1.7 src/pcl/simple-streams/external-formats/mac-roman.lisp:1.8
--- src/pcl/simple-streams/external-formats/mac-roman.lisp:1.7	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/mac-roman.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/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.
Index: src/pcl/simple-streams/external-formats/mac-turkish.lisp
diff -u src/pcl/simple-streams/external-formats/mac-turkish.lisp:1.3 src/pcl/simple-streams/external-formats/mac-turkish.lisp:1.4
--- src/pcl/simple-streams/external-formats/mac-turkish.lisp:1.3	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/mac-turkish.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/mac-turkish.lisp,v 1.4 2010-07-12 14:42:11 rtoy Exp $")
 
 (in-package "STREAM")
+(intl:textdomain "cmucl")
 
 (defconstant +mac-turkish+
   (make-array 128 :element-type '(unsigned-byte 16)
Index: src/pcl/simple-streams/external-formats/utf-16-be.lisp
diff -u src/pcl/simple-streams/external-formats/utf-16-be.lisp:1.9 src/pcl/simple-streams/external-formats/utf-16-be.lisp:1.10
--- src/pcl/simple-streams/external-formats/utf-16-be.lisp:1.9	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/utf-16-be.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/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.
 
Index: src/pcl/simple-streams/external-formats/utf-16-le.lisp
diff -u src/pcl/simple-streams/external-formats/utf-16-le.lisp:1.9 src/pcl/simple-streams/external-formats/utf-16-le.lisp:1.10
--- src/pcl/simple-streams/external-formats/utf-16-le.lisp:1.9	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/utf-16-le.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/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.
 ;;
Index: src/pcl/simple-streams/external-formats/utf-16.lisp
diff -u src/pcl/simple-streams/external-formats/utf-16.lisp:1.11 src/pcl/simple-streams/external-formats/utf-16.lisp:1.12
--- src/pcl/simple-streams/external-formats/utf-16.lisp:1.11	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/utf-16.lisp	Mon Jul 12 10:42:11 2010
@@ -1,9 +1,10 @@
 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: STREAM -*-
 ;;;
 ;;; **********************************************************************
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/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
Index: src/pcl/simple-streams/external-formats/utf-32-be.lisp
diff -u src/pcl/simple-streams/external-formats/utf-32-be.lisp:1.8 src/pcl/simple-streams/external-formats/utf-32-be.lisp:1.9
--- src/pcl/simple-streams/external-formats/utf-32-be.lisp:1.8	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/utf-32-be.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/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
Index: src/pcl/simple-streams/external-formats/utf-32-le.lisp
diff -u src/pcl/simple-streams/external-formats/utf-32-le.lisp:1.8 src/pcl/simple-streams/external-formats/utf-32-le.lisp:1.9
--- src/pcl/simple-streams/external-formats/utf-32-le.lisp:1.8	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/utf-32-le.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/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
Index: src/pcl/simple-streams/external-formats/utf-32.lisp
diff -u src/pcl/simple-streams/external-formats/utf-32.lisp:1.10 src/pcl/simple-streams/external-formats/utf-32.lisp:1.11
--- src/pcl/simple-streams/external-formats/utf-32.lisp:1.10	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/utf-32.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/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
Index: src/pcl/simple-streams/external-formats/utf-8.lisp
diff -u src/pcl/simple-streams/external-formats/utf-8.lisp:1.13 src/pcl/simple-streams/external-formats/utf-8.lisp:1.14
--- src/pcl/simple-streams/external-formats/utf-8.lisp:1.13	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/utf-8.lisp	Mon Jul 12 10:42:11 2010
@@ -4,9 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/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: /project/cmucl/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).
Index: src/pcl/simple-streams/external-formats/void.lisp
diff -u src/pcl/simple-streams/external-formats/void.lisp:1.5 src/pcl/simple-streams/external-formats/void.lisp:1.6
--- src/pcl/simple-streams/external-formats/void.lisp:1.5	Mon Jul 12 09:58:42 2010
+++ src/pcl/simple-streams/external-formats/void.lisp	Mon Jul 12 10:42:11 2010
@@ -4,7 +4,10 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/void.lisp,v 1.5 2010-07-12 13:58:42 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/void.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
Index: src/tools/build-world.sh
diff -u src/tools/build-world.sh:1.7 src/tools/build-world.sh:1.8
--- src/tools/build-world.sh:1.7	Sun Apr 18 13:16:42 2010
+++ src/tools/build-world.sh	Mon Jul 12 10:42:11 2010
@@ -22,6 +22,7 @@
 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 @@
 #+(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)



More information about the cmucl-commit mailing list