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

[cmucl-cvs] [git] CMU Common Lisp branch master updated. 822fd79aef8e3d85a05c3d9b7cea5e080b802184
by Raymond Toy 25 Sep '11

25 Sep '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 822fd79aef8e3d85a05c3d9b7cea5e080b802184 (commit) from 54f8b21953569cd674e9ee8bd19f1d1690bad133 (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 822fd79aef8e3d85a05c3d9b7cea5e080b802184 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Sep 24 22:48:26 2011 -0700 Fix ticket:48. Use Carl's idea to use git to insert the appropriate comment into the compiled file. If git is not found or if some other error occurs, the file comment is whatever string was given. Need to update the file-comments of every file to remove erroneous dates and revisions. diff --git a/compiler/main.lisp b/compiler/main.lisp index e168ebb..08e8088 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -1101,13 +1101,46 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.") (unless (and (= (length form) 2) (stringp (second form))) (compiler-error _N"Bad FILE-COMMENT form: ~S." form)) (let ((file (first (source-info-current-file *source-info*)))) - (cond ((file-info-comment file) - (compiler-warning _N"Ignoring extra file comment:~% ~S." form)) - (t - (let ((comment (coerce (second form) 'simple-string))) - (setf (file-info-comment file) comment) - (when *compile-verbose* - (compiler-mumble (intl:gettext "~&; Comment: ~A~2&") comment))))))) + (labels + ((run-git (path) + (let ((cwd (default-directory)) + (new (make-pathname :directory (pathname-directory path)))) + (unwind-protect + (progn + ;; Cd to the directory containing the file so that + ;; git can find the git repo, if available. + (setf (default-directory) new) + ;; Run git to get the info. Don't signal any + ;; errors if we can't find git and discard any + ;; error messages from git. We only use the + ;; result if git returns a zero exit code, anyway. + (handler-case + (run-program "git" + (list "log" + "-1" + "--pretty=format:%h %ai %an" + (namestring path)) + :output :stream + :error nil) + (error () + nil))) + (setf (default-directory) cwd)))) + (generate-comment (file-info) + (let* ((name (pathname (source-info-stream file-info))) + (proc (run-git name))) + (if (and proc (zerop (process-exit-code proc))) + (format nil "$Header: ~A ~A $" + (enough-namestring name) + (read-line (process-output proc))) + (second form))))) + (cond ((file-info-comment file) + (compiler-warning _N"Ignoring extra file comment:~% ~S." form)) + (t + (let ((comment (coerce (generate-comment *source-info*) + 'simple-string))) + (setf (file-info-comment file) comment) + (when *compile-verbose* + (compiler-mumble (intl:gettext "~&; Comment: ~A~2&") comment)))))))) ;;; PROCESS-COLD-LOAD-FORM -- Internal ----------------------------------------------------------------------- Summary of changes: compiler/main.lisp | 47 ++++++++++++++++++++++++++++++++++++++++------- 1 files changed, 40 insertions(+), 7 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. 54f8b21953569cd674e9ee8bd19f1d1690bad133
by Raymond Toy 25 Sep '11

