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