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

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

03 Feb '11

Date: Thursday, February 3, 2011 @ 11:05:42 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www/news Modified: index.html Add news for the 2011-02 snapshot. ------------+ index.html | 15 +++++++++++++++ 1 file changed, 15 insertions(+) Index: cmucl-www/cmucl-www/www/news/index.html diff -u cmucl-www/cmucl-www/www/news/index.html:1.45 cmucl-www/cmucl-www/www/news/index.html:1.46 --- cmucl-www/cmucl-www/www/news/index.html:1.45 Tue Jan 11 22:57:44 2011 +++ cmucl-www/cmucl-www/www/news/index.html Thu Feb 3 11:05:41 2011 @@ -11,6 +11,21 @@ <dl> +<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 + this snapshot and the previous snapshot. + <ul> + <li> <code>EXT::DESCRIBE-EXTERNAL-FORMAT</code> was not exported.</li> + + <li> <code>TRACE</code> was erroneously allowing encapsulation when + tracing local flet/labels functions. This doesn't actually trace + anything. An error is now signaled in this case. If you are sure, + you can specify <code>:ENCAPSULATE NIL</code> to disable + encapsulation. + </ul> +</dd> <dt>Snapshot 2011-01 <dd> The 2011-01 snapshot has been released. See the release notes for

1 0

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

02 Feb '11

Date: Wednesday, February 2, 2011 @ 08:08:25 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt Update from logs. -----------------+ release-20c.txt | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.15 src/general-info/release-20c.txt:1.16 --- src/general-info/release-20c.txt:1.15 Sun Dec 26 10:17:59 2010 +++ src/general-info/release-20c.txt Wed Feb 2 08:08:25 2011 @@ -25,7 +25,8 @@ - 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 - with all features available. + with all features available, except only Unicode and SSE2 is + supported. * Changes - ASDF2 updated to version 2.010. @@ -106,6 +107,14 @@ - On NetBSD, display of FP numbers (sse2 and x87) during tracing has been corrected. Previously, random values were displayed. - Executables images can now be created on NetBSD again. + - EXT::DESCRIBE-EXTERNAL-FORMAT was not exported. + - TRACE was erroneously allowing encapsulation when tracing local + flet/labels functions. This doesn't actually trace anything. + An error is now signaled in this case. This usually happens + because the function is in one of CMUCL's internal + implementation packages. If you know what you're doing, you can + use the trace option :encapsulate nil to trace them. Tracing + functions used by TRACE can cause bad things. * Trac Tickets:

1 0

[cmucl-cvs] CMUCL commit: src/compiler (dump.lisp)
by Raymond Toy 02 Feb '11

02 Feb '11

Date: Wednesday, February 2, 2011 @ 08:07:58 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler Modified: dump.lisp Don't dump fdefinitions for local flet/labels functions. Suggested by Helmut Eller, cmucl-imp 2011-01-19. -----------+ dump.lisp | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) Index: src/compiler/dump.lisp diff -u src/compiler/dump.lisp:1.91 src/compiler/dump.lisp:1.92 --- src/compiler/dump.lisp:1.91 Sat Dec 4 18:21:13 2010 +++ src/compiler/dump.lisp Wed Feb 2 08:07:57 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.91 2010-12-04 23:21:13 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.92 2011-02-02 13:07:57 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -649,7 +649,13 @@ (dump-fop 'lisp::fop-function-entry file) (dump-unsigned-32 (label-position (entry-info-offset entry)) file) (let ((handle (dump-pop file))) - (when (and name (or (symbolp name) (listp name))) + (when (and name (or (symbolp name) + (and (listp name) + ;; Skip over any entries for + ;; flet/labels functions. We don't + ;; need them stored because we can't + ;; really do anything with them. + (not (member (car name) '(flet labels) :test 'eq) )))) (dump-object name file) (dump-push handle file) (dump-fop 'lisp::fop-fset file))

1 0

[cmucl-cvs] CMUCL commit: src/tools (build-all.sh)
by Raymond Toy 02 Feb '11

02 Feb '11

Date: Wednesday, February 2, 2011 @ 08:06:28 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Modified: build-all.sh Recognize i86pc from uname -m. --------------+ build-all.sh | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) Index: src/tools/build-all.sh diff -u src/tools/build-all.sh:1.3 src/tools/build-all.sh:1.4 --- src/tools/build-all.sh:1.3 Fri Jan 7 18:43:58 2011 +++ src/tools/build-all.sh Wed Feb 2 08:06:28 2011 @@ -96,7 +96,7 @@ } case `uname -m` in - i386*|x86*) buildx86 ;; + i386*|x86*|i86pc) buildx86 ;; sun*) buildsun4 ;; *) echo "Unsupported architecture: `uname -m`" ;; esac

