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