25 Sep '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 54f8b21953569cd674e9ee8bd19f1d1690bad133 (commit) from 44a8f0c76e35c0278c8a43dd862cd0984ca14e2d (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 54f8b21953569cd674e9ee8bd19f1d1690bad133 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Sep 24 22:44:29 2011 -0700 Regenerated from current sources. diff --git a/i18n/locale/cmucl.pot b/i18n/locale/cmucl.pot index 9441573..08392c7 100644 --- a/i18n/locale/cmucl.pot +++ b/i18n/locale/cmucl.pot @@ -4772,10 +4772,6 @@ msgid "" msgstr "" #: src/code/float-trap.lisp -msgid "SIGFPE with no exceptions currently enabled?" -msgstr "" - -#: src/code/float-trap.lisp msgid "" "Execute BODY with the floating point exceptions listed in TRAPS\n" " masked (disabled). TRAPS should be a list of possible exceptions\n" @@ -5986,7 +5982,7 @@ msgstr "" #: src/code/commandline.lisp msgid "" "Specifies the number of megabytes that should be allocated to the\n" -" heap. If not specified, a platform- specific default is used. The\n" +" heap. If not specified, a platform-specific default is used. The\n" " actual maximum allowed heap size is platform-specific." msgstr "" @@ -5996,6 +5992,38 @@ msgstr "" #: src/code/commandline.lisp msgid "" +"Specifies the number of megabytes that should be allocated for the\n" +" read-only space. If not specified, a platform-specific default is\n" +" used. The actual maximum allowed read-only size is\n" +" platform-specific." +msgstr "" + +#: src/code/commandline.lisp +msgid "" +"Specifies the number of megabytes that should be allocated for the\n" +" static space. If not specified, a platform-specific default is\n" +" used. The actual maximum allowed static space size is\n" +" platform-specific." +msgstr "" + +#: src/code/commandline.lisp +msgid "" +"Specifies the number of megabytes that should be allocated for the\n" +" control stack. If not specified, a platform-specific default is\n" +" used. The actual maximum allowed control stack size is\n" +" platform-specific." +msgstr "" + +#: src/code/commandline.lisp +msgid "" +"Specifies the number of megabytes that should be allocated for the\n" +" binding stack. If not specified, a platform-specific default is\n" +" used. The actual maximum allowed binding stack size is\n" +" platform-specific." +msgstr "" + +#: src/code/commandline.lisp +msgid "" "A colon-separated list of directories to be used for the library:\n" " search-list." msgstr "" ----------------------------------------------------------------------- Summary of changes: i18n/locale/cmucl.pot | 38 +++++++++++++++++++++++++++++++++----- 1 files changed, 33 insertions(+), 5 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git]CMU Common Lisp branch master updated. 2f083da91b273643f4132ff42674f79a1e5c62b2
by Raymond Toy 21 Sep '11

21 Sep '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 2f083da91b273643f4132ff42674f79a1e5c62b2 (commit) from 44f6f7cdbb89e670cb39e92705c9c008b0f34417 (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 2f083da91b273643f4132ff42674f79a1e5c62b2 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Sep 20 20:15:26 2011 -0700 Fix ticket:46 by removing testing junk. diff --git a/BUILDING b/BUILDING index fd619a8..675cb99 100644 --- a/BUILDING +++ b/BUILDING @@ -682,4 +682,3 @@ In particular steps 3, 4, and 5 can be combined into one by using the -c, -r, and -l options for cross-build-world.sh. The -c option cleans out the targe and cross directories; -r does step 4; and -l does step 5. -# Testing trac/git integration. ----------------------------------------------------------------------- Summary of changes: BUILDING | 1 - 1 files changed, 0 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git]CMU Common Lisp branch master updated. 44f6f7cdbb89e670cb39e92705c9c008b0f34417
by Raymond Toy 21 Sep '11

21 Sep '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 44f6f7cdbb89e670cb39e92705c9c008b0f34417 (commit) from bab32297be11df72c7902e53ef45b569b32e5c8e (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 44f6f7cdbb89e670cb39e92705c9c008b0f34417 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Sep 20 20:14:54 2011 -0700 Testing trac/git integration. diff --git a/BUILDING b/BUILDING index 675cb99..fd619a8 100644 --- a/BUILDING +++ b/BUILDING @@ -682,3 +682,4 @@ In particular steps 3, 4, and 5 can be combined into one by using the -c, -r, and -l options for cross-build-world.sh. The -c option cleans out the targe and cross directories; -r does step 4; and -l does step 5. +# Testing trac/git integration. ----------------------------------------------------------------------- Summary of changes: BUILDING | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git]CMU Common Lisp branch master updated. bab32297be11df72c7902e53ef45b569b32e5c8e
by Raymond Toy 21 Sep '11

21 Sep '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 bab32297be11df72c7902e53ef45b569b32e5c8e (commit) from 1e113f7cc4a2dce782c84b4f47719602e7dd3a20 (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 bab32297be11df72c7902e53ef45b569b32e5c8e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Sep 20 18:47:57 2011 -0700 Remove test text and fix trac #46. diff --git a/BUILDING b/BUILDING index d7b68d0..675cb99 100644 --- a/BUILDING +++ b/BUILDING @@ -682,9 +682,3 @@ In particular steps 3, 4, and 5 can be combined into one by using the -c, -r, and -l options for cross-build-world.sh. The -c option cleans out the targe and cross directories; -r does step 4; and -l does step 5. -# Testing commit email script -# Test 2 -# Test 3 -# Test 4 -# Test 5 -# Test 6 ----------------------------------------------------------------------- Summary of changes: BUILDING | 6 ------ 1 files changed, 0 insertions(+), 6 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git]CMU Common Lisp branch master updated. 1e113f7cc4a2dce782c84b4f47719602e7dd3a20
by Raymond Toy 20 Sep '11

