October 2011 - cmucl-cvs - mailman3.common-lisp.net

[cmucl-cvs] [git] CMU Common Lisp branch RELEASE-20C-BRANCH updated. release-20c-base-7-gd26f843
by Raymond Toy 31 Oct '11

31 Oct '11

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, RELEASE-20C-BRANCH has been updated via d26f843313d53333fc1160a6fef13d6aaba312d3 (commit) from 50b8f96365ae8fb57e0dd70a01185fff20c19156 (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 d26f843313d53333fc1160a6fef13d6aaba312d3 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Oct 30 17:55:31 2011 -0700 Pretty-print WITH-ARRAY-DATA. diff --git a/code/pprint.lisp b/code/pprint.lisp index c0f66c5..d1f570f 100644 --- a/code/pprint.lisp +++ b/code/pprint.lisp @@ -1945,7 +1945,8 @@ When annotations are present, invoke them at the right positions." (new-assem:without-scheduling pprint-with-like) (vm::with-fixed-allocation pprint-with-like) (kernel::number-dispatch pprint-with-like) - (stream::with-stream-class pprint-with-like))) + (stream::with-stream-class pprint-with-like) + (lisp::with-array-data pprint-with-like))) (defun pprint-init () (setf *initial-pprint-dispatch* (make-pprint-dispatch-table)) ----------------------------------------------------------------------- Summary of changes: code/pprint.lisp | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch RELEASE-20C-BRANCH updated. release-20c-base-6-g50b8f96
by Raymond Toy 30 Oct '11

30 Oct '11

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, RELEASE-20C-BRANCH has been updated via 50b8f96365ae8fb57e0dd70a01185fff20c19156 (commit) via 14435ceb9d456422906a70076ce4354cdcd98fec (commit) from 5de45b3d05925f6eae2ebbc61526a3e54f44bbb4 (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 50b8f96365ae8fb57e0dd70a01185fff20c19156 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Oct 30 15:32:18 2011 -0700 Solaris sh doesn't have test -e. Use -d instead. diff --git a/tools/create-target.sh b/tools/create-target.sh index d4fc614..b923678 100755 --- a/tools/create-target.sh +++ b/tools/create-target.sh @@ -81,7 +81,7 @@ esac diag "Settings: bld_dir=$bld_dir lisp_variant=$lisp_variant ${motif_variant:+motif_variant=$motif_variant}" # Create a directory tree that mirrors the source directory tree -[ -e "$bld_dir" ] && quit "Exists: `ls -ld $bld_dir`" +[ -d "$bld_dir" ] && quit "Exists: `ls -ld $bld_dir`" mkdir -p "$bld_dir" (cd src && find . -name .git -prune -o -type d -print) | (cd $bld_dir && xargs mkdir -p) || quit "Can't create target directories" commit 14435ceb9d456422906a70076ce4354cdcd98fec Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Oct 30 15:31:56 2011 -0700 Solaris /bin/sh doesn't like ${VERSION:+ -v "$VERSION"}. Simplify it. diff --git a/tools/build-all.sh b/tools/build-all.sh index 3b69e1c..e9d137f 100755 --- a/tools/build-all.sh +++ b/tools/build-all.sh @@ -46,7 +46,7 @@ do C) CREATE_OPT="$OPTARG" ;; o) OLDLISP="$OPTARG" ;; 8) OLD8="$OPTARG" ;; - v) VERSION="$OPTARG" ;; + v) VERSION="$OPTARG"; VERSION_SET=true ;; U) UPDATE_TRANS="-U" ;; P) UPDATE_POT="" ;; \?) usage ;; @@ -83,16 +83,19 @@ buildx86 () buildsun4 () { + if [ "$VERSION_SET" = true ]; then + VERS="-v '"$VERSION"'" + fi # Build non-unicode versions if [ -n "$OLD8" ]; then set -x - src/tools/build.sh -b ${BASE}-8bit $bootfiles ${VERSION:+-v "$VERSION"} -C "$CREATE_OPT" ${UPDATE_TRANS} ${UPDATE_POT} -o "$OLD8" + src/tools/build.sh -b ${BASE}-8bit $bootfiles ${VERS} -C "$CREATE_OPT" ${UPDATE_TRANS} ${UPDATE_POT} -o "$OLD8" set +x fi # Build the unicode version. if [ -n "$OLDLISP" ]; then set -x - src/tools/build.sh -b ${BASE} $bootfiles ${VERSION:+-v "$VERSION"} -C "$CREATE_OPT" ${UPDATE_TRANS} ${UPDATE_POT} -o "$OLDLISP" + src/tools/build.sh -b ${BASE} $bootfiles ${VERS} -C "$CREATE_OPT" ${UPDATE_TRANS} ${UPDATE_POT} -o "$OLDLISP" set +x fi } ----------------------------------------------------------------------- Summary of changes: tools/build-all.sh | 9 ++++++--- tools/create-target.sh | 2 +- 2 files changed, 7 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. release-20c-base-6-gdf24c18
by Raymond Toy 30 Oct '11

30 Oct '11

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 df24c184b9235970968cafd51dee7716491016d9 (commit) via d7cf6dcd12c849c14daba4d086b5c571215018b3 (commit) from 4c04d402638dd573a2952e88fa3c920243160b30 (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 df24c184b9235970968cafd51dee7716491016d9 Merge: 4c04d40 d7cf6dc Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Oct 30 10:27:25 2011 -0700 Merge branch 'RELEASE-20C-BRANCH' commit d7cf6dcd12c849c14daba4d086b5c571215018b3 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Oct 29 23:31:10 2011 -0700 Ignore files generated by tex. diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..7937ace --- /dev/null +++ b/.gitignore @@ -0,0 +1,15 @@ +docs/cmu-user/*.aux +docs/cmu-user/*.cdx +docs/cmu-user/*.cnd +docs/cmu-user/*.fdx +docs/cmu-user/*.fnd +docs/cmu-user/*.idx +docs/cmu-user/*.tdx +docs/cmu-user/*.tnd +docs/cmu-user/*.toc +docs/cmu-user/*.vdx +docs/cmu-user/*.vnd +docs/cmu-user/*.ilg +docs/cmu-user/*.out +docs/cmu-user/*.pdf +docs/cmu-user/*.log ----------------------------------------------------------------------- Summary of changes: .gitignore | 15 +++++++++++++++ 1 files changed, 15 insertions(+), 0 deletions(-) create mode 100644 .gitignore hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. release-20c-base-3-gad21078
by Raymond Toy 30 Oct '11

30 Oct '11

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 ad210786dc3408d450e7780b3f60e0c18cef18e0 (commit) via d22414b343842447e945a611ceb6973230ae2f65 (commit) via 8b6039fd9e994e44b09e6ce1ca71905d2b9551e0 (commit) from 938269e2987c8ca1e73d804a8a8a53b63024cae2 (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 ----------------------------------------------------------------- ----------------------------------------------------------------------- Summary of changes: docs/cmu-user/cmu-user.tex | 2 +- general-info/lisp.1 | 2 +- general-info/release-20c.txt | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch RELEASE-20C-BRANCH updated. release-20c-base-4-g5de45b3
by Raymond Toy 30 Oct '11

30 Oct '11

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, RELEASE-20C-BRANCH has been updated via 5de45b3d05925f6eae2ebbc61526a3e54f44bbb4 (commit) from ad210786dc3408d450e7780b3f60e0c18cef18e0 (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 5de45b3d05925f6eae2ebbc61526a3e54f44bbb4 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Oct 29 23:23:49 2011 -0700 Auto-detect NetBSD. diff --git a/tools/create-target.sh b/tools/create-target.sh index e420f5c..d4fc614 100755 --- a/tools/create-target.sh +++ b/tools/create-target.sh @@ -40,6 +40,7 @@ uname_m=`uname -m 2>/dev/null` i386) lisp_variant=x86_darwin ;; esac ;; + NetBSD) lisp_variant=x86_netbsd ;; *) quit "Unsupported OS: $uname_s";; esac } ----------------------------------------------------------------------- Summary of changes: tools/create-target.sh | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch RELEASE-20C-BRANCH updated. release-20c-base-3-gad21078
by Raymond Toy 22 Oct '11

22 Oct '11

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, RELEASE-20C-BRANCH has been updated via ad210786dc3408d450e7780b3f60e0c18cef18e0 (commit) via d22414b343842447e945a611ceb6973230ae2f65 (commit) via 8b6039fd9e994e44b09e6ce1ca71905d2b9551e0 (commit) from 938269e2987c8ca1e73d804a8a8a53b63024cae2 (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 ad210786dc3408d450e7780b3f60e0c18cef18e0 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Oct 22 13:52:25 2011 -0700 Update date. diff --git a/general-info/lisp.1 b/general-info/lisp.1 index 5bb9915..2595260 100644 --- a/general-info/lisp.1 +++ b/general-info/lisp.1 @@ -11,7 +11,7 @@ .\" ********************************************************************** .\" .\" Man page for CMU CL. -.TH LISP 1 "Mar, 2009" +.TH LISP 1 "Nov, 2011" .AT 3 .SH NAME lisp \- CMU Common Lisp programming environment commit d22414b343842447e945a611ceb6973230ae2f65 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Oct 22 13:50:06 2011 -0700 Clean up phrasing. diff --git a/general-info/release-20c.txt b/general-info/release-20c.txt index 2db1794..86ff7a1 100644 --- a/general-info/release-20c.txt +++ b/general-info/release-20c.txt @@ -22,8 +22,8 @@ New in this release: - Update to Unicode 6.0.0. - Add support for character name completion. This can be used by Slime to do character name completion. - - Initial support for Solaris/x86. CMUCL will run on Solaris/x86 - with all features available, except only Unicode is supported. + - Support for Solaris/x86. CMUCL will run on Solaris/x86 with all + features available, except only Unicode is supported. * Changes - ASDF2 updated to version 2.017. commit 8b6039fd9e994e44b09e6ce1ca71905d2b9551e0 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Oct 22 13:45:22 2011 -0700 Update date and version for release. diff --git a/docs/cmu-user/cmu-user.tex b/docs/cmu-user/cmu-user.tex index 3ea079c..4a94c16 100644 --- a/docs/cmu-user/cmu-user.tex +++ b/docs/cmu-user/cmu-user.tex @@ -47,7 +47,7 @@ \newcommand{\keywords}{lisp, Common Lisp, manual, compiler, programming language implementation, programming environment} -\date{October 2010 \\ 20b} +\date{November 2011 \\ 20c} \begin{document} ----------------------------------------------------------------------- Summary of changes: docs/cmu-user/cmu-user.tex | 2 +- general-info/lisp.1 | 2 +- general-info/release-20c.txt | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp annotated tag release-20c-base created. release-20c-base
by Raymond Toy 22 Oct '11

22 Oct '11

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 annotated tag, release-20c-base has been created at cff7125f5b6ea7d9fe8eb00eef27b86bfc186bd4 (tag) tagging 938269e2987c8ca1e73d804a8a8a53b63024cae2 (commit) replaces snapshot-2011-10 tagged by Raymond Toy on Sat Oct 22 08:56:26 2011 -0700 - Log ----------------------------------------------------------------- Base of the release-20c branch. Alex Goncharov (10): 1. Add .gitignore. 2. Rewrite tools/create-target.sh Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl tools/create-target.sh: merge from dynamic-stack-alloc Remove .gitignore: no need for it for now Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl compile-file: add a doc string for the :Load argument. compile-file: rephrase the doc string for the :Load argument. compiler/main.lisp: Doc strings reformat per the established conventions. Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl compiler/main.lisp: Improve the doc strings for compile-file and compile-file-pathname. Raymond Toy (18): Use git describe to add to default version string. Use git describe instead of git log to get a version. o Let build.sh set the default version instead of setting one here. Remove reference to CVS. Change to correct directory before symlinking the Config and Makefile Just expand the VERSION everywhere instead of trying to be smart and Cleanup version stuff and fix bug. Handle the case where Git describe prints nothing. In this case, just Format docstrings for COMPILE-FILE and COMPILE-FILE-PATHNAME so Clean up implementation of PROCESS-FILE-COMMENT slightly. Properly handle a denormal operand exception. This should get rid of Update with new docstrings and code changes. Remove :CREATE from :IF-DOES-NOT-EXIST; it doesn't do anything Clean up docstrings of MAP<foo> to match the argument names. (format t "a~0&b") should not output a newline between a and b. Bump version to 20c, add bootstrap file. Remove reference to CVS. Regenerated. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch RELEASE-20C-BRANCH created. snapshot-2011-10-28-g938269e
by Raymond Toy 22 Oct '11

22 Oct '11

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, RELEASE-20C-BRANCH has been created at 938269e2987c8ca1e73d804a8a8a53b63024cae2 (commit) - Log ----------------------------------------------------------------- ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-28-g938269e
by Raymond Toy 22 Oct '11

22 Oct '11

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 938269e2987c8ca1e73d804a8a8a53b63024cae2 (commit) via 241c42f324ac69380ee8e1f7f387e89c9ea085c8 (commit) from 4ac29cb60d52a15a16db9e733c687f56b74fa787 (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 938269e2987c8ca1e73d804a8a8a53b63024cae2 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Oct 22 08:49:20 2011 -0700 Regenerated. diff --git a/i18n/locale/cmucl.pot b/i18n/locale/cmucl.pot index 6ddb2af..92ace3d 100644 --- a/i18n/locale/cmucl.pot +++ b/i18n/locale/cmucl.pot @@ -3294,27 +3294,36 @@ msgstr "" #: src/code/list.lisp msgid "" -"Applies fn to successive elements of lists, returns its second argument." +"Applies Function to successive elements of each List, and returns\n" +" its second argument." msgstr "" #: src/code/list.lisp -msgid "Applies fn to successive elements of list, returns list of results." +msgid "" +"Applies Function to successive elements of each List, and returns a\n" +" list of results." msgstr "" #: src/code/list.lisp -msgid "Applies fn to successive elements of list, returns NCONC of results." +msgid "" +"Applies Function to successive elements of each List, and returns\n" +" NCONC of results." msgstr "" #: src/code/list.lisp -msgid "Applies fn to successive CDRs of list, returns ()." +msgid "Applies Function to successive CDRs of each List, and returns ()." msgstr "" #: src/code/list.lisp -msgid "Applies fn to successive CDRs of list, returns list of results." +msgid "" +"Applies Function to successive CDRs of each List, and returns list\n" +" of results." msgstr "" #: src/code/list.lisp -msgid "Applies fn to successive CDRs of lists, returns NCONC of results." +msgid "" +"Applies Function to successive CDRs of each List, and returns NCONC\n" +" of results." msgstr "" #: src/code/list.lisp diff --git a/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po b/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po index 8ed111f..78da94f 100644 --- a/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po +++ b/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po @@ -4546,36 +4546,51 @@ msgstr "" " unctionfay andway accumulatingway esultsray asway esiredday." #: src/code/list.lisp +#, fuzzy msgid "" -"Applies fn to successive elements of lists, returns its second argument." +"Applies Function to successive elements of each List, and returns\n" +" its second argument." msgstr "" "Appliesway nfay otay uccessivesay elementsway ofway istslay, eturnsray " "itsway econdsay argumentway." #: src/code/list.lisp -msgid "Applies fn to successive elements of list, returns list of results." +#, fuzzy +msgid "" +"Applies Function to successive elements of each List, and returns a\n" +" list of results." msgstr "" "Appliesway nfay otay uccessivesay elementsway ofway istlay, eturnsray istlay " "ofway esultsray." #: src/code/list.lisp -msgid "Applies fn to successive elements of list, returns NCONC of results." +#, fuzzy +msgid "" +"Applies Function to successive elements of each List, and returns\n" +" NCONC of results." msgstr "" "Appliesway nfay otay uccessivesay elementsway ofway istlay, eturnsray NCONC " "ofway esultsray." #: src/code/list.lisp -msgid "Applies fn to successive CDRs of list, returns ()." +#, fuzzy +msgid "Applies Function to successive CDRs of each List, and returns ()." msgstr "Appliesway nfay otay uccessivesay Drscay ofway istlay, eturnsray ()." #: src/code/list.lisp -msgid "Applies fn to successive CDRs of list, returns list of results." +#, fuzzy +msgid "" +"Applies Function to successive CDRs of each List, and returns list\n" +" of results." msgstr "" "Appliesway nfay otay uccessivesay Drscay ofway istlay, eturnsray istlay " "ofway esultsray." #: src/code/list.lisp -msgid "Applies fn to successive CDRs of lists, returns NCONC of results." +#, fuzzy +msgid "" +"Applies Function to successive CDRs of each List, and returns NCONC\n" +" of results." msgstr "" "Appliesway nfay otay uccessivesay Drscay ofway istslay, eturnsray NCONC " "ofway esultsray." diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl.po b/i18n/locale/ko/LC_MESSAGES/cmucl.po index a8dcf1d..a806bec 100644 --- a/i18n/locale/ko/LC_MESSAGES/cmucl.po +++ b/i18n/locale/ko/LC_MESSAGES/cmucl.po @@ -3295,27 +3295,36 @@ msgstr "" #: src/code/list.lisp msgid "" -"Applies fn to successive elements of lists, returns its second argument." +"Applies Function to successive elements of each List, and returns\n" +" its second argument." msgstr "" #: src/code/list.lisp -msgid "Applies fn to successive elements of list, returns list of results." +msgid "" +"Applies Function to successive elements of each List, and returns a\n" +" list of results." msgstr "" #: src/code/list.lisp -msgid "Applies fn to successive elements of list, returns NCONC of results." +msgid "" +"Applies Function to successive elements of each List, and returns\n" +" NCONC of results." msgstr "" #: src/code/list.lisp -msgid "Applies fn to successive CDRs of list, returns ()." +msgid "Applies Function to successive CDRs of each List, and returns ()." msgstr "" #: src/code/list.lisp -msgid "Applies fn to successive CDRs of list, returns list of results." +msgid "" +"Applies Function to successive CDRs of each List, and returns list\n" +" of results." msgstr "" #: src/code/list.lisp -msgid "Applies fn to successive CDRs of lists, returns NCONC of results." +msgid "" +"Applies Function to successive CDRs of each List, and returns NCONC\n" +" of results." msgstr "" #: src/code/list.lisp commit 241c42f324ac69380ee8e1f7f387e89c9ea085c8 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Oct 22 08:42:06 2011 -0700 Remove reference to CVS. diff --git a/tools/build.sh b/tools/build.sh index 74374dd..392637e 100755 --- a/tools/build.sh +++ b/tools/build.sh @@ -94,7 +94,7 @@ usage () echo ' the translations.' echo " -? This help message" echo " -w Specify a different build-world.sh script" - echo " -U If translations are done, overwrite the CVS files with the" + echo " -U If translations are done, overwrite the files with the" echo " translations instead of computing and displaying the diffs." echo " -O opt Any additional command-line flags to use when building." echo " The flags always include -noinit -nositeinit" ----------------------------------------------------------------------- Summary of changes: i18n/locale/cmucl.pot | 21 ++++++++++++++----- i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po | 27 ++++++++++++++++++++----- i18n/locale/ko/LC_MESSAGES/cmucl.po | 21 ++++++++++++++----- tools/build.sh | 2 +- 4 files changed, 52 insertions(+), 19 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-26-g4ac29cb
by Raymond Toy 22 Oct '11

22 Oct '11

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 4ac29cb60d52a15a16db9e733c687f56b74fa787 (commit) from d6a6792b94882e781003cf47cfdb882ba3a96f6a (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 4ac29cb60d52a15a16db9e733c687f56b74fa787 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Oct 22 08:37:26 2011 -0700 Bump version to 20c, add bootstrap file. A normal build can be done using boot-20c.lisp. diff --git a/bootfiles/20b/boot-20c.lisp b/bootfiles/20b/boot-20c.lisp new file mode 100644 index 0000000..cc54472 --- /dev/null +++ b/bootfiles/20b/boot-20c.lisp @@ -0,0 +1,68 @@ +;;;; +;;;; Boot file for changing the fasl file version numbers to 20c. +;;;; + +(in-package :c) + +(setf lisp::*enable-package-locked-errors* nil) + +;;; +;;; Note that BYTE-FASL-FILE-VERSION is a constant. +;;; +;;; (Be sure to change BYTE-FASL-FILE-VERSION in +;;; compiler/byte-comp.lisp to the correct value too!) +;;; +#-cmu20c +(setf (symbol-value 'byte-fasl-file-version) #x20c) +#-cmu20c +(setf (backend-fasl-file-version *target-backend*) #x20c) + +;;; +;;; Don't check fasl versions in the compiling Lisp because we'll +;;; load files compiled with the new version numbers. +;;; +#-cmu20c +(setq lisp::*skip-fasl-file-version-check* t) + +;;; +;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in +;;; OPEN-FASL-FILE. To make the new version number take effect, we +;;; have to redefine the function. +;;; +#-cmu20c +(defun open-fasl-file (name where &optional byte-p) + (declare (type pathname name)) + (let* ((stream (open name :direction :output + :if-exists :new-version + :element-type '(unsigned-byte 8) + :class 'binary-text-stream)) + (res (make-fasl-file :stream stream))) + (multiple-value-bind + (version f-vers f-imp) + (if byte-p + (values "Byte code" + byte-fasl-file-version + (backend-byte-fasl-file-implementation *backend*)) + (values (backend-version *backend*) + (backend-fasl-file-version *backend*) + (backend-fasl-file-implementation *backend*))) + (format stream + "FASL FILE output from ~A.~@ + Compiled ~A on ~A~@ + Compiler ~A, Lisp ~A~@ + Targeted for ~A, FASL version ~X~%" + where + (ext:format-universal-time nil (get-universal-time)) + (machine-instance) compiler-version + (lisp-implementation-version) + version f-vers) + ;; + ;; Terminate header. + (dump-byte 255 res) + ;; + ;; Specify code format. + (dump-fop 'lisp::fop-long-code-format res) + (dump-byte f-imp res) + (dump-unsigned-32 f-vers res)) + res)) + diff --git a/compiler/byte-comp.lisp b/compiler/byte-comp.lisp index 3f04bdd..ad16162 100644 --- a/compiler/byte-comp.lisp +++ b/compiler/byte-comp.lisp @@ -34,12 +34,20 @@ ;;;; Fasl file format: -(defconstant byte-fasl-file-version #x20b) +;; The fasl file version should be a series of hex digits in the range +;; 0-9 followed by a single hex digit in the range a-f. Then the +;; version looks like a decimal number followed by a minor release +;; letter of a to f. +(defconstant byte-fasl-file-version #x20c) (let* ((version-string (format nil "~X" byte-fasl-file-version))) - (sys:register-lisp-feature (intern (concatenate 'string "CMU" version-string) :keyword)) + ;; Add :cmu<n> to *features* + (sys:register-lisp-feature (intern (concatenate 'string "CMU" version-string) + :keyword)) + ;; Same as above, except drop the trailing a-f character. (sys:register-lisp-feature (intern (concatenate 'string "CMU" - (subseq version-string 0 (1- (length version-string)))) + (subseq version-string 0 + (1- (length version-string)))) :keyword))) (defun backend-byte-fasl-file-type (backend) ----------------------------------------------------------------------- Summary of changes: bootfiles/{19d/boot-19e.lisp => 20b/boot-20c.lisp} | 15 ++++++++++----- compiler/byte-comp.lisp | 14 +++++++++++--- 2 files changed, 21 insertions(+), 8 deletions(-) copy bootfiles/{19d/boot-19e.lisp => 20b/boot-20c.lisp} (83%) hooks/post-receive -- CMU Common Lisp

1 0