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

[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

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-25-gd6a6792
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 d6a6792b94882e781003cf47cfdb882ba3a96f6a (commit) from c3ec1280d301ba9af8b1492b51c5e015bfb1b3ef (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 d6a6792b94882e781003cf47cfdb882ba3a96f6a Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Oct 21 20:35:49 2011 -0700 (format t "a~0&b") should not output a newline between a and b. diff --git a/code/format.lisp b/code/format.lisp index b8a9e76..704ec34 100644 --- a/code/format.lisp +++ b/code/format.lisp @@ -1999,9 +1999,10 @@ (if params (expand-bind-defaults ((count 1)) params `(progn - (fresh-line stream) - (dotimes (i (1- ,count)) - (terpri stream)))) + (when (plusp ,count) + (fresh-line stream) + (dotimes (i (1- ,count)) + (terpri stream))))) '(fresh-line stream))) (def-format-interpreter #\& (colonp atsignp params) @@ -2010,9 +2011,10 @@ :complaint (intl:gettext "Cannot specify either colon or atsign for this directive."))) (interpret-bind-defaults ((count 1)) params - (fresh-line stream) - (dotimes (i (1- count)) - (terpri stream)))) + (when (plusp count) + (fresh-line stream) + (dotimes (i (1- count)) + (terpri stream))))) (def-format-directive #\| (colonp atsignp params) (when (or colonp atsignp) diff --git a/general-info/release-20c.txt b/general-info/release-20c.txt index ffe98b5..2db1794 100644 --- a/general-info/release-20c.txt +++ b/general-info/release-20c.txt @@ -1,7 +1,5 @@ ========================== C M U C L 20 c ============================= -[--- WORK IN PROGRESS ---] - The CMUCL project is pleased to announce the release of CMUCL 20c. This is a major release which contains numerous enhancements and bug fixes from the 20b release. @@ -60,6 +58,7 @@ New in this release: - Improve type propagation for LOAD-TIME-VALUE. - Add -O option to build.sh to allow specifying options to lisp when doing the builds. + - (format t "a~0&b") should not output a newline between a and b. * ANSI compliance fixes: - Fixes for signaling errors with READ-CHAR and READ-BYTE ----------------------------------------------------------------------- Summary of changes: code/format.lisp | 14 ++++++++------ general-info/release-20c.txt | 3 +-- 2 files changed, 9 insertions(+), 8 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-24-gc3ec128
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 c3ec1280d301ba9af8b1492b51c5e015bfb1b3ef (commit) from 7243adb2da5a50c966fb9676f72caa1f20ed4116 (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 c3ec1280d301ba9af8b1492b51c5e015bfb1b3ef Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Oct 21 19:02:06 2011 -0700 Clean up docstrings of MAP<foo> to match the argument names. diff --git a/code/list.lisp b/code/list.lisp index aa44acd..590564a 100644 --- a/code/list.lisp +++ b/code/list.lisp @@ -1056,27 +1056,32 @@ (defun mapc (function list &rest more-lists) - "Applies fn to successive elements of lists, returns its second argument." + "Applies Function to successive elements of each List, and returns + its second argument." (map1 function (cons list more-lists) nil t)) (defun mapcar (function list &rest more-lists) - "Applies fn to successive elements of list, returns list of results." + "Applies Function to successive elements of each List, and returns a + list of results." (map1 function (cons list more-lists) :list t)) (defun mapcan (function list &rest more-lists) - "Applies fn to successive elements of list, returns NCONC of results." + "Applies Function to successive elements of each List, and returns + NCONC of results." (map1 function (cons list more-lists) :nconc t)) (defun mapl (function list &rest more-lists) - "Applies fn to successive CDRs of list, returns ()." + "Applies Function to successive CDRs of each List, and returns ()." (map1 function (cons list more-lists) nil nil)) (defun maplist (function list &rest more-lists) - "Applies fn to successive CDRs of list, returns list of results." + "Applies Function to successive CDRs of each List, and returns list + of results." (map1 function (cons list more-lists) :list nil)) (defun mapcon (function list &rest more-lists) - "Applies fn to successive CDRs of lists, returns NCONC of results." + "Applies Function to successive CDRs of each List, and returns NCONC + of results." (map1 function (cons list more-lists) :nconc nil)) ----------------------------------------------------------------------- Summary of changes: code/list.lisp | 17 +++++++++++------ 1 files changed, 11 insertions(+), 6 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-21-g7b6eb21
by Raymond Toy 15 Oct '11

15 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 7b6eb2172fe582d5d1278abc041ba097fda9aa32 (commit) from a34b7f0e2796651ac002cefd0811767091a3731a (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 7b6eb2172fe582d5d1278abc041ba097fda9aa32 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Oct 14 22:44:17 2011 -0700 Properly handle a denormal operand exception. This should get rid of the occasional problem about SIGFPE's with no exceptions enabled. error.lisp: o Add floating-point-denormal-operand arithmetic error. exports.lisp: o Export the new arithmetic error type. float-trap.lisp: o Check the denormal trap bit and signal the appropriate error. release-20c.txt: o Update. diff --git a/code/error.lisp b/code/error.lisp index f2b2a19..2678d22 100644 --- a/code/error.lisp +++ b/code/error.lisp @@ -53,7 +53,8 @@ arithmetic-error arithmetic-error-operation arithmetic-error-operands package-error package-error-package division-by-zero floating-point-overflow floating-point-underflow - floating-point-inexact floating-point-invalid-operation)) + floating-point-inexact floating-point-invalid-operation + #+x86 floating-point-denormal-operand)) (in-package "CONDITIONS") @@ -1129,6 +1130,8 @@ (define-condition floating-point-underflow (arithmetic-error) ()) (define-condition floating-point-inexact (arithmetic-error) ()) (define-condition floating-point-invalid-operation (arithmetic-error) ()) +#+x86 +(define-condition floating-point-denormal-operand (arithmetic-error) ()) ;;; This condition is signalled whenever we make a UNKNOWN-TYPE so that ;;; compiler warnings can be emitted as appropriate. diff --git a/code/exports.lisp b/code/exports.lisp index 6749fb0..d34e2d3 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -720,7 +720,9 @@ "FIND-IF" "FIND-IF-NOT" "FIND-PACKAGE" "FIND-RESTART" "FIND-SYMBOL" "FINISH-OUTPUT" "FIRST" "FIXNUM" "FLET" "FLOAT" "FLOAT-DIGITS" "FLOAT-PRECISION" "FLOAT-RADIX" - "FLOAT-SIGN" "FLOATING-POINT-INEXACT" + "FLOAT-SIGN" + "FLOATING-POINT-DENORMAL-OPERAND" + "FLOATING-POINT-INEXACT" "FLOATING-POINT-INVALID-OPERATION" "FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW" "FLOATP" "FLOOR" "FMAKUNBOUND" "FORCE-OUTPUT" "FORMAT" "FORMATTER" diff --git a/code/float-trap.lisp b/code/float-trap.lisp index 5cb3b3f..0ac3898 100644 --- a/code/float-trap.lisp +++ b/code/float-trap.lisp @@ -289,6 +289,11 @@ (error 'floating-point-inexact :operation fop :operands operands)) + #+x86 + ((not (zerop (logand float-denormal-trap-bit traps))) + (error 'floating-point-denormal-operand + :operation fop + :operands operands)) (t ;; It looks like the sigcontext on Solaris/x86 doesn't ;; actually save the status word of the FPU. The diff --git a/general-info/release-20c.txt b/general-info/release-20c.txt index 50bea98..ffe98b5 100644 --- a/general-info/release-20c.txt +++ b/general-info/release-20c.txt @@ -145,7 +145,7 @@ New in this release: actually prevent stack overflows from crashing lisp. - Fix rounding of numbers larger than a fixnum. (See Trac #10 for a related issue.) - + - Properly handle the denormal operand trap on x86es. * Trac Tickets: - #43: unread-char doesn't change file-position ----------------------------------------------------------------------- Summary of changes: code/error.lisp | 5 ++++- code/exports.lisp | 4 +++- code/float-trap.lisp | 5 +++++ general-info/release-20c.txt | 2 +- 4 files changed, 13 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch dynamic-stack-alloc updated. snapshot-2011-10-38-g9122483
by Raymond Toy 15 Oct '11

15 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, dynamic-stack-alloc has been updated via 9122483ad1826b335339eca9982882ef8faaf7f7 (commit) via a34b7f0e2796651ac002cefd0811767091a3731a (commit) via ae88f40f3125a4cc7729ccb81ebadd33e05889c7 (commit) via e9c497d7156a43a4acb77c26e392fb47f9c47552 (commit) via 987c3f200c854ede9196132e517756c5d4421239 (commit) via c78ad0faeb5c8518124d55757c2b868ae8b97dfb (commit) via 1e5b21e28d58b1b16a36111967e2ee77464cafbd (commit) via fce6baff8422e8de9c3f4b33e557c55e3e34ebee (commit) via 8c5abd162d1cbee840088eee055f064bf9c1e283 (commit) via 6758988de6238d627c018601adfa137e9321e69d (commit) via 5079827f9d27e143f3a48ab5006ec42f71f0815c (commit) via a0559708e0f703f88c7bb731689e85e3c9f0b88c (commit) via e04778be14f6bba6a489a8bae37e39dee50bebe8 (commit) via ef0137913f8e6bcbe6bc7931d25f5c30cbb91857 (commit) via 39ecf08786867b6aa353203a26b51256a541cedf (commit) via e656215ac44b80944c2ead1314d512ddbcb94ac4 (commit) via 803a8bd24679310c298c8e51264f9dbdb2cf30a7 (commit) via 15db498a83e329bfd524a40897a07a3076f390c8 (commit) via 4be42bd6d9718524eab70a3cdc9ba8f457d83b86 (commit) via 7c53c93c934cafc335ef98e48be2d1cd7e141579 (commit) via b4d64266f7e16b51677285a3e6f93b5351fb13c3 (commit) from d452655e2ee178a879d8e3b6caaec5469d99cf2a (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 9122483ad1826b335339eca9982882ef8faaf7f7 Merge: d452655 a34b7f0 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Oct 13 18:59:33 2011 -0700 Merge branch 'master' into dynamic-stack-alloc Conflicts: tools/create-target.sh tools/load-world.sh diff --cc tools/load-world.sh index d381769,288e40c..391208f --- a/tools/load-world.sh +++ b/tools/load-world.sh @@@ -11,9 -11,10 +11,9 @@@ usage( SKIP_PCL= NO_PCL_FEATURE= - # Default version is the date and the git hash + # Default version is the date with the git hash. GIT_HASH="`(cd src; git describe --dirty 2>/dev/null)`" - VERSION="`date '+%Y-%m-%d %H:%M:%S'`" + VERSION="`date '+%Y-%m-%d %H:%M:%S'`${GIT_HASH:+ $GIT_HASH}" -echo $VERSION while getopts "p" arg do ----------------------------------------------------------------------- Summary of changes: compiler/main.lisp | 137 ++++++++++++++++++++++++++--------------------- tools/build-all.sh | 26 +++++---- tools/create-target.sh | 2 +- tools/load-world.sh | 8 ++-- 4 files changed, 95 insertions(+), 78 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-20-ga34b7f0
by Raymond Toy 13 Oct '11

13 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 a34b7f0e2796651ac002cefd0811767091a3731a (commit) via ae88f40f3125a4cc7729ccb81ebadd33e05889c7 (commit) from e9c497d7156a43a4acb77c26e392fb47f9c47552 (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 a34b7f0e2796651ac002cefd0811767091a3731a Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Oct 12 22:15:46 2011 -0700 Clean up implementation of PROCESS-FILE-COMMENT slightly. diff --git a/compiler/main.lisp b/compiler/main.lisp index eac347d..544ccb0 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -1127,9 +1127,9 @@ (generate-comment (file-info) (let* ((name (pathname (source-info-stream file-info))) (proc (run-git name)) - comment) - (if (and proc (zerop (process-exit-code proc)) - (setf comment (read-line (process-output proc) nil nil))) + (comment (and proc (zerop (process-exit-code proc)) + (read-line (process-output proc) nil nil)))) + (if comment (format nil "$Header: ~A ~A $" (enough-namestring name) comment) commit ae88f40f3125a4cc7729ccb81ebadd33e05889c7 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Oct 12 22:06:43 2011 -0700 Format docstrings for COMPILE-FILE and COMPILE-FILE-PATHNAME so DESCRIBE prints them neatly. diff --git a/compiler/main.lisp b/compiler/main.lisp index 9e16830..eac347d 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -1810,13 +1810,14 @@ These keywords are supported: :Output-File - The name of the FASL to output, NIL for none, T for the default. (Note the - difference between the treatment of NIL :Output-File here and in COMPILE-FILE-PATHNAME.) - The returned pathname of the output file may differ from the pathname of the - :Output-File parameter, e.g. when the latter is a designator for a directory. + The name of the FASL to output, NIL for none, T for the default. + (Note the difference between the treatment of NIL :Output-File + here and in COMPILE-FILE-PATHNAME.) The returned pathname of the + output file may differ from the pathname of the :Output-File + parameter, e.g. when the latter is a designator for a directory. :Load - Load the compiled file; T here requires :Output-File to be non-NIL, as well. - The default for :Load is NIL. + Load the compiled file; T here requires :Output-File to be + non-NIL, as well. The default for :Load is NIL. :Error-File The name of the error listing file, NIL for none (the default), T for .err. :Trace-File @@ -2135,10 +2136,12 @@ (byte-compile *byte-compile-default*) (output-file t output-file-supplied-p) &allow-other-keys) - "Return a pathname describing what file COMPILE-FILE would write to given these arguments. - The returned pathname of the output file may differ from the pathname of the :Output-File - parameter, e.g. when the latter is a designator for a directory. The CMUCL caveat: NIL is - accepted for :Output-File there but not here, which is probably not in line with CLHS." + "Return a pathname describing what file COMPILE-FILE would write to + given these arguments. The returned pathname of the output file may + differ from the pathname of the :Output-File parameter, e.g. when + the latter is a designator for a directory. The CMUCL caveat: NIL is + accepted for :Output-File there but not here, which is probably not + in line with CLHS." (declare (type (or string pathname stream) input-file) (type (or string pathname stream (member t)) output-file) (values (or null pathname))) ----------------------------------------------------------------------- Summary of changes: compiler/main.lisp | 29 ++++++++++++++++------------- 1 files changed, 16 insertions(+), 13 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0