cmucl-cvs

cmucl-cvs@common-lisp.net

2904 discussions

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www/news (index.html)
by Raymond Toy 01 Nov '10

01 Nov '10

Date: Monday, November 1, 2010 @ 09:56:41 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www/news Modified: index.html Add news about 20b patch 000. ------------+ index.html | 7 +++++++ 1 file changed, 7 insertions(+) Index: cmucl-www/cmucl-www/www/news/index.html diff -u cmucl-www/cmucl-www/www/news/index.html:1.40 cmucl-www/cmucl-www/www/news/index.html:1.41 --- cmucl-www/cmucl-www/www/news/index.html:1.40 Sun Oct 31 19:42:07 2010 +++ cmucl-www/cmucl-www/www/news/index.html Mon Nov 1 09:56:41 2010 @@ -11,6 +11,13 @@ <dl> +<dt>20b patch 000 +<dd> + A critical bug in <code>REALPART</code> and <code>IMAGPART</code> has + been fixed in the 2010-11 snapshot. A <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/patches/cmucl-20…">patch</a> is provided now to fix + this issue in the 20b release. <a href="install.html">Installation</a> + instructions are available. +</dd> <dt>2010-11 snapshot <dd> Some of the important changes are listed below. See the <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2010/11/release-20…">release

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (index.html)
by Raymond Toy 01 Nov '10

01 Nov '10

Date: Monday, November 1, 2010 @ 09:54:11 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: index.html Add note that 20b patch 000 is available. ------------+ index.html | 7 +++++++ 1 file changed, 7 insertions(+) Index: cmucl-www/cmucl-www/www/index.html diff -u cmucl-www/cmucl-www/www/index.html:1.17 cmucl-www/cmucl-www/www/index.html:1.18 --- cmucl-www/cmucl-www/www/index.html:1.17 Sun Oct 31 19:42:37 2010 +++ cmucl-www/cmucl-www/www/index.html Mon Nov 1 09:54:10 2010 @@ -68,6 +68,13 @@ Also see <a href="news/index.html">News</a> for older news. <dl> +<dt>20b patch 000 +<dd> + A critical bug in <code>REALPART</code> and <code>IMAGPART</code> has + been fixed in the 2010-11 snapshot. A <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/patches/cmucl-20…">patch</a> is provided now to fix + this issue in the 20b release. <a href="install.html">Installation</a> + instructions are available. +</dd> <dt>Snapshot 2010-11 <dd> The 2010-11 snapshot has been released. See the release notes for

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (install.html)
by Raymond Toy 01 Nov '10

01 Nov '10

Date: Monday, November 1, 2010 @ 09:53:47 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: install.html Clarify and correct the instructions on applying patches. --------------+ install.html | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) Index: cmucl-www/cmucl-www/www/install.html diff -u cmucl-www/cmucl-www/www/install.html:1.11 cmucl-www/cmucl-www/www/install.html:1.12 --- cmucl-www/cmucl-www/www/install.html:1.11 Wed Sep 1 09:39:24 2010 +++ cmucl-www/cmucl-www/www/install.html Mon Nov 1 09:53:47 2010 @@ -164,16 +164,19 @@ These patches are tarballs containing an asd file and the necessary files to implement the patch. To apply a patch, you need to have <a -href="http://www.cliki.net/asdf">asdf</a> -available. Untar the patch somewhere where asdf will be able to find -it. Then simply use +href="http://www.cliki.net/asdf">asdf</a> available. (Note that 20b +now includes asdf2.) Untar the patch somewhere where asdf will be +able to find it. Then simply use <pre> -(require :patch-nnn) +(require :cmucl-xxx-patch-nnn) </pre> -if your version of asdf has the hooks needed for this. Otherwise, -you can do +where <emph>xx</emph> is the the release version of cmucl (such as +19a) and <emph>nnn</emph> is the patch number. +This works if your version of asdf has the hooks needed for this. +Otherwise, you can do <pre> -(asdf:oos 'asdf:load-op :patch-nnn) +(load "patch-nnn.asd") +(asdf:oos 'asdf:load-op :cmucl-xx-patch-nnn) </pre> @@FOOTER@@

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (index.html)
by Raymond Toy 01 Nov '10

01 Nov '10