20 Sep '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 1e113f7cc4a2dce782c84b4f47719602e7dd3a20 (commit) from f5db5c51529b146479f685ab360061a02fe4e0c3 (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 1e113f7cc4a2dce782c84b4f47719602e7dd3a20 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Sep 20 11:19:40 2011 -0700 Test 6 diff --git a/BUILDING b/BUILDING index 116f7a2..d7b68d0 100644 --- a/BUILDING +++ b/BUILDING @@ -687,3 +687,4 @@ out the targe and cross directories; -r does step 4; and -l does step # Test 3 # Test 4 # Test 5 +# Test 6 ----------------------------------------------------------------------- Summary of changes: BUILDING | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git]CMU Common Lisp branch master updated. 1d2667f280feccc4d208ea6734ec968ba4874420
by Raymond Toy 20 Sep '11

20 Sep '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 1d2667f280feccc4d208ea6734ec968ba4874420 (commit) from e60aca3ffb168c1763fe66617b2a3fddfbb4c533 (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 1d2667f280feccc4d208ea6734ec968ba4874420 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Sep 20 09:02:34 2011 -0700 Test 4 diff --git a/BUILDING b/BUILDING index 8f3cd69..b949a8a 100644 --- a/BUILDING +++ b/BUILDING @@ -685,3 +685,4 @@ out the targe and cross directories; -r does step 4; and -l does step # Testing commit email script # Test 2 # Test 3 +# Test 4 ----------------------------------------------------------------------- Summary of changes: BUILDING | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git]CMU Common Lisp branch master updated. e60aca3ffb168c1763fe66617b2a3fddfbb4c533
by Raymond Toy 20 Sep '11

20 Sep '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 e60aca3ffb168c1763fe66617b2a3fddfbb4c533 (commit) from 8125f150dd0a0040bbe6cbe9db3cb9a8d2c0f45f (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 e60aca3ffb168c1763fe66617b2a3fddfbb4c533 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Sep 20 08:59:43 2011 -0700 Test 3 diff --git a/BUILDING b/BUILDING index 3fd9d97..8f3cd69 100644 --- a/BUILDING +++ b/BUILDING @@ -684,3 +684,4 @@ out the targe and cross directories; -r does step 4; and -l does step 5. # Testing commit email script # Test 2 +# Test 3 ----------------------------------------------------------------------- Summary of changes: BUILDING | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git]CMU Common Lisp branch master updated. 8125f150dd0a0040bbe6cbe9db3cb9a8d2c0f45f
by Raymond Toy 20 Sep '11

20 Sep '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 8125f150dd0a0040bbe6cbe9db3cb9a8d2c0f45f (commit) from 31b5b635fe4cfd41802b355bb79079c458ada3d4 (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 8125f150dd0a0040bbe6cbe9db3cb9a8d2c0f45f Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Sep 20 08:58:14 2011 -0700 Test 2 diff --git a/BUILDING b/BUILDING index f7461c1..3fd9d97 100644 --- a/BUILDING +++ b/BUILDING @@ -683,3 +683,4 @@ In particular steps 3, 4, and 5 can be combined into one by using the out the targe and cross directories; -r does step 4; and -l does step 5. # Testing commit email script +# Test 2 ----------------------------------------------------------------------- Summary of changes: BUILDING | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git]CMU Common Lisp branch master updated. 31b5b635fe4cfd41802b355bb79079c458ada3d4
by Raymond Toy 20 Sep '11

20 Sep '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 31b5b635fe4cfd41802b355bb79079c458ada3d4 (commit) from c2695b3db7f05e2bcd2500a8c44b7a81ed966870 (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 31b5b635fe4cfd41802b355bb79079c458ada3d4 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Sep 20 08:53:53 2011 -0700 Testing commit email script. diff --git a/BUILDING b/BUILDING index 675cb99..f7461c1 100644 --- a/BUILDING +++ b/BUILDING @@ -682,3 +682,4 @@ In particular steps 3, 4, and 5 can be combined into one by using the -c, -r, and -l options for cross-build-world.sh. The -c option cleans out the targe and cross directories; -r does step 4; and -l does step 5. +# Testing commit email script ----------------------------------------------------------------------- Summary of changes: BUILDING | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0