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

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

21 Aug '11

Date: Sunday, August 21, 2011 @ 00:43:39 Author: rtoy Path: /project/cmucl/cvsroot/src Modified: code/room.lisp general-info/release-20c.txt Reduce consing of SAPs in ROOM. Patch from Helmut Eller, cmucl-imp 2011-08-11. ------------------------------+ code/room.lisp | 4 ++-- general-info/release-20c.txt | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) Index: src/code/room.lisp diff -u src/code/room.lisp:1.40 src/code/room.lisp:1.41 --- src/code/room.lisp:1.40 Tue Apr 20 10:57:45 2010 +++ src/code/room.lisp Sun Aug 21 00:43:38 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/room.lisp,v 1.40 2010/04/20 17:57:45 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/room.lisp,v 1.41 2011/08/21 07:43:38 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -368,7 +368,7 @@ (fixnum (sap+ current size)) (memory-size (sap+ current size))))) (setf current c)))) - (declare (inline next)) + (declare (inline next maybe-finish-mapping)) (loop (maybe-finish-mapping) (maybe-skip-page) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.27 src/general-info/release-20c.txt:1.28 --- src/general-info/release-20c.txt:1.27 Tue Jul 12 10:24:26 2011 +++ src/general-info/release-20c.txt Sun Aug 21 00:43:39 2011 @@ -136,6 +136,7 @@ - Getting documentation of a structure via DOCUMENTATION no longer signals an error in DGETTEXT trying to translate the null documentation string. + - Reduce unnecessary consing of SAPs in ROOM. * Trac Tickets:

1 0

[cmucl-cvs] CMUCL commit: src/general-info (release-20c.txt)
by Raymond Toy 12 Jul '11

12 Jul '11

Date: Tuesday, July 12, 2011 @ 10:24:26 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.26 src/general-info/release-20c.txt:1.27 --- src/general-info/release-20c.txt:1.26 Tue Jun 28 17:58:41 2011 +++ src/general-info/release-20c.txt Tue Jul 12 10:24:26 2011 @@ -133,6 +133,9 @@ Fix this by making sure KERNEL:%SQRT is defined. - Opening a file whose name contains "[" with :IF-EXISTS :NEW-VERSION no longer causes an error. + - Getting documentation of a structure via DOCUMENTATION no longer + signals an error in DGETTEXT trying to translate the null + documentation string. * Trac Tickets:

1 0

[cmucl-cvs] CMUCL commit: src/pcl (cmucl-documentation.lisp)
by Raymond Toy 12 Jul '11

12 Jul '11

Date: Tuesday, July 12, 2011 @ 10:19:50 Author: rtoy Path: /project/cmucl/cvsroot/src/pcl Modified: cmucl-documentation.lisp Don't call dgettext with a NIL doc. --------------------------+ cmucl-documentation.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/pcl/cmucl-documentation.lisp diff -u src/pcl/cmucl-documentation.lisp:1.18 src/pcl/cmucl-documentation.lisp:1.19 --- src/pcl/cmucl-documentation.lisp:1.18 Tue Dec 14 13:22:27 2010 +++ src/pcl/cmucl-documentation.lisp Tue Jul 12 10:19:50 2011 @@ -4,7 +4,7 @@ ;;; the public domain, and is provided 'as is'. (file-comment - "$Header: /project/cmucl/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.18 2010/12/14 21:22:27 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.19 2011/07/12 17:19:50 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -237,7 +237,7 @@ (values (info typed-structure textdomain x))) (t nil)))) - (or (intl:dgettext domain doc) + (or (and doc (intl:dgettext domain doc)) doc)))

1 0

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

05 Jul '11

Date: Tuesday, July 5, 2011 @ 10:05:54 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: index.html Update with latest news o Update for 2011-07 snapshot o Clean up some phrasing o Clean up some typos o Don't emphasize old snaphots. Only emphasize the most recent one, the patch, and the last release. ------------+ index.html | 40 ++++++++++++++++++++++++++++++++++------ 1 file changed, 34 insertions(+), 6 deletions(-) Index: cmucl-www/cmucl-www/www/index.html diff -u cmucl-www/cmucl-www/www/index.html:1.24 cmucl-www/cmucl-www/www/index.html:1.25 --- cmucl-www/cmucl-www/www/index.html:1.24 Wed Jun 8 13:41:48 2011 +++ cmucl-www/cmucl-www/www/index.html Tue Jul 5 10:05:54 2011 @@ -68,7 +68,30 @@ Also see <a href="news/index.html">News</a> for older news. <dl> -<dt>Snapshot 2011-06 +<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 +snapshot and the previous snapshot. + <ul> + <li> Unicode database updated to Unicode 6.0.0.</li> + <li> ASDF2 updated to version 2.016.1</li> + + <li> Add <code>LISP:LOAD-ALL-UNICODE-DATA</code> to load all the + unicode information into core. This is useful for creating an + executable image that does not need unidata.bin.</li> + + <li> CMUCL no longer exits if you specify a core file with an + executable image. A warning is printed instead and the core file is + used.</li> + + <li> <a href="http://trac.common-lisp.net/cmucl/ticket/43">Trac + #43</a> has been fixed in a better way. The previous fix was + incorrect and causes some Unicode tests to fail.</li> + </ul> +</dd> + +<dt>Snapshot 2011-06 <dd> The 2011-06 snapshot has been released. See the release notes for details, but here is a quick summary of the changes between the this @@ -78,11 +101,16 @@ <li> Added command line option, <code>-unidata</code>, to allow user to specify the location and name of the unidata.bin file. This is used instead of the default location. - <li> Opening a file whose name contains "[" with <code>:IF-EXISTS - :NEW-VERSION</code> no longer causes an error. + <li> Opening a file with <code>:IF-EXISTS + :NEW-VERSION</code> no longer causes an error if the file name + contains "[". </ul> </dd> +<dt>Snapshot 2011-05 +<dd> Due to the upgrade on common-lisp.net, no snapshot is available +for this month. + <dt>Snapshot 2011-04 <dd> The 2011-04 snapshot has been released. See the release nots for @@ -97,7 +125,7 @@ </dd> <dt>Snapshot 2011-03 <dd> - The 2011-02 snapshot has been released. See the release notes for + The 2011-03 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> @@ -115,7 +143,7 @@ longer read <code>#\latin_small_letter_a</code>. This is fixed in this version.<li> </ul> -<dt>Snapshot 2011-02 +<dt>Snapshot 2011-02 <dd> The 2011-02 snapshot has been released. See the release notes for details, but here is a quick summary of the changes between the @@ -130,7 +158,7 @@ encapsulation. </li> </ul> </dd> -<dt>Snapshot 2011-01 +<dt>Snapshot 2011-01 <dd> The 2011-01 snapshot has been released. See the release notes for details, but here is a quick summary of the changes between the

1 0

[cmucl-cvs] CMUCL commit: src/general-info (release-20c.txt)
by Raymond Toy 29 Jun '11

29 Jun '11

Date: Tuesday, June 28, 2011 @ 17:58:41 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt o Trac #43 fixed again. o Add note about build-all.sh. -----------------+ release-20c.txt | 6 ++++++ 1 file changed, 6 insertions(+) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.25 src/general-info/release-20c.txt:1.26 --- src/general-info/release-20c.txt:1.25 Mon Jun 27 08:47:53 2011 +++ src/general-info/release-20c.txt Tue Jun 28 17:58:41 2011 @@ -136,12 +136,18 @@ * Trac Tickets: + - #43: unread-char doesn't change file-position + Fixed. * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: + - A new script, src/tools/build-all.sh, has been added. This will + compile all variants for a given OS and architecture. That is, + both x87 and sse2 binaries are built (if available) as well as + unicode and non-unicode versions. This release is not binary compatible with code compiled using CMUCL 20b; you will need to recompile FASL files.

1 0

[cmucl-cvs] CMUCL commit: src/code (fd-stream.lisp stream.lisp)
by Raymond Toy 29 Jun '11

29 Jun '11

Date: Tuesday, June 28, 2011 @ 17:55:05 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: fd-stream.lisp stream.lisp Fix Trac #43 again. stream.lisp: o Remove the old code that was the first attempt at fixing issue #43. This was wrong. fd-stream.lisp: o Fix issue #43. Even if we have a string-buffer, we need to take into account any octets in the in-buffer (if it exists) that have not been processed. This happens if the in-buffer does not have enough octets at the end to form a complete character for the given encoding. o Some debugging prints added, but disabled. ----------------+ fd-stream.lisp | 75 +++++++++++++++++++++++++++++++++---------------------- stream.lisp | 8 ----- 2 files changed, 46 insertions(+), 37 deletions(-) Index: src/code/fd-stream.lisp diff -u src/code/fd-stream.lisp:1.124 src/code/fd-stream.lisp:1.125 --- src/code/fd-stream.lisp:1.124 Tue May 31 06:14:39 2011 +++ src/code/fd-stream.lisp Tue Jun 28 17:55:04 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/fd-stream.lisp,v 1.124 2011/05/31 13:14:39 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.125 2011/06/29 00:55:04 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1717,35 +1717,50 @@ (fd-stream-ibuf-head stream))) #+unicode - (if (fd-stream-string-buffer stream) - ;; The string buffer contains Lisp characters, - ;; not octets! To figure out how many octets - ;; have not been already supplied, we need to - ;; count how many octets were consumed for all - ;; the characters in the string bbuffer that have - ;; not been supplied. - (let ((ocount (fd-stream-octet-count stream))) - (when ocount - ;; Note: string-index starts at 1 (because - ;; index 0 is for the unread-char), but - ;; octet-count doesn't use that. Hence, - ;; subtract one from string-index and - ;; string-buffer-len. - (loop for k of-type fixnum from (1- (fd-stream-string-index stream)) - below (1- (fd-stream-string-buffer-len stream)) - do (decf posn (aref ocount k))))) - (when (fd-stream-in-buffer stream) - ;; When we have an in-buffer (but no - ;; string-buffer!), we need to adjust for the - ;; octets that have not yet been supplied. - ;; This situation (should!) only happens for an - ;; external-format of ISO-8859-1. If there's - ;; no string-buffer and no in-buffer, then the - ;; ibuf tail and head pointers contain all the - ;; information needed. - (decf posn (- in-buffer-length - (fd-stream-in-index stream))))) - + (when (fd-stream-string-buffer stream) + ;; The string buffer contains Lisp characters, + ;; not octets! To figure out how many octets + ;; have not been already supplied, we need to + ;; count how many octets were consumed for all + ;; the characters in the string bbuffer that have + ;; not been supplied. + (let ((ocount (fd-stream-octet-count stream))) + (when ocount + ;; Note: string-index starts at 1 (because + ;; index 0 is for the unread-char), but + ;; octet-count doesn't use that. Hence, + ;; subtract one from string-index and + ;; string-buffer-len. + #+nil + (progn + (format t "~&ocount = ~D~%" ocount) + (format t "posn = ~D~%" posn)) + (loop for k of-type fixnum from (1- (fd-stream-string-index stream)) + below (1- (fd-stream-string-buffer-len stream)) + do (decf posn (aref ocount k))) + #+nil + (progn + (format t "new posn = ~D~%" posn) + (format t "in-buffer-length = ~D~%" in-buffer-length) + (format t "fd-stream-in-index = ~D~%" (fd-stream-in-index stream)))))) + (when (fd-stream-in-buffer stream) + ;; When we have an in-buffer (whether we have a + ;; string-buffer or not!), we need to adjust for + ;; the octets that have not yet been supplied. + ;; (This case happens with string-buffer when the + ;; in-buffer does not have enough octets to form a + ;; complete character.) If there's no + ;; string-buffer and no in-buffer, then the ibuf + ;; tail and head pointers contain all the + ;; information needed. + #+nil + (progn + (format t "in-buffer-length = ~D~%" in-buffer-length) + (format t "fd-stream-in-index = ~D~%" (fd-stream-in-index stream))) + (decf posn (- in-buffer-length + (fd-stream-in-index stream)))) + #+nil + (format t "fd-stream-unread = ~S~%" (fd-stream-unread stream)) (when (fd-stream-unread stream) ;;@@ (decf posn)) ;; Divide bytes by element size. Index: src/code/stream.lisp diff -u src/code/stream.lisp:1.101 src/code/stream.lisp:1.102 --- src/code/stream.lisp:1.101 Mon Jun 27 08:05:27 2011 +++ src/code/stream.lisp Tue Jun 28 17:55:04 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/stream.lisp,v 1.101 2011/06/27 15:05:27 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/stream.lisp,v 1.102 2011/06/29 00:55:04 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -851,12 +851,6 @@ (setf (lisp-stream-string-buffer-len stream) (1+ char-count)) (setf (lisp-stream-string-index stream) 2) (setf (lisp-stream-in-index stream) octet-count) - ;; If we didn't convert all the octets, - ;; adjust the head pointer to indicate - ;; that we have unread octets left. - #+nil - (decf (lisp::fd-stream-ibuf-head stream) - (- (fd-stream-in-length stream) octet-count)) #+(or debug-frc-sr) (progn (format t "new in-index = ~A~%" (lisp-stream-in-index stream))

1 0

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

28 Jun '11

Date: Tuesday, June 28, 2011 @ 12:20:10 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale Modified: cmucl.pot Regenerated from current sources. -----------+ cmucl.pot | 8 ++++++++ 1 file changed, 8 insertions(+) Index: src/i18n/locale/cmucl.pot diff -u src/i18n/locale/cmucl.pot:1.20 src/i18n/locale/cmucl.pot:1.21 --- src/i18n/locale/cmucl.pot:1.20 Mon Jun 6 12:28:10 2011 +++ src/i18n/locale/cmucl.pot Tue Jun 28 12:20:09 2011 @@ -5318,6 +5318,14 @@ msgid "Build the dictionary for CJK Unified Ideographs" msgstr "" +#: src/code/unidata.lisp +msgid "" +"Load all unicode data and set *UNIDATA-PATH* to NIL.\n" +"Normally, the unicode data is loaded as needed. This loads all of the\n" +"data, which is useful for creating a core that no longer needs\n" +"unidata.bin." +msgstr "" + #: src/code/char.lisp msgid "The upper exclusive bound on values produced by CHAR-CODE." msgstr ""

1 0

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

27 Jun '11

Date: Monday, June 27, 2011 @ 08:47:53 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt Update from logs. o Unicode updated to version 6.0.0. o Trac #43 repoened because that change was reverted. -----------------+ release-20c.txt | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.24 src/general-info/release-20c.txt:1.25 --- src/general-info/release-20c.txt:1.24 Fri Jun 10 12:34:58 2011 +++ src/general-info/release-20c.txt Mon Jun 27 08:47:53 2011 @@ -21,7 +21,7 @@ * Known issues: * Feature enhancements - - Update to Unicode 5.2.0. + - 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 @@ -136,8 +136,6 @@ * Trac Tickets: - - #43: unread-char doesn't change file-position - Fixed. * Other changes:

1 0

[cmucl-cvs] CMUCL commit: src/tools (make-src-dist.sh)
by Raymond Toy 27 Jun '11

27 Jun '11

Date: Monday, June 27, 2011 @ 08:45:19 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Modified: make-src-dist.sh Usability and internal restructuring. o Add usage message. o Don't include the emacs-style backup files that are sometimes created for the pot files. ------------------+ make-src-dist.sh | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) Index: src/tools/make-src-dist.sh diff -u src/tools/make-src-dist.sh:1.2 src/tools/make-src-dist.sh:1.3 --- src/tools/make-src-dist.sh:1.2 Thu Aug 13 18:31:11 2009 +++ src/tools/make-src-dist.sh Mon Jun 27 08:45:19 2011 @@ -1,5 +1,17 @@ #!/bin/sh +usage() { + echo "make-src-dist.sh: [-bgh] [-t gnutar] [-I destdir] version" + echo " -h This help" + echo " -b Use bzip2 compression" + echo " -g Use gzip compression" + echo " -t tar Name/path to GNU tar" + echo " -I destdir Install directly to given directory instead of creating a tarball" + echo "" + echo 'Create a tar ball of the cmucl sources. The tarball is named ' + echo 'cmucl-src-$version.tar.bz2 (or gz if using gzip compression)' +} + while getopts "bgh?t:I:" arg do case $arg in @@ -25,10 +37,11 @@ ZIPEXT="bz2" fi +GTAR_OPTIONS="--exclude=CVS --exclude='*.pot.~*~'" if [ -z "$INSTALL_DIR" ]; then echo " Compressing with $ZIP" - ${GTAR:-tar} --exclude=CVS -cf - src | ${ZIP} > cmucl-src-$VERSION.tar.$ZIPEXT + ${GTAR:-tar} ${GTAR_OPTIONS} -cf - src | ${ZIP} > cmucl-src-$VERSION.tar.$ZIPEXT else # Install in the specified directory - ${GTAR:-tar} --exclude=CVS -cf - src | (cd $INSTALL_DIR; ${GTAR:-tar} xf -) + ${GTAR:-tar} ${GTAR_OPTIONS} -cf - src | (cd $INSTALL_DIR; ${GTAR:-tar} xf -) fi

1 0

[cmucl-cvs] CMUCL commit: src/i18n (unidata.bin)
by Raymond Toy 27 Jun '11

27 Jun '11

Date: Monday, June 27, 2011 @ 08:18:14 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n Modified: unidata.bin Regenerated for Unicode 6.0.0. -------------+ unidata.bin | <<Binary file>> 1 file changed, 1 insertion(+) Index: src/i18n/unidata.bin <<Binary file>>

1 0