Date: Sunday, October 31, 2010 @ 19:42:37 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: index.html Update with 2010-11 news. ------------+ index.html | 25 ++++++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) Index: cmucl-www/cmucl-www/www/index.html diff -u cmucl-www/cmucl-www/www/index.html:1.16 cmucl-www/cmucl-www/www/index.html:1.17 --- cmucl-www/cmucl-www/www/index.html:1.16 Wed Sep 29 20:35:56 2010 +++ cmucl-www/cmucl-www/www/index.html Sun Oct 31 19:42:37 2010 @@ -68,8 +68,31 @@ Also see <a href="news/index.html">News</a> for older news. <dl> +<dt>Snapshot 2010-11 +<dd> + The 2010-11 snapshot has been released. See the release notes for + details, but here is a quick summary of the changes between the + snapshot and the 20b release: + <ul> + <li> Update to Unicode 5.2.0.</li> + <li> Support for character name completion for use with Slime.</li> + <li> <code>COMPILE-FILE</code> accepts a + <code>:DECODING-ERROR</code> argument that indicates how to handle + decoding errors when reading the file.</li> + <li> <code>RUN-PROGRAM</code> accepts <code>:EXTERNAL-FORMAT</code> + parameter to specify the external format for streams that are + created.</li> + <li> <code>READ-CHAR</code> signals errors on non-character + streams. <code>READ-BYTE</code> signals errors on character + streams. This is a change from previous versions. However, both + will work if the stream is a <code>binary-text-stream</code>.</li> + <li> <code>REALPART</code> and <code>IMAGPARG</code> no longer + returns 0 instead of the correct part of a complex number in some + situations. </li> + </ul> +</dd> <dt>CMUCL 20b released</dt> -<dd> +<dd> CMUCL 20b has been released, For information on the changes between 20b and 20a, we refer the reader to the <a href="news/release-20b.txt">20b release notes</a>.

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www/news (index.html)
by Raymond Toy 01 Nov '10

01 Nov '10

Date: Sunday, October 31, 2010 @ 19:42:07 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www/news Modified: index.html Update with 2010-11 news. ------------+ index.html | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) Index: cmucl-www/cmucl-www/www/news/index.html diff -u cmucl-www/cmucl-www/www/news/index.html:1.39 cmucl-www/cmucl-www/www/news/index.html:1.40 --- cmucl-www/cmucl-www/www/news/index.html:1.39 Mon Sep 27 19:44:10 2010 +++ cmucl-www/cmucl-www/www/news/index.html Sun Oct 31 19:42:07 2010 @@ -11,6 +11,29 @@ <dl> +<dt>2010-11 snapshot +<dd> Some of the important changes are listed below. See the <a +href="http://common-lisp.net/project/cmucl/downloads/snapshots/2010/11/release-20…">release +notes</a> for more details. + <ul> + <li> Update to Unicode 5.2.0.</li> + <li> Support for character name completion for use with Slime.</li> + <li> <code>COMPILE-FILE</code> accepts a + <code>:DECODING-ERROR</code> argument that indicates how to handle + decoding errors when reading the file.</li> + <li> <code>RUN-PROGRAM</code> accepts <code>:EXTERNAL-FORMAT</code> + parameter to specify the external format for streams that are + created.</li> + <li> <code>READ-CHAR</code> signals errors on non-character + streams. <code>READ-BYTE</code> signals errors on character + streams. This is a change from previous versions. However, both + will work if the stream is a <code>binary-text-stream</code>.</li> + <li> <code>REALPART</code> and <code>IMAGPARG</code> no longer + returns 0 instead of the correct part of a complex number in some + situations. </li> + </ul> +</dd> + <dt>20b released</dt> <dd>CMUCL 20b has been released. For information on the changes, we refer the reader to the <a href="release-20b.txt">20b release

1 0

[cmucl-cvs] CMUCL commit: src/general-info (release-20c.txt)
by Raymond Toy 28 Oct '10

28 Oct '10