1 0

[cmucl-cvs] CMUCL commit: src/code (exports.lisp)
by Raymond Toy 02 Feb '11

02 Feb '11

Date: Wednesday, February 2, 2011 @ 07:51:27 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: exports.lisp Fix typo. We wanted to export the function DESCRIBE-EXTERNAL-FORMAT, not the random symbol DESCRIBE-EXTERNAL-FORMATS. --------------+ exports.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/code/exports.lisp diff -u src/code/exports.lisp:1.303 src/code/exports.lisp:1.304 --- src/code/exports.lisp:1.303 Thu Dec 9 09:01:01 2010 +++ src/code/exports.lisp Wed Feb 2 07:51:27 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/exports.lisp,v 1.303 2010-12-09 14:01:01 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/exports.lisp,v 1.304 2011-02-02 12:51:27 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1508,7 +1508,7 @@ "DESCRIBE-EXTERNAL-FORMAT") ;; Unicode (:export "STRING-TO-OCTETS" "OCTETS-TO-STRING" "*DEFAULT-EXTERNAL-FORMAT*" - "DESCRIBE-EXTERNAL-FORMATS" + "DESCRIBE-EXTERNAL-FORMAT" "LIST-ALL-EXTERNAL-FORMATS" "STRING-ENCODE" "STRING-DECODE" "SET-SYSTEM-EXTERNAL-FORMAT"))

1 0

[cmucl-cvs] CMUCL commit: src/code (ntrace.lisp)
by Raymond Toy 01 Feb '11

01 Feb '11

