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

[git] CMU Common Lisp branch master updated. snapshot-2013-11-6-gd5983ca
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 d5983ca74965ef16fb3cb47d78024c3eb68a4a59 (commit) from 3a09aa24b038be094140ddc86069d0a89eeea5c2 (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 d5983ca74965ef16fb3cb47d78024c3eb68a4a59 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Nov 24 20:23:46 2013 -0800 Better error message for an empty cond clause. Bug noted by Pascal Bourguignon on cmucl-help, 2013-11-24. diff --git a/src/code/macros.lisp b/src/code/macros.lisp index 892e1cf..9bc774f 100644 --- a/src/code/macros.lisp +++ b/src/code/macros.lisp @@ -559,7 +559,7 @@ nil (let ((clause (first clauses))) (when (atom clause) - (error (intl:gettext "Cond clause is not a list: ~S.") clause)) + (error (intl:gettext "Cond clause should be a non-empty list: ~S.") clause)) (let ((test (first clause)) (forms (rest clause))) (if (endp forms) ----------------------------------------------------------------------- Summary of changes: src/code/macros.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-03-a-10-gc647866
by rtoy＠alpha-cl-net.common-lisp.net 08 Apr '15

08 Apr '15

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 c647866d61b29968c39d1722ad61d02061acfe7a (commit) via 82fac7da35ba098a3f294a946e39714b58740b69 (commit) from 25047afd964691f70669318e97164c4d81ecb3a7 (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 c647866d61b29968c39d1722ad61d02061acfe7a Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Apr 13 14:57:27 2013 -0700 Update from logs. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index 9ebd374..06f5173 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -56,6 +56,9 @@ New in this release: other than latin1 has been fixed. See ticket #74. * Fix startup crashes on some Debian Linux versions. This was caused by the release string not having a patch version. + * FILE-POSITION no longer returns incorrect values. See ticket + #79. + * Trac Tickets: * Ticket #52 reopened. @@ -86,6 +89,9 @@ New in this release: * In make-dist.sh, the version is now optional. If not given, a version is derived from the git hash returned by "git describe". + * build.sh -u used to disable building of asdf and friends. This + is incorrect. Asdf is always built now (during the last stage). + This release is not binary compatible with code compiled using CMUCL 20d; you will need to recompile FASL files. commit 82fac7da35ba098a3f294a946e39714b58740b69 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Apr 13 14:54:15 2013 -0700 Update -u option so that asdf is always built. bin/build-utils.sh:: * asdf is not part of build-utils.sh bin/build.sh:: * Build asdf as part of the normal build because it's always part of the main tarball, not the extras tarball. diff --git a/bin/build-utils.sh b/bin/build-utils.sh index 7f5862e..e59fd19 100755 --- a/bin/build-utils.sh +++ b/bin/build-utils.sh @@ -15,18 +15,6 @@ fi TARGET="`echo $1 | sed 's:/*$::'`" shift -# Compile up the asdf and defsystem modules -$TARGET/lisp/lisp -noinit -nositeinit -batch "$@" << EOF || exit 3 -(in-package :cl-user) -(setf (ext:search-list "target:") - '("$TARGET/" "src/")) -(setf (ext:search-list "modules:") - '("target:contrib/")) - -(compile-file "modules:asdf/asdf") -(compile-file "modules:defsystem/defsystem") -EOF - $TARGET/lisp/lisp \ -noinit -nositeinit -batch "$@" <<EOF || exit 3 (in-package :cl-user) diff --git a/bin/build.sh b/bin/build.sh index f451ac1..99d0a43 100755 --- a/bin/build.sh +++ b/bin/build.sh @@ -251,6 +251,19 @@ if [ "$SKIPUTILS" = "no" ]; then OLDLISP="${BASE}-4/lisp/lisp $OLDLISPFLAGS $FPU_MODE" time $TOOLDIR/build-utils.sh $TARGET $FPU_MODE +else +# But asdf and friends are part of the base install, so we need to build them. + $TARGET/lisp/lisp -noinit -nositeinit -batch "$@" << EOF || exit 3 + (in-package :cl-user) + (setf (ext:search-list "target:") + '("$TARGET/" "src/")) + (setf (ext:search-list "modules:") + '("target:contrib/")) + + (compile-file "modules:asdf/asdf") + (compile-file "modules:defsystem/defsystem") +EOF + fi build_finished=`date` ----------------------------------------------------------------------- Summary of changes: bin/build-utils.sh | 12 ------------ bin/build.sh | 13 +++++++++++++ src/general-info/release-20e.txt | 6 ++++++ 3 files changed, 19 insertions(+), 12 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-02-9-g513c3b2
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 513c3b23e97cf7e1af4da202053bedf96e70cc44 (commit) from 0e94b217534b1306e73ab5b61fd34060311c1608 (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 513c3b23e97cf7e1af4da202053bedf96e70cc44 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Mar 1 08:30:18 2014 -0800 Fix ticket 94. * Add least-positive-normalized-double-double-float, least-negative-normalized-double-double-float, least-positive-double-double-float, least-negative-double-double-float, most-positive-double-double-float, most-negative-double-double-float to the extensions package. diff --git a/src/code/exports.lisp b/src/code/exports.lisp index 9322c5d..a5f5ca6 100644 --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -1418,6 +1418,14 @@ "FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P" "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P" "WITH-FLOAT-TRAPS-MASKED") + ;; More float extensions + #+double-double + (:export "LEAST-POSITIVE-NORMALIZED-DOUBLE-DOUBLE-FLOAT" + "LEAST-NEGATIVE-NORMALIZED-DOUBLE-DOUBLE-FLOAT" + "LEAST-POSITIVE-DOUBLE-DOUBLE-FLOAT" + "LEAST-NEGATIVE-DOUBLE-DOUBLE-FLOAT" + "MOST-POSITIVE-DOUBLE-DOUBLE-FLOAT" + "MOST-NEGATIVE-DOUBLE-DOUBLE-FLOAT") ;; Spice lisp extensions (:export "LETF*" "LETF" "DOVECTOR" "DELETEF" "INDENTING-FURTHER" "FILE-COMMENT" diff --git a/src/code/float.lisp b/src/code/float.lisp index ce7e572..01b7002 100644 --- a/src/code/float.lisp +++ b/src/code/float.lisp @@ -59,6 +59,14 @@ set-floating-point-modes float-denormalized-p float-nan-p float-trapping-nan-p float-infinity-p)) +#+double-double +(export '(least-positive-normalized-double-double-float + least-negative-normalized-double-double-float + least-positive-double-double-float + least-negative-double-double-float + most-positive-double-double-float + most-negative-double-double-float)) + (in-package "KERNEL") @@ -127,6 +135,32 @@ #+(and long-float x86) (defconstant least-negative-long-float (long-from-bits 1 0 1)) +#+double-double +(progn +(defconstant least-positive-normalized-double-double-float + ;; What is the right value? + (kernel:make-double-double-float least-positive-normalized-double-float + 0d0)) +(defconstant least-negative-normalized-double-double-float + ;; What is the right value? + (kernel:make-double-double-float least-negative-normalized-double-float + 0d0)) +(defconstant least-positive-double-double-float + (kernel:make-double-double-float least-positive-double-float + 0d0)) +(defconstant least-negative-double-double-float + (kernel:make-double-double-float least-negative-double-float + 0d0)) +(defconstant most-positive-double-double-float + ;; What is the right value? + (kernel:make-double-double-float most-positive-double-float + 0d0)) +(defconstant most-negative-double-double-float + ;; What is the right value? + (kernel:make-double-double-float most-negative-double-float + 0d0)) +); double-double + (defconstant least-positive-normalized-single-float (single-from-bits 0 vm:single-float-normal-exponent-min 0)) (defconstant least-positive-normalized-short-float ----------------------------------------------------------------------- Summary of changes: src/code/exports.lisp | 8 ++++++++ src/code/float.lisp | 34 ++++++++++++++++++++++++++++++++++ 2 files changed, 42 insertions(+) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-85-g4db363e
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 4db363eca4f5a2c282f7b46bd1509095bcb6efec (commit) via b0b34eafd682046f8345beeb5df24e8c1eacc231 (commit) via 87b9cd66d418314bee5318d0c80181c6572d0d85 (commit) via edaa999ed44d1df6c361c594932eaa5d03f208a5 (commit) from 0a2163ec1c2ed6cd9711dab63f92c42e246e0b81 (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 4db363eca4f5a2c282f7b46bd1509095bcb6efec Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Aug 3 15:21:24 2014 -0700 Update from commit logs. diff --git a/src/general-info/release-20f.txt b/src/general-info/release-20f.txt index 1947297..b49ecc6 100644 --- a/src/general-info/release-20f.txt +++ b/src/general-info/release-20f.txt @@ -32,7 +32,7 @@ New in this release: ticket:92) * Changes - * Update to ASDF 3.1.2. + * Update to ASDF 3.1.3. * When *PRINT-CASE* is :DOWNCASE, integers are printed with lowercase letters when needed. * Micro-optimize KERNEL:DOUBLE-FLOAT-BITS for x86/sse2. @@ -53,6 +53,15 @@ New in this release: the default for several months now. * Add lisp-unit as a contrib. Use (require :lisp-unit) to load it. Precompiled fasls are not included. + * CMUCL now uses fdlibm C functions to implement the special + functions. All platforms use this so they should produce + identical results everywhere. + * Consing for the trig functions is removed now since we call out + to fdlibm instead of implementing them in Lisp. + * Source location information has been added for + DEFINE-CONDITION. (From Helmut Eller.) + * The lisp executable is now compiled to use SSE2 on x86 machines; + CMUCL will not run on chips without SSE2 anymore. * ANSI compliance fixes: * The values on the branch cuts for the inverse trig and @@ -62,6 +71,9 @@ New in this release: and on the branch cut is now continuous with different quadrants. This differs from the description of the branch cut for atanh in the CLHS. + * CLEAR-OUTPUT was not actually doing anything. Now, CLEAR-OUTPUT + will discard any buffered data that has not been written out + yet. * Bugfixes: * Fix error in pi reduction on x87. It was not noticed previously @@ -78,7 +90,11 @@ New in this release: least-positive-foo-float if possible. * (log -0w0) and (log 0w0) returns values analogous to the double-float versions. - * Fix bug in printint MOST-NEGATIVE-FIXNUM + * Fix bug in printing MOST-NEGATIVE-FIXNUM. + * For Gray streams, CLEAR-OUTPUT was calling STREAM-FORCE-OUTPUT + instead of STREAM-CLEAR-OUTPUT, so the output wasn't actually + cleared. + * Trac Tickets: * Ticket #90 fixed. @@ -87,6 +103,8 @@ New in this release: * Ticket #94 fixed. * Ticket #93 fixed. * Ticket #98 fixed. + * Ticket #104 fixed. + * Ticket #101, item 1 fixed. * Other changes: commit b0b34eafd682046f8345beeb5df24e8c1eacc231 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Aug 3 08:43:08 2014 -0700 add -mtune=generic to get optimization for the most common x86 processors. diff --git a/src/lisp/Config.x86_common b/src/lisp/Config.x86_common index 1873f7d..ad2b1a0 100644 --- a/src/lisp/Config.x86_common +++ b/src/lisp/Config.x86_common @@ -54,7 +54,7 @@ CPP_INCLUDE_OPTIONS := -I. -I$(PATH1) -I- endif CPPFLAGS := $(CPP_DEFINE_OPTIONS) $(CPP_INCLUDE_OPTIONS) -CFLAGS += -Wstrict-prototypes -Wall -O2 -g +CFLAGS += -Wstrict-prototypes -Wall -O2 -g -mtune=generic ASFLAGS = -g ASSEM_SRC = x86-assem.S commit 87b9cd66d418314bee5318d0c80181c6572d0d85 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Aug 3 08:37:50 2014 -0700 Remove CC_REM_PIO2 and add new CPPFLAGS to force compiling with sse2 instructions. This is completely untested. diff --git a/src/lisp/Config.x86_freebsd b/src/lisp/Config.x86_freebsd index 911e2c2..cf8089f 100644 --- a/src/lisp/Config.x86_freebsd +++ b/src/lisp/Config.x86_freebsd @@ -1,9 +1,7 @@ # -*- Mode: makefile -*- include Config.x86_common -# Need -ffloat-store for e_rem_pio2 and k_rem_pio2 to get properly -# rounded double-floats while using x87 extended precision. -CC_REM_PIO2 = -ffloat-store +CPPFLAGS += -march=pentium4 -mfpmath=sse UNDEFSYMPATTERN = -Xlinker -u -Xlinker & OS_SRC += FreeBSD-os.c elf.c commit edaa999ed44d1df6c361c594932eaa5d03f208a5 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Aug 3 08:35:51 2014 -0700 Forgot to remove e_rem_pio2 and friends from a few more Config files since they're in GNUMakefile now. diff --git a/src/lisp/Config.sparc_common b/src/lisp/Config.sparc_common index c4a8ed6..2ad8aed 100644 --- a/src/lisp/Config.sparc_common +++ b/src/lisp/Config.sparc_common @@ -56,6 +56,6 @@ ASSEM_SRC = sparc-assem.S ARCH_SRC = sparc-arch.c DEPEND=$(CC) -OS_SRC = solaris-os.c os-common.c undefineds.c elf.c e_rem_pio2.c k_rem_pio2.c +OS_SRC = solaris-os.c os-common.c undefineds.c elf.c OS_LIBS= -lsocket -lnsl -ldl EXEC_FINAL_OBJ = exec-final.o diff --git a/src/lisp/Config.x86_solaris_sunc b/src/lisp/Config.x86_solaris_sunc index 2b6ed8d..0c137ae 100644 --- a/src/lisp/Config.x86_solaris_sunc +++ b/src/lisp/Config.x86_solaris_sunc @@ -9,6 +9,6 @@ DEPEND_FLAGS = -xM1 ASSEM_SRC = x86-assem.S ARCH_SRC = x86-arch.c -OS_SRC = solaris-os.c os-common.c undefineds.c elf.c e_rem_pio2.c k_rem_pio2.c +OS_SRC = solaris-os.c os-common.c undefineds.c elf.c OS_LINK_FLAGS= OS_LIBS= -lsocket -lnsl -ldl ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20f.txt | 22 ++++++++++++++++++++-- src/lisp/Config.sparc_common | 2 +- src/lisp/Config.x86_common | 2 +- src/lisp/Config.x86_freebsd | 4 +--- src/lisp/Config.x86_solaris_sunc | 2 +- 5 files changed, 24 insertions(+), 8 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. begin-x87-removal-22-gd8d6bce
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 d8d6bce450fe606aa48fdbf874001134505734a1 (commit) from ecd7d26d363b65a174ab04a1c2a802fe8ca96ddc (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 d8d6bce450fe606aa48fdbf874001134505734a1 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Apr 30 21:05:31 2014 -0700 Oops. Other archs still need float.lisp. diff --git a/src/tools/comcom.lisp b/src/tools/comcom.lisp index 9ad7973..c564bdb 100644 --- a/src/tools/comcom.lisp +++ b/src/tools/comcom.lisp @@ -173,9 +173,10 @@ (when *load-stuff* (load (vmdir "target:assembly/support"))) (comf (vmdir "target:compiler/move")) -(when (c:target-featurep :x86) - (comf (vmdir "target:compiler/float-sse2") - :byte-compile *byte-compile*)) +(comf (if (c:target-featurep :sse2) + (vmdir "target:compiler/float-sse2") + (vmdir "target:compiler/float")) + :byte-compile *byte-compile*) (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*) (when (c:target-featurep :x86) (comf (vmdir "target:compiler/sse2-sap") ----------------------------------------------------------------------- Summary of changes: src/tools/comcom.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-09-4-g0f3e2f6
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 0f3e2f6a96c03efb6ccbb40b6bb7d517055fb325 (commit) via 8be7988c53417027caf2d6c6c4ee107c057aef56 (commit) from 7e2a98eea48abc007e74490fa099da019b440ddc (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 0f3e2f6a96c03efb6ccbb40b6bb7d517055fb325 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Sep 11 21:22:49 2013 -0700 Support all sun4 archs, not just sun4u. (sun4v is T1). diff --git a/bin/build.sh b/bin/build.sh index 9be48e4..9309e63 100755 --- a/bin/build.sh +++ b/bin/build.sh @@ -191,7 +191,7 @@ if [ -z "$BASE" ]; then esac ;; SunOS) case `uname -m` in - sun4u) BASE=sparc ;; + sun4*) BASE=sparc ;; i86pc) BASE=sol-x86 ;; esac ;; Linux) BASE=linux ;; commit 8be7988c53417027caf2d6c6c4ee107c057aef56 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Sep 11 21:22:19 2013 -0700 Set lvshort to solaris too if lisp_variant=sparc*. diff --git a/bin/create-target.sh b/bin/create-target.sh index 85d7bb2..21b38a6 100755 --- a/bin/create-target.sh +++ b/bin/create-target.sh @@ -50,7 +50,7 @@ uname_m=`uname -m 2>/dev/null` case $lisp_variant in *linux*) lvshort=linux;; *freebsd*) lvshort=freebsd;; - *solaris*) lvshort=solaris;; + *solaris*|sparc*) lvshort=solaris;; *) lvshort=unknown;; esac ----------------------------------------------------------------------- Summary of changes: bin/build.sh | 2 +- bin/create-target.sh | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. begin-x87-removal-16-g656761b
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 656761bda082e6c08492f34af80861ac285d6426 (commit) via 68ffe6a91d28fa444cd0fc03bcfda295f491b793 (commit) from 10781b15fcff354eedf177d9608eb7d98eda297d (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 656761bda082e6c08492f34af80861ac285d6426 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Apr 15 21:52:36 2014 -0700 Remove alloc_overflow_x87. diff --git a/src/lisp/x86-assem.S b/src/lisp/x86-assem.S index f3b4344..3ab41d6 100644 --- a/src/lisp/x86-assem.S +++ b/src/lisp/x86-assem.S @@ -372,7 +372,7 @@ ENDFUNC(fastcopy16) /* - * alloc_overflow_x87 and alloc_overflow_sse2 must not be called from + * alloc_overflow_sse2 must not be called from * C because it doesn't follow C conventions. * * On entry: @@ -380,18 +380,6 @@ ENDFUNC(fastcopy16) * On exit: * %eax = address */ -FUNCDEF(alloc_overflow_x87) - STACK_PROLOGUE(12) - movl %ecx, 8(%esp) # Save ecx and edx registers - movl %edx, 4(%esp) - movl %eax, (%esp) # Put size on stack for first arg to alloc() - call GNAME(alloc) - movl 4(%esp), %edx # Restore edx and ecx registers. eax has the return value. - movl 8(%esp), %ecx - STACK_EPILOGUE - ret -ENDFUNC(alloc_overflow_x87) - FUNCDEF(alloc_overflow_sse2) STACK_PROLOGUE(20) movl %ecx, 8(%esp) # Save ecx and edx registers commit 68ffe6a91d28fa444cd0fc03bcfda295f491b793 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Apr 15 21:46:40 2014 -0700 Add comment that 16-byte alignment is required on Darwin. diff --git a/src/compiler/x86/sse2-c-call.lisp b/src/compiler/x86/sse2-c-call.lisp index 1e827d3..03a2967 100644 --- a/src/compiler/x86/sse2-c-call.lisp +++ b/src/compiler/x86/sse2-c-call.lisp @@ -74,7 +74,8 @@ (unless (zerop amount) (let ((delta (logandc2 (+ amount 3) 3))) (inst sub esp-tn delta))) - ;; Align the stack to a 16-byte boundary. + ;; Align the stack to a 16-byte boundary. This is required an + ;; Darwin and should be harmless everywhere else. (inst and esp-tn #xfffffff0) (move result esp-tn))) ----------------------------------------------------------------------- Summary of changes: src/compiler/x86/sse2-c-call.lisp | 3 ++- src/lisp/x86-assem.S | 14 +------------- 2 files changed, 3 insertions(+), 14 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-08-42-g9ca40a2
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 9ca40a2b90607cd33577644c5cd5d38ae5fe1354 (commit) from d08b5bf8259bcd458beec17ba65a7b85f454edda (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 9ca40a2b90607cd33577644c5cd5d38ae5fe1354 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Aug 28 19:37:32 2014 -0700 Fix round-quotient-bound to handle exclusive bounds better. All the tests should pass now. diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp index c2e1a83..14c353c 100644 --- a/src/compiler/srctran.lisp +++ b/src/compiler/srctran.lisp @@ -1768,13 +1768,32 @@ (flet ((round-it (quot) (let ((lo (interval-low quot)) (hi (interval-high quot))) - (setf lo (if lo - (round (bound-value lo)) - nil)) - ;; For the upper bound, we need to be careful - (setf hi (if hi - (round (bound-value hi)) - nil)) + (when lo + ;; Need to handle carefully the case where the lower + ;; bound is exclusive. This is only a problem when + ;; the remainder is exactly +1/2 where the quotient + ;; has been rounded down. In this case, quotient + ;; should be one higher. For example (round 2.5) -> + ;; 2, 0.5, but (round 2.500001) -> 3, -0.49999. + (multiple-value-bind (q r) + (round (bound-value lo)) + (setf lo + (if (and (consp lo) (= r 1/2)) + (1+ q) + q)))) + (when hi + (multiple-value-bind (q r) + (round (bound-value hi)) + ;; Need to handle carefully the case where the upper + ;; bound is exclusive. This is only a problem when + ;; the remainder is exactly -1/2 where the quotient + ;; has been rounded up. In this case, quotient should + ;; be one less. For example but (round 1.5) -> 2, + ;; -0.5 but (round 1.49999) -> 1, .49999. + (setf hi + (if (and (= r -1/2) (consp hi)) + (1- q) + q)))) (make-interval :low lo :high hi)))) (case (interval-range-info quot) (+ ----------------------------------------------------------------------- Summary of changes: src/compiler/srctran.lisp | 33 ++++++++++++++++++++++++++------- 1 file changed, 26 insertions(+), 7 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-12-a-13-g5b9111e
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 5b9111e975748929ddcdd9052c5b5ec8138dcca5 (commit) via 0bd9e773136b7b827f711f51500fdca4122adf73 (commit) via 1ae2d46cf3e9776ff35c6d6eddf3d73f6b0b66a1 (commit) via 1266d1ff1eb938136e8ae684eb9e3be8009ec350 (commit) via 6ec982de562b883722c7efc85d44f9fada24b9ef (commit) via 36403a831c9a979d5a16d1249000b85d4c8c6bfc (commit) via 7069ef9dfa3770d7b3e00aac297ae7dcb22b8c20 (commit) via 7190b61cf97c8320d6a218c430471c0fb0bf518e (commit) via b79c28727f40f1dd3cdd035eb86fd929594b0d64 (commit) via e6a9577f0093b72d5d5e0c90cb0930df6a16bb8b (commit) via 32bdd53bf002fca1c9ad6b543d522a6558cae768 (commit) from b7280406f5f91cdd6ffc8dcacc9e811317a9a99b (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: src/code/irrat.lisp | 597 ++++++++++++++++++++++++++++++------------ src/compiler/float-tran.lisp | 4 +- src/lisp/Config.sparc_common | 2 +- src/tests/trig.lisp | 193 ++++++++++++++ 4 files changed, 625 insertions(+), 171 deletions(-) create mode 100644 src/tests/trig.lisp hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. 20e
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 bc828bed51339b951d84d2a264adf0221172f126 (commit) from c01e6f9d9be67e4aedb33857a00f8d20697a19ef (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 bc828bed51339b951d84d2a264adf0221172f126 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Sep 22 09:46:59 2013 -0700 Update for 20e. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index 8abf083..1eb88a7 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -1,7 +1,5 @@ ========================== C M U C L 20 e ============================= -[In Progress] - The CMUCL project is pleased to announce the release of CMUCL 20e. This is a major release which contains numerous enhancements and bug fixes from the 20c release. @@ -19,10 +17,10 @@ over the Internet, and is mostly in the public domain. New in this release: * Known issues: + * For the current issues, see Trac tickets. * Feature enhancements - * The disassembler (on x86) prints correctly for any value of - *print-base*. + * The disassembler prints correctly for any value of *print-base*. * Changes * ASDF2 updated to version 3.0.2. ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20e.txt | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0