Date: Wednesday, October 27, 2010 @ 20:03:25 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt Update from logs. -----------------+ release-20c.txt | 4 ++++ 1 file changed, 4 insertions(+) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.6 src/general-info/release-20c.txt:1.7 --- src/general-info/release-20c.txt:1.6 Wed Oct 27 08:49:09 2010 +++ src/general-info/release-20c.txt Wed Oct 27 20:03:25 2010 @@ -41,6 +41,8 @@ - RUN-PROGRAM accepts :EXTERNAL-FORMAT parameter to specify the external format to be used for any streams that RUN-PROGRAM needs to create. + - Add src/tools/build-all.sh to automate building all of the + variants (x87/sse2, unicode/8-bit). * ANSI compliance fixes: - Fixes for signaling errors with READ-CHAR and READ-BYTE @@ -62,6 +64,8 @@ Previously, it skipped over non-BMP codepoints. This also requires a fix in %COMPOSE to handle non-BMP codepoints correctly. The normalization test now passes. + - REALPART and IMAGPART no longer incorrectly returns 0 instead of + the correct part of a complex number. * Trac Tickets:

1 0

[cmucl-cvs] CMUCL commit: src/tools (build-all.sh)
by Raymond Toy 28 Oct '10

28 Oct '10

Date: Wednesday, October 27, 2010 @ 20:01:46 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Modified: build-all.sh Handle -C option better, especially when given -C "" to denote the default config. --------------+ build-all.sh | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) Index: src/tools/build-all.sh diff -u src/tools/build-all.sh:1.1 src/tools/build-all.sh:1.2 --- src/tools/build-all.sh:1.1 Thu Oct 14 13:48:26 2010 +++ src/tools/build-all.sh Wed Oct 27 20:01:46 2010 @@ -35,14 +35,14 @@ VERSION="CVS Head `date '+%Y-%m-%d %H:%M:%S'`" BASE=build +CREATE_OPT="" while getopts "Ub:v:C:o:8:?" arg do case $arg in b) BASE="$OPTARG" ;; B) bootfiles="$bootfiles -B $OPTARG" ;; - C) CREATE_OPT="-C $OPTARG" - CREATE_DIRS=yes ;; + C) CREATE_OPT="$OPTARG" ;; o) OLDLISP="$OPTARG" ;; 8) OLD8="$OPTARG" ;; v) VERSION="$OPTARG" ;; @@ -66,15 +66,15 @@ if [ -n "$OLD8" ]; then # Build non-unicode versions set -x - src/tools/build.sh -f x87 -b ${BASE}-8bit $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLD8" - src/tools/build.sh -f sse2 -b ${BASE}-8bit $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLD8" + src/tools/build.sh -f x87 -b ${BASE}-8bit $bootfiles -v "$VERSION" -C "${CREATE_OPT}" ${UPDATE_TRANS} -o "$OLD8" + src/tools/build.sh -f sse2 -b ${BASE}-8bit $bootfiles -v "$VERSION" -C "${CREATE_OPT}" ${UPDATE_TRANS} -o "$OLD8" set +x fi # Build the unicode versions if [ -n "$OLDLISP" ]; then set -x - src/tools/build.sh -f x87 -b ${BASE} $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLDLISP" - src/tools/build.sh -f sse2 -b ${BASE} $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLDLISP" + src/tools/build.sh -f x87 -b ${BASE} $bootfiles -v "$VERSION" -C "${CREATE_OPT}" ${UPDATE_TRANS} -o "$OLDLISP" + src/tools/build.sh -f sse2 -b ${BASE} $bootfiles -v "$VERSION" -C "${CREATE_OPT}" ${UPDATE_TRANS} -o "$OLDLISP" set +x fi } @@ -84,13 +84,13 @@ # Build non-unicode versions if [ -n "$OLD8" ]; then set -x - src/tools/build.sh -b ${BASE}-8bit $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLD8" + src/tools/build.sh -b ${BASE}-8bit $bootfiles -v "$VERSION" -C "$CREATE_OPT" ${UPDATE_TRANS} -o "$OLD8" set +x fi # Build the unicode version. if [ -n "$OLDLISP" ]; then set -x - src/tools/build.sh -b ${BASE} $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLDLISP" + src/tools/build.sh -b ${BASE} $bootfiles -v "$VERSION" -C "$CREATE_OPT" ${UPDATE_TRANS} -o "$OLDLISP" set +x fi }

1 0

[cmucl-cvs] CMUCL commit: src/compiler/x86 (float-sse2.lisp)
by Raymond Toy 28 Oct '10