Date: Tuesday, February 1, 2011 @ 10:35:01 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: ntrace.lisp Fix typo. The check for whether we were trying to use encapsulation to trace a local function was checking for the wrong thing. -------------+ ntrace.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) Index: src/code/ntrace.lisp diff -u src/code/ntrace.lisp:1.46 src/code/ntrace.lisp:1.47 --- src/code/ntrace.lisp:1.46 Tue Apr 20 13:57:45 2010 +++ src/code/ntrace.lisp Tue Feb 1 10:35:00 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/ntrace.lisp,v 1.46 2010-04-20 17:57:45 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/ntrace.lisp,v 1.47 2011-02-01 15:35:00 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -515,9 +515,9 @@ (unless named (error (intl:gettext "Can't use encapsulation to trace anonymous function ~S.") fun)) - (when (listp fun) + (when (listp function-or-name) (error (intl:gettext "Can't use encapsulation to trace local flet/labels function ~S.") - fun)) + function-or-name)) (fwrap function-or-name #'trace-fwrapper :type 'trace :user-data info)) (t

1 0

[cmucl-cvs] CMUCL commit: src/code (reader.lisp)
by Raymond Toy 27 Jan '11

27 Jan '11

Date: Wednesday, January 26, 2011 @ 19:49:32 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: reader.lisp Micro optimization: In SET-CMT-ENTRY, if the char-code is above attribute-table-limit and if the newvalue is #'read-token, we don't actually add the entry to the character-macro-hash-table, because that is the default value for the hash-table. This helps to keep the hash-table size small. -------------+ reader.lisp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) Index: src/code/reader.lisp diff -u src/code/reader.lisp:1.67 src/code/reader.lisp:1.68 --- src/code/reader.lisp:1.67 Tue Apr 20 13:57:45 2010 +++ src/code/reader.lisp Wed Jan 26 19:49:32 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/reader.lisp,v 1.67 2010-04-20 17:57:45 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/reader.lisp,v 1.68 2011-01-27 00:49:32 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -275,8 +275,14 @@ (setf (elt (the simple-vector (character-macro-table rt)) code) (coerce newvalue 'function)) - (setf (gethash code (character-macro-hash-table rt)) - (coerce newvalue 'function))))) + (let ((f (coerce newvalue 'function))) + ;; Don't add an entry if the function would be the same as + ;; the default. This needs to be coordinated with + ;; GET-CMT-ENTRY above. + (if (eq f #'read-token) + f + (setf (gethash code (character-macro-hash-table rt)) + f)))))) (defun undefined-macro-char (stream char) (unless *read-suppress*

1 0

[cmucl-cvs] CMUCL commit: src/code (foreign.lisp)
by Raymond Toy 21 Jan '11

21 Jan '11

Date: Friday, January 21, 2011 @ 10:44:58 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: foreign.lisp For Darwin, we need to specify -arch i386 if we need to run ld so that we produce 32-bit binaries instead of the default 64-bit (on 10.6 and later). --------------+ foreign.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) Index: src/code/foreign.lisp diff -u src/code/foreign.lisp:1.59 src/code/foreign.lisp:1.60 --- src/code/foreign.lisp:1.59 Tue Apr 20 13:57:44 2010 +++ src/code/foreign.lisp Fri Jan 21 10:44:58 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/foreign.lisp,v 1.59 2010-04-20 17:57:44 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/foreign.lisp,v 1.60 2011-01-21 15:44:58 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -881,6 +881,8 @@ #+(or solaris linux) "-G" #+(or freebsd OpenBSD NetBSD irix) "-shared" #+darwin "-dylib" + #+darwin "-arch" + #+darwin "i386" "-o" output-file ;; Cause all specified libs to be loaded in full

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (download.html)
by Raymond Toy 21 Jan '11

21 Jan '11

1 0

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

12 Jan '11

Date: Tuesday, January 11, 2011 @ 22:57:44 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www/news Modified: index.html Update with 2011-01 changes. ------------+ index.html | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) Index: cmucl-www/cmucl-www/www/news/index.html diff -u cmucl-www/cmucl-www/www/news/index.html:1.44 cmucl-www/cmucl-www/www/news/index.html:1.45 --- cmucl-www/cmucl-www/www/news/index.html:1.44 Mon Dec 6 20:25:14 2010 +++ cmucl-www/cmucl-www/www/news/index.html Tue Jan 11 22:57:44 2011 @@ -11,6 +11,39 @@ <dl> +<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 + this snapshot and the previous snapshot. + <ul> + <li> Initial support for Solaris/x86. CMUCL will run on Solaris/x86 + with all features available. </li> + <li> <code>UNINTERN</code> no longer removes the wrong symbol. <code>UNINTERN</code> would + remove the symbol when inherited from another package although it + should not. + <li> <code>DEFSTRUCT</code> allows multiple keyword constructors as required by the spec.. + </li> + <li> <code>SUBSEQ</code> with an end index less than the start index sometimes + crashes CMUCL. Now, signal an error if the boudns are not + valid. + </li> + <li> Localization support was causing many calls to stat trying to + find non-existent translation files. This has been fixed so + that the results are cached. (If new translations are added, + the cache will need to be cleared or cmucl restarted.) This + change cuts building time by half on Solaris/sparc. + </li> + <li> On NetBSD, function-end breakpoints, especially for + tail-recursive functions, are working now. + </li> + <li> On NetBSD, display of FP numbers (sse2 and x87) during tracing + has been corrected. Previously, random values were displayed. + </li> + <li> Executables images can now be created on NetBSD again.</li> + </ul> +</dd> + <dt>2010-12 snapshot <dd> Some of the important changes are listed below. See the <a

1 0