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

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

31 Oct '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 31 Oct '10

31 Oct '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

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (download.html)
by Raymond Toy 26 Oct '10

26 Oct '10

Date: Tuesday, October 26, 2010 @ 10:17:25 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: download.html o Remove links for 20b-pre2 and 20b-pre1. o Add links for Solaris 10 binaries. ---------------+ download.html | 85 +++++--------------------------------------------------- 1 file changed, 8 insertions(+), 77 deletions(-) Index: cmucl-www/cmucl-www/www/download.html diff -u cmucl-www/cmucl-www/www/download.html:1.24 cmucl-www/cmucl-www/www/download.html:1.25 --- cmucl-www/cmucl-www/www/download.html:1.24 Wed Sep 29 20:32:09 2010 +++ cmucl-www/cmucl-www/www/download.html Tue Oct 26 10:17:25 2010 @@ -116,10 +116,14 @@ </ul> --> </td> - <td> - - + <td> + + <ul> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/cmucl-20b-sparcv…">Unicode</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/cmucl-20b-sparcv…">Unicode extras</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/cmucl-20b-non-un…">Non-Unicode</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/cmucl-20b-non-un…">Non-Unicode extras</a></li> + </ul> </td> <td> @@ -148,79 +152,6 @@ </td> </tr> <tr> - <th>20b-pre2</th> - <td> - <ul> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode extras</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode extras</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td></td> - <td></td> - <td></td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode extras</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-src-2…">Source code</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/release-20b…">Release notes for 20b</a></li> - </ul> - </td> - </tr> - - <tr> - <th>20b-pre1</th> - <td> - <ul> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode extras</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode extras</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td></td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode extras</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td></td> - <td></td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-src-2…">Source code</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/release-20b…">Release notes for 20b</a></li> - </ul> - </td> - </tr> - <tr> <td>2010-07</td> <td> <ul>

1 0

[cmucl-cvs] CMUCL commit: src/code (string.lisp)
by Raymond Toy 26 Oct '10

26 Oct '10

Date: Tuesday, October 26, 2010 @ 09:56:08 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: string.lisp Add trailing newline. -------------+ string.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) Index: src/code/string.lisp diff -u src/code/string.lisp:1.28 src/code/string.lisp:1.29 --- src/code/string.lisp:1.28 Wed Oct 13 14:00:44 2010 +++ src/code/string.lisp Tue Oct 26 09:56:08 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/string.lisp,v 1.28 2010-10-13 18:00:44 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/string.lisp,v 1.29 2010-10-26 13:56:08 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1727,4 +1727,4 @@ (incf idx 2) (incf idx)) (push c cp))) - (nreverse cp))) \ No newline at end of file + (nreverse cp)))

1 0

[cmucl-cvs] CMUCL commit: src/lisp (print.c)
by Raymond Toy 22 Oct '10

22 Oct '10

Date: Friday, October 22, 2010 @ 00:07:33 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: print.c Oops. Need to include stdint.h to get uint16_t defined. ---------+ print.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) Index: src/lisp/print.c diff -u src/lisp/print.c:1.29 src/lisp/print.c:1.30 --- src/lisp/print.c:1.29 Sun Oct 10 10:55:57 2010 +++ src/lisp/print.c Fri Oct 22 00:07:33 2010 @@ -1,7 +1,8 @@ -/* $Header: /project/cmucl/cvsroot/src/lisp/print.c,v 1.29 2010-10-10 14:55:57 rtoy Exp $ */ +/* $Header: /project/cmucl/cvsroot/src/lisp/print.c,v 1.30 2010-10-22 04:07:33 rtoy Exp $ */ #include <stdio.h> #include <string.h> +#include <stdint.h> #include "print.h" #include "lisp.h" #include "internals.h"

1 0