[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2012-05-18-g0d6f203

Raymond Toy rtoy at common-lisp.net
Fri Jun 1 04:26:22 UTC 2012


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  0d6f20340333a05b1f990056b38ffb77083de2f1 (commit)
       via  7095ad43fd8997c759041e046ffc251fb9685011 (commit)
       via  27f601d7cef020a11b2ae18e0337319385d1fb2e (commit)
      from  f8b368ffa9fbcf75cac9a7ed1d5551e1d57ae76b (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 0d6f20340333a05b1f990056b38ffb77083de2f1
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu May 31 21:25:33 2012 -0700

    Don't set dimension of array to 1 for the rest slots of a primitive
    object.

diff --git a/src/compiler/generic/new-genesis.lisp b/src/compiler/generic/new-genesis.lisp
index 9523d41..953d9ba 100644
--- a/src/compiler/generic/new-genesis.lisp
+++ b/src/compiler/generic/new-genesis.lisp
@@ -2570,7 +2570,7 @@
       (when (vm:primitive-object-header obj)
 	(format t "    lispobj header;~%"))
       (dolist (slot (vm:primitive-object-slots obj))
-	(format t "    ~A ~A~@[[1]~];~%"
+	(format t "    ~A ~A~@[[]~];~%"
 		(getf (vm:slot-options slot) :c-type "lispobj")
 		(nsubstitute #\_ #\-
 			     (string-downcase (string (vm:slot-name slot))))

commit 7095ad43fd8997c759041e046ffc251fb9685011
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu May 31 19:55:27 2012 -0700

    Update translation template.

diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot
index bb807f4..6a45d45 100644
--- a/src/i18n/locale/cmucl.pot
+++ b/src/i18n/locale/cmucl.pot
@@ -9187,16 +9187,6 @@ msgid "Error reading ~S: ~A"
 msgstr ""
 
 #: src/code/fd-stream.lisp
-msgid ""
-"List of coding translations used by 'stream-encoding-file-attribute to map\n"
-"  the read file coding into a native external-format.  Each element is a "
-"list of\n"
-"  a native external-format followed byte a list of coding strings that are "
-"to be\n"
-"  mapped to this native format."
-msgstr ""
-
-#: src/code/fd-stream.lisp
 msgid "Could not find any input routine for ~S"
 msgstr ""
 
@@ -9273,10 +9263,6 @@ msgid "** Closed ~A~%"
 msgstr ""
 
 #: src/code/fd-stream.lisp
-msgid "The ~A external-format requires a file stream."
-msgstr ""
-
-#: src/code/fd-stream.lisp
 msgid ""
 "This is a string that OPEN tacks on the end of a file namestring to produce\n"
 "   a name for the :if-exists :rename-and-delete and :rename options.  Also,\n"
@@ -10078,14 +10064,6 @@ msgid ""
 msgstr ""
 
 #: src/code/load.lisp
-msgid ""
-"The external-format that 'load and 'compile-file use when given an\n"
-"  external-format of :default.  The default value is :default which will "
-"open\n"
-"  the file using the 'ext:*default-external-format*"
-msgstr ""
-
-#: src/code/load.lisp
 msgid "List of free fop tables for the fasloader."
 msgstr ""
 
@@ -10157,7 +10135,7 @@ msgid ""
 "\n"
 "   :EXTERNAL-FORMAT\n"
 "       The external-format to use when opening the FILENAME. The default is\n"
-"       :default which uses the EXT:*DEFAULT-SOURCE-EXTERNAL-FORMAT*.\n"
+"       :default which uses the EXT:*DEFAULT-EXTERNAL-FORMAT*.\n"
 "\n"
 "   The variables *LOAD-VERBOSE*, *LOAD-PRINT* and EXT:*LOAD-IF-SOURCE-NEWER"
 "*\n"

commit 27f601d7cef020a11b2ae18e0337319385d1fb2e
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Tue May 29 20:17:47 2012 -0700

    Update.

diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt
index f176b8b..e2b20e8 100644
--- a/src/general-info/release-20d.txt
+++ b/src/general-info/release-20d.txt
@@ -28,10 +28,6 @@ New in this release:
       double-float) numbers.  Utility functions are provided to set
       and access these packed numbers.
     * Added external format for EUC-KR.
-    * Added new external format, :FILE-ATTRIBUTE, which looks for an
-      emacs mode-line to determine the encoding to use for reading a
-      file.  The end-of-line sequence is also determined from reading
-      the file.
  
   * Changes
     * ASDF2 updated to version 2.21.
@@ -54,11 +50,6 @@ New in this release:
       enabling a trap when the current exception also listed that trap
       caused the exception to be immediately signaled.  This no longer
       happens and now matches how ppc and sparc behave.
-    * The default external-format for COMPILE-FILE and LOAD is now
-      given by *DEFAULT-SOURCE-EXTERNAL-FORMAT*, instead of
-      *DEFAULT-EXTERNAL-FORMAT*.  However, the default value of
-      *DEFAULT-SOURCE-EXTERNAL-FORMAT* is :DEFAULT, which means the
-      value of *DEFAULT-EXTERNAL-FORMAT* will be used.
       
   * ANSI compliance fixes:
     * CMUCL was not printing pathnames like (make-pathname :directory

-----------------------------------------------------------------------

Summary of changes:
 src/compiler/generic/new-genesis.lisp |    2 +-
 src/general-info/release-20d.txt      |    9 ---------
 src/i18n/locale/cmucl.pot             |   24 +-----------------------
 3 files changed, 2 insertions(+), 33 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp


More information about the cmucl-commit mailing list