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

[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

[cmucl-cvs] [SCM] CMU Common Lisp branch master updated. c2695b3db7f05e2bcd2500a8c44b7a81ed966870
by Raymond Toy 19 Sep '11

19 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 c2695b3db7f05e2bcd2500a8c44b7a81ed966870 (commit) from 41aeb8f6847c73c1938b0d7356d587d931b655b9 (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 c2695b3db7f05e2bcd2500a8c44b7a81ed966870 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Sep 19 09:15:23 2011 -0700 Remove incorrect statement about using a different dir than src. diff --git a/BUILDING b/BUILDING index a636271..675cb99 100644 --- a/BUILDING +++ b/BUILDING @@ -58,8 +58,7 @@ Setting up a build environment git clone git://common-lisp.net/projects/cmucl/cmucl.git src (The "src" is important to keep everything the same with git as it - was with cvs. If you use a different name, adjust the directions - below accordingly.) + was with cvs.) Whatever you do, the sources must be in a directory named src inside the base directory. Since the build tools keep all ----------------------------------------------------------------------- Summary of changes: BUILDING | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (index.html)
by Raymond Toy 04 Sep '11

04 Sep '11

Date: Saturday, September 3, 2011 @ 22:41:34 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: index.html Add some html tags. ------------+ index.html | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) Index: cmucl-www/cmucl-www/www/index.html diff -u cmucl-www/cmucl-www/www/index.html:1.26 cmucl-www/cmucl-www/www/index.html:1.27 --- cmucl-www/cmucl-www/www/index.html:1.26 Sat Sep 3 22:38:44 2011 +++ cmucl-www/cmucl-www/www/index.html Sat Sep 3 22:41:34 2011 @@ -75,11 +75,11 @@ snapshot and the previous snapshot. <ul> <li> ASDF2 updated to version 2.017. - <li> Improve type propagation for LOAD-TIME-VALUE. - <li> Getting documentation of a structure via DOCUMENTATION no longer signals an error. - <li> Reduce unnecessary consing of SAPs in ROOM. + <li> Improve type propagation for <code>LOAD-TIME-VALUE</code>. + <li> Getting documentation of a structure via <code>DOCUMENTATION</code> no longer signals an error. + <li> Reduce unnecessary consing of <code>SAP</code>s in <code>ROOM</code>. <li> Make stack overflow checking actually work on Mac OS X. The - implementation had the :stack-checking feature, but it didn't + implementation had the <code>:stack-checking</code> feature, but it didn't actually prevent stack overflows from crashing lisp. <li> Fix rounding of numbers larger than a fixnum. </ul>

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (index.html)
by Raymond Toy 04 Sep '11

04 Sep '11

Date: Saturday, September 3, 2011 @ 22:38:45 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: index.html Update news for 2011-09 snapshot. ------------+ index.html | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) Index: cmucl-www/cmucl-www/www/index.html diff -u cmucl-www/cmucl-www/www/index.html:1.25 cmucl-www/cmucl-www/www/index.html:1.26 --- cmucl-www/cmucl-www/www/index.html:1.25 Tue Jul 5 10:05:54 2011 +++ cmucl-www/cmucl-www/www/index.html Sat Sep 3 22:38:44 2011 @@ -68,7 +68,24 @@ Also see <a href="news/index.html">News</a> for older news. <dl> -<dt><strong>Snapshot 2011-07</strong> +<dt><strong>Snapshot 2011-09</strong> + +<dd> The 2011-09 snapshot has been released. See the release notes for +details, but here is a quick summary of the changes between the this +snapshot and the previous snapshot. + <ul> + <li> ASDF2 updated to version 2.017. + <li> Improve type propagation for LOAD-TIME-VALUE. + <li> Getting documentation of a structure via DOCUMENTATION no longer signals an error. + <li> Reduce unnecessary consing of SAPs in ROOM. + <li> Make stack overflow checking actually work on Mac OS X. The + implementation had the :stack-checking feature, but it didn't + actually prevent stack overflows from crashing lisp. + <li> Fix rounding of numbers larger than a fixnum. + </ul> +</dd> + +<dt>Snapshot 2011-07 <dd> The 2011-07 snapshot has been released. See the release notes for details, but here is a quick summary of the changes between the this