28 Oct '10

Date: Wednesday, October 27, 2010 @ 20:00:48 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/x86 Modified: float-sse2.lisp Fix critical bug in realpart/imagpart. o realpart/complex-single-float, realpart/complex-double-float, imagpart/complex-double-float, %complex-double-float, and %complex-single-float were zeroing out the result register which is ok, except when the result register and the source register are the same. Use a temp register in this case. This bit of code tickles the bug: (defun zot-r (z) (declare (type (simple-array (complex double-float) (*)) z)) (realpart (aref z 0))) (defun zot-i (z) (declare (type (simple-array (complex double-float) (*)) z)) (imagpart (aref z 0))) (let ((z (make-array 1 :element-type '(complex double-float) :initial-element #c(42d0 -42d0)))) (zot-r z)) (let ((z (make-array 1 :element-type '(complex double-float) :initial-element #c(42d0 -42d0)))) (zot-i z)) The correct results are 42d0 and -42d0, not 0d0, of course. -----------------+ float-sse2.lisp | 49 ++++++++++++++++++++++++++++++++++++------------- 1 file changed, 36 insertions(+), 13 deletions(-) Index: src/compiler/x86/float-sse2.lisp diff -u src/compiler/x86/float-sse2.lisp:1.18 src/compiler/x86/float-sse2.lisp:1.19 --- src/compiler/x86/float-sse2.lisp:1.18 Wed Aug 11 17:29:49 2010 +++ src/compiler/x86/float-sse2.lisp Wed Oct 27 20:00:48 2010 @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/x86/float-sse2.lisp,v 1.18 2010-08-11 21:29:49 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/compiler/x86/float-sse2.lisp,v 1.19 2010-10-28 00:00:48 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1390,13 +1390,19 @@ (:arg-types complex-single-float) (:results (r :scs (single-reg))) (:result-types single-float) + (:temporary (:sc single-reg) temp) (:policy :fast-safe) (:note _N"complex float realpart") (:generator 3 (sc-case x (complex-single-reg - (inst xorps r r) ; temp = 0|0|0|0 - (inst movss r x)) ; r = 0|0|0|x + (cond ((location= r x) + (inst xorps temp temp) ; temp = 0|0|0|0 + (inst movss temp x) ; temp = 0|0|0|x + (inst movss r temp)) ; r = temp + (t + (inst xorps r r) ; temp = 0|0|0|0 + (inst movss r x)))) ; r = 0|0|0|x (complex-single-stack (inst movss r (ea-for-csf-real-stack x))) (descriptor-reg @@ -1408,13 +1414,19 @@ (:arg-types complex-double-float) (:results (r :scs (double-reg))) (:result-types double-float) + (:temporary (:sc double-reg) temp) (:policy :fast-safe) - (:note _N"complex float realpart") + (:note "complex float realpart") (:generator 3 (sc-case x (complex-double-reg - (inst xorpd r r) ; temp = 0|0 - (inst movsd r x)) ; r = 0|x + (cond ((location= r x) + (inst xorpd temp temp) ; temp = 0|0 + (inst movsd temp x) ; temp = 0|x + (inst movsd r temp)) ; r = temp + (t + (inst xorpd r r) ; r = 0|0 + (inst movsd r x)))) ; r = 0|x (complex-double-stack (inst movsd r (ea-for-cdf-real-stack x))) (descriptor-reg @@ -1457,8 +1469,13 @@ (:generator 3 (sc-case x (complex-double-reg - (inst xorpd r r) ; r = 0|0 - (inst movhlps r x)) ; r = 0|b + (cond ((location= r x) + (inst xorpd temp temp) ; temp = 0|0 + (inst movhlps temp x) ; temp = 0|b + (inst movsd r temp)) ; r = temp + (t + (inst xorpd r r) ; r = 0|0 + (inst movhlps r x)))) ; r = 0|b (complex-double-stack (inst movsd r (ea-for-cdf-imag-stack x))) (descriptor-reg @@ -1835,7 +1852,7 @@ (convert-complex %complex-single-float cvtpd2ps complex-single complex-double)) (macrolet - ((convert-complex (trans op base-ea to from) + ((convert-complex (trans op base-ea to from movinst) (let ((name (symbolicate to "/" from)) (from-sc (symbolicate from "-REG")) (from-sc-stack (symbolicate from "-STACK")) @@ -1849,21 +1866,27 @@ (:arg-types ,from-type) (:results (r :scs (,to-sc))) (:result-types ,to-type) + (:temporary (:sc ,to-sc) temp) (:policy :fast-safe) (:generator 1 (sc-case x (,from-sc ;; Need to make sure the imaginary part is zero - (inst xorps r r) - (inst ,op r x)) + (cond ((location= x r) + (inst xorps temp temp) + (inst ,op temp x) + (inst ,movinst r temp)) + (t + (inst xorps r r) + (inst ,op r x)))) (,from-sc-stack (inst xorps r r) (inst ,op r (,(symbolicate "EA-FOR-" base-ea "-STACK") x))) (descriptor-reg (inst xorps r r) (inst ,op r (,(symbolicate "EA-FOR-" base-ea "-DESC") x))))))))) - (convert-complex %complex-double-float cvtss2sd sf complex-double single) - (convert-complex %complex-single-float cvtsd2ss df complex-single double)) + (convert-complex %complex-double-float cvtss2sd sf complex-double single movapd) + (convert-complex %complex-single-float cvtsd2ss df complex-single double movaps)) ;; Add and subtract for two complex arguments (macrolet

1 0

[cmucl-cvs] CMUCL commit: src/i18n/locale (cmucl.pot)
by Raymond Toy 27 Oct '10

27 Oct '10

Date: Wednesday, October 27, 2010 @ 08:50:04 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale Modified: cmucl.pot Regenerated from current sources. -----------+ cmucl.pot | 20 ++++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) Index: src/i18n/locale/cmucl.pot diff -u src/i18n/locale/cmucl.pot:1.15 src/i18n/locale/cmucl.pot:1.16 --- src/i18n/locale/cmucl.pot:1.15 Sun Sep 26 19:47:45 2010 +++ src/i18n/locale/cmucl.pot Wed Oct 27 08:50:04 2010 @@ -5550,11 +5550,15 @@ msgstr "" #: src/code/misc.lisp -msgid "Returns a string describing the implementation version." +msgid " Unicode" msgstr "" #: src/code/misc.lisp -msgid " Unicode" +msgid "" +msgstr "" + +#: src/code/misc.lisp +msgid "Returns a string describing the implementation version." msgstr "" #: src/code/misc.lisp @@ -9152,6 +9156,14 @@ msgstr "" #: src/code/fd-stream.lisp +msgid "Use Unicode replacement character instead" +msgstr "" + +#: src/code/fd-stream.lisp +msgid "Use question mark character instead" +msgstr "" + +#: src/code/fd-stream.lisp msgid "" "Create a stream for the given unix file descriptor.\n" " If input is non-nil, allow input operations.\n" @@ -9180,10 +9192,6 @@ msgstr "" #: src/code/fd-stream.lisp -msgid "Use Unicode replacement character instead" -msgstr "" - -#: src/code/fd-stream.lisp msgid "" "This is a string that OPEN tacks on the end of a file namestring to produce\n" " a name for the :if-exists :rename-and-delete and :rename options. Also,\n"

1 0

[cmucl-cvs] CMUCL commit: src/general-info (release-20c.txt)
by Raymond Toy 27 Oct '10

27 Oct '10

Date: Wednesday, October 27, 2010 @ 08:49:09 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt Update from logs. -----------------+ release-20c.txt | 3 +++ 1 file changed, 3 insertions(+) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.5 src/general-info/release-20c.txt:1.6 --- src/general-info/release-20c.txt:1.5 Tue Oct 12 18:00:14 2010 +++ src/general-info/release-20c.txt Wed Oct 27 08:49:09 2010 @@ -38,6 +38,9 @@ READ-SEQUENCE cannot do that unless the stream is a binary-text-stream. This is an incompatible change from previous releases. + - RUN-PROGRAM accepts :EXTERNAL-FORMAT parameter to specify the + external format to be used for any streams that RUN-PROGRAM + needs to create. * ANSI compliance fixes: - Fixes for signaling errors with READ-CHAR and READ-BYTE

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

cmucl-cvs