1 0

[cmucl-cvs] CMUCL commit: src/i18n/locale (cmucl.pot)
by Raymond Toy 03 Sep '11

03 Sep '11

Date: Saturday, September 3, 2011 @ 08:04:40 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale Modified: cmucl.pot Regenerated from current sources. -----------+ cmucl.pot | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) Index: src/i18n/locale/cmucl.pot diff -u src/i18n/locale/cmucl.pot:1.21 src/i18n/locale/cmucl.pot:1.22 --- src/i18n/locale/cmucl.pot:1.21 Tue Jun 28 12:20:09 2011 +++ src/i18n/locale/cmucl.pot Sat Sep 3 08:04:39 2011 @@ -10725,9 +10725,10 @@ #: src/code/interr.lisp msgid "" -"~2&~@<A control stack overflow has occurred: ~\n" -" the program has entered the yellow control stack guard zone. ~\n" -" Please note that you will be returned to the Top-Level if you ~\n" +"~2&~@<A control stack overflow has occurred:~%~\n" +" the program has entered the yellow control stack guard zone.~%~\n" +" Please note that you will be returned to the Top-Level if " +"you~%~\n" " enter the red control stack guard zone while debugging.~@:>~2%" msgstr ""

1 0

[cmucl-cvs] CMUCL commit: src (code/float.lisp general-info/release-20c.txt)
by Raymond Toy 03 Sep '11

03 Sep '11

Date: Friday, September 2, 2011 @ 22:19:03 Author: rtoy Path: /project/cmucl/cvsroot/src Modified: code/float.lisp general-info/release-20c.txt Fix rounding for large numbers. Bug was pointed by Christophe in private email. Fix is based on his suggested solution. Some examples that should work now: (round 100000000002.9d0) -> 100000000003 (round (+ most-positive-fixnum 1.5w0)) -> 536870912 ------------------------------+ code/float.lisp | 67 ++++++++++++++++++++++------------------- general-info/release-20c.txt | 2 + 2 files changed, 38 insertions(+), 31 deletions(-) Index: src/code/float.lisp diff -u src/code/float.lisp:1.48 src/code/float.lisp:1.49 --- src/code/float.lisp:1.48 Tue Apr 20 10:57:44 2010 +++ src/code/float.lisp Fri Sep 2 22:19:03 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/float.lisp,v 1.48 2010/04/20 17:57:44 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/float.lisp,v 1.49 2011/09/03 05:19:03 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1257,40 +1257,45 @@ ;;; represented by an integer.] ;;; (defun %unary-round (number) - (number-dispatch ((number real)) - ((integer) number) - ((ratio) (values (round (numerator number) (denominator number)))) - (((foreach single-float double-float #+long-float long-float)) - (if (< (float most-negative-fixnum number) - number - (float most-positive-fixnum number)) - (truly-the fixnum (%unary-round number)) - (multiple-value-bind (bits exp) - (integer-decode-float number) + (flet ((round-integer (bits exp sign) (let* ((shifted (ash bits exp)) - (rounded (if (and (minusp exp) - (oddp shifted) - (not (zerop (logand bits - (ash 1 (- -1 exp)))))) + (roundup-p + ;; Round if the are fraction bits (exp is + ;; negative). + (when (minusp exp) + (let ((fraction (ldb (byte (- exp) 0) bits)) + (half (ash 1 (- -1 exp)))) + ;; If the fraction is less than half, then no + ;; rounding. Otherwise, round up if the + ;; fraction is greater than half or the + ;; integer part is odd (for round-to-even). + (cond ((> fraction half) t) + ((< fraction half) nil) + ((oddp shifted) + t))))) + (rounded (if roundup-p (1+ shifted) shifted))) - (if (minusp number) + + (if (minusp sign) (- rounded) - rounded))))) - #+double-double - ((double-double-float) - (multiple-value-bind (bits exp) - (integer-decode-float number) - (let* ((shifted (ash bits exp)) - (rounded (if (and (minusp exp) - (oddp shifted) - (not (zerop (logand bits - (ash 1 (- -1 exp)))))) - (1+ shifted) - shifted))) - (if (minusp number) - (- rounded) - rounded)))))) + rounded)))) + (number-dispatch ((number real)) + ((integer) number) + ((ratio) (values (round (numerator number) (denominator number)))) + (((foreach single-float double-float #+long-float long-float)) + (if (< (float most-negative-fixnum number) + number + (float most-positive-fixnum number)) + (truly-the fixnum (%unary-round number)) + (multiple-value-bind (bits exp sign) + (integer-decode-float number) + (round-integer bits exp sign)))) + #+double-double + ((double-double-float) + (multiple-value-bind (bits exp sign) + (integer-decode-float number) + (round-integer bits exp sign)))))) (declaim (maybe-inline %unary-ftruncate/single-float %unary-ftruncate/double-float)) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.31 src/general-info/release-20c.txt:1.32 --- src/general-info/release-20c.txt:1.31 Wed Aug 31 21:39:55 2011 +++ src/general-info/release-20c.txt Fri Sep 2 22:19:03 2011 @@ -141,6 +141,8 @@ - Make stack overflow checking actually work on Mac OS X. The implementation had the :stack-checking feature, but it didn't actually prevent stack overflows from crashing lisp. + - Fix rounding of numbers larger than a fixnum. (See Trac #10 for + a related issue.) * Trac Tickets:

1 0

[cmucl-cvs] CMUCL commit: src/lisp (Darwin-os.c)
by Raymond Toy 03 Sep '11

03 Sep '11

Date: Friday, September 2, 2011 @ 21:46:35 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: Darwin-os.c Cleanup sigbus handler for stack overflow. We don't need sigbus_handler_tramp; sigbus_handle_now is good enough. Print out the PC too when we get a real sigbus. -------------+ Darwin-os.c | 32 +++----------------------------- 1 file changed, 3 insertions(+), 29 deletions(-) Index: src/lisp/Darwin-os.c diff -u src/lisp/Darwin-os.c:1.34 src/lisp/Darwin-os.c:1.35 --- src/lisp/Darwin-os.c:1.34 Thu Sep 1 09:16:49 2011 +++ src/lisp/Darwin-os.c Fri Sep 2 21:46:34 2011 @@ -14,7 +14,7 @@ * Frobbed for OpenBSD by Pierre R. Mai, 2001. * Frobbed for Darwin by Pierre R. Mai, 2003. * - * $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.c,v 1.34 2011/09/01 16:16:49 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.c,v 1.35 2011/09/03 04:46:34 rtoy Exp $ * */ @@ -462,18 +462,6 @@ interrupt_handle_now(signal, code, context); } - -static int tramp_signal; -static siginfo_t tramp_code; -static ucontext_t tramp_context; - -static void -sigbus_handler_tramp(void) -{ - sigbus_handle_now(tramp_signal, &tramp_code, &tramp_context); -} - - static void sigbus_handler(HANDLER_ARGS) { @@ -508,24 +496,10 @@ if (interrupt_maybe_gc(signal, code, context)) return; #endif -#ifdef RED_ZONE_HIT - { - /* - * Switch back to the normal stack and invoke the Lisp signal - * handler there. Global variables are used to pass the - * context * to the other stack. - */ - - tramp_signal = signal; - tramp_code = *code; - tramp_context = *context; - SC_PC(context) = sigbus_handler_tramp; - return; - } -#endif /* a *real* protection fault */ - fprintf(stderr, "sigbus_handler: Real protection violation: %p\n", fault_addr); + fprintf(stderr, "sigbus_handler: Real protection violation at %p, PC = %p\n", + fault_addr, SC_PC(context)); sigbus_handle_now(signal, code, context); #ifdef __ppc__ /* Work around G5 bug; fix courtesy gbyers via chandler */

1 0