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

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

28 Feb '11

Date: Monday, February 28, 2011 @ 12:14:45 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: irrat.lisp Need to define %sqrt for x86/sse2 so the compiler can constant-fold SQRT. ------------+ irrat.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/code/irrat.lisp diff -u src/code/irrat.lisp:1.63 src/code/irrat.lisp:1.64 --- src/code/irrat.lisp:1.63 Tue Apr 20 13:57:44 2010 +++ src/code/irrat.lisp Mon Feb 28 12:14:45 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/irrat.lisp,v 1.63 2010-04-20 17:57:44 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.64 2011-02-28 17:14:45 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -179,7 +179,7 @@ ;; As above for x86. It also seems to be needed to handle ;; constant-folding in the compiler. -#+sparc +#+(or sparc (and x86 sse2)) (progn (defun %sqrt (x) (declare (double-float x)

1 0

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

23 Feb '11

Date: Tuesday, February 22, 2011 @ 22:02:34 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: unidata.lisp Fix bug where cmucl was no longer recognizing things like #\latin_small_letter_a. This failure is caused by the new SEARCH-DICTIONARY function that does partial completion, and UNICODE-NAME-TO-CODEPOINT function wan't aware of the new way. We could change UNICODE-NAME-TO-CODEPOINT to do the appropriate thing with the new way, but I (rtoy) decided it would be nice to have the old function around too. Hence, restore the old version and use it. --------------+ unidata.lisp | 61 +++++++++++++++++++++++++++++++++++++++++++++------------ 1 file changed, 49 insertions(+), 12 deletions(-) Index: src/code/unidata.lisp diff -u src/code/unidata.lisp:1.23 src/code/unidata.lisp:1.24 --- src/code/unidata.lisp:1.23 Wed Sep 29 16:51:19 2010 +++ src/code/unidata.lisp Tue Feb 22 22:02:33 2011 @@ -4,7 +4,7 @@ ;;; This code was written by Paul Foley and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/unidata.lisp,v 1.23 2010-09-29 20:51:19 rtoy Exp $") +(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/unidata.lisp,v 1.24 2011-02-23 03:02:33 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -18,7 +18,7 @@ (defconstant +unidata-path+ #p"ext-formats:unidata.bin") -(defvar *unidata-version* "$Revision: 1.23 $") +(defvar *unidata-version* "$Revision: 1.24 $") (defstruct unidata range @@ -339,6 +339,45 @@ i)) stack)))))))) +;; Like SEARCH-DICTIONARY, but we don't try to do partial matches. We +;; do an exact match on the given string. +(defun exact-match-dictionary (string dictionary) + (declare (optimize (speed 3) (space 0) (safety 0) + (ext:inhibit-warnings 3)) + (type string string) (type dictionary dictionary)) + (let* ((codebook (dictionary-cdbk dictionary)) + (current 0) + (posn 0) + (stack '())) + (declare (type (unsigned-byte 32) current) (type lisp::index posn)) + (loop + (let ((keyv (ash (aref (dictionary-nextv dictionary) current) -18))) + (dotimes (i (aref (dictionary-keyl dictionary) keyv) + (if stack + (let ((next (pop stack))) + (setq posn (car next) current (cdr next))) + (return-from exact-match-dictionary nil))) + (let* ((str (aref codebook (aref (dictionary-keyv dictionary) + (+ keyv i)))) + (len (length str))) + (declare (type simple-base-string str)) + (when (and (>= (length string) (+ posn len)) + (string= string str :start1 posn :end1 (+ posn len))) + (setq current + (+ (logand (aref (dictionary-nextv dictionary) current) + #x3FFFF) + i)) + (when (= (incf posn len) (length string)) + (return-from exact-match-dictionary current)) + (return)) ; from DOTIMES - loop again + (when (or (string= str " ") (string= str "-")) + (push (cons posn + (+ (logand (aref (dictionary-nextv dictionary) + current) + #x3FFFF) + i)) + stack)))))))) + (defun search-range (code range) (declare (optimize (speed 3) (space 0) (safety 0)) (type codepoint code) (type range range)) @@ -727,20 +766,18 @@ nil))) (t (unless (unidata-name+ *unicode-data*) (load-names)) - (let* ((names (unidata-name+ *unicode-data*))) - (multiple-value-bind (n p) - (search-dictionary name names) - (when (and n (= p (length name))) - (let ((cp (aref (dictionary-codev names) n))) - (if (minusp cp) nil cp)))))))) + (let* ((names (unidata-name+ *unicode-data*)) + (n (exact-match-dictionary name names))) + (when n + (let ((cp (aref (dictionary-codev names) n))) + (if (minusp cp) nil cp))))))) (defun unicode-1.0-name-to-codepoint (name) (declare (type string name)) (unless (unidata-name1+ *unicode-data*) (load-1.0-names)) - (let* ((names (unidata-name1+ *unicode-data*))) - (multiple-value-bind (n p) - (search-dictionary name names) - (when (and n (= p (length name))) + (let* ((names (unidata-name1+ *unicode-data*)) + (n (exact-match-dictionary name names))) + (when n (let ((cp (aref (dictionary-codev names) n))) (if (minusp cp) nil cp))))))

1 0

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

22 Feb '11

Date: Tuesday, February 22, 2011 @ 17:56:15 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: ntrace.lisp Make the test for flet/labels functions more explicit. We were catching setf functions previously. -------------+ ntrace.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) Index: src/code/ntrace.lisp diff -u src/code/ntrace.lisp:1.47 src/code/ntrace.lisp:1.48 --- src/code/ntrace.lisp:1.47 Tue Feb 1 10:35:00 2011 +++ src/code/ntrace.lisp Tue Feb 22 17:56:15 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.47 2011-02-01 15:35:00 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/ntrace.lisp,v 1.48 2011-02-22 22:56:15 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -515,7 +515,8 @@ (unless named (error (intl:gettext "Can't use encapsulation to trace anonymous function ~S.") fun)) - (when (listp function-or-name) + (when (and (listp function-or-name) + (member function-or-name '(flet labels))) (error (intl:gettext "Can't use encapsulation to trace local flet/labels function ~S.") function-or-name)) (fwrap function-or-name #'trace-fwrapper :type 'trace

1 0

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

17 Feb '11

Date: Wednesday, February 16, 2011 @ 21:55:46 Author: rtoy Path: /project/cmucl/cvsroot/src Modified: code/fd-stream.lisp general-info/release-20c.txt Fix ansi-test failure OPEN.IO.28: (OPEN PN :DIRECTION :IO :IF-DOES-NOT-EXIST NIL) no longer signals an error. code/fd-stream.lisp: o Don't try to create a new version if there's no existing file general-info/release-20c.txt: o Update. ------------------------------+ code/fd-stream.lisp | 4 ++-- general-info/release-20c.txt | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) Index: src/code/fd-stream.lisp diff -u src/code/fd-stream.lisp:1.122 src/code/fd-stream.lisp:1.123 --- src/code/fd-stream.lisp:1.122 Wed Oct 13 14:00:44 2010 +++ src/code/fd-stream.lisp Wed Feb 16 21:55:45 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.122 2010-10-13 18:00:44 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.123 2011-02-17 02:55:45 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2067,7 +2067,7 @@ (let ((name (cond ((unix-namestring pathname input)) ((and input (eq if-does-not-exist :create)) (unix-namestring pathname nil))))) - (let ((original (cond ((eq if-exists :new-version) + (let ((original (cond ((and name (eq if-exists :new-version)) (next-version name)) ((member if-exists '(:rename :rename-and-delete)) (pick-backup-name name)))) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.17 src/general-info/release-20c.txt:1.18 --- src/general-info/release-20c.txt:1.17 Wed Feb 16 21:47:22 2011 +++ src/general-info/release-20c.txt Wed Feb 16 21:55:45 2011 @@ -71,6 +71,8 @@ - DEFSTRUCT allows multiple keyword constructors as required by the spec.. - In COMPILE-FILE, the :OUTPUT-FILE can also be a stream. + - (OPEN f :DIRECTION :IO :IF-DOES-NOT-EXIST NIL) no longer signals + an error if f does not exist. It returns NIL now. * Bugfixes: - The pairwise composition table is now correctly built.

1 0

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

17 Feb '11

Date: Wednesday, February 16, 2011 @ 21:47:22 Author: rtoy Path: /project/cmucl/cvsroot/src Modified: compiler/fndb.lisp general-info/release-20c.txt The :OUTPUT-FILE for COMPILE-FILE can be a stream. This fixes ansi-test COMPILE-FILE.14. compiler/fndb.lisp: o Tell compiler that :OUTPUT-FILE can also be a stream. general-info/release-20c.txt: o Update. ------------------------------+ compiler/fndb.lisp | 4 ++-- general-info/release-20c.txt | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) Index: src/compiler/fndb.lisp diff -u src/compiler/fndb.lisp:1.147 src/compiler/fndb.lisp:1.148 --- src/compiler/fndb.lisp:1.147 Fri Sep 24 08:12:05 2010 +++ src/compiler/fndb.lisp Wed Feb 16 21:47:21 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/fndb.lisp,v 1.147 2010-09-24 12:12:05 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/compiler/fndb.lisp,v 1.148 2011-02-17 02:47:21 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1144,7 +1144,7 @@ (deftype optional-filename () '(or filename (member t nil))) (defknown compile-file - ((or optional-filename stream list) &key (:output-file optional-filename) + ((or optional-filename stream list) &key (:output-file (or optional-filename stream)) (:error-file optional-filename) (:trace-file optional-filename) (:error-output t) (:load t) (:verbose t) (:print t) (:progress t) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.16 src/general-info/release-20c.txt:1.17 --- src/general-info/release-20c.txt:1.16 Wed Feb 2 08:08:25 2011 +++ src/general-info/release-20c.txt Wed Feb 16 21:47:22 2011 @@ -70,6 +70,7 @@ it should not. - DEFSTRUCT allows multiple keyword constructors as required by the spec.. + - In COMPILE-FILE, the :OUTPUT-FILE can also be a stream. * Bugfixes: - The pairwise composition table is now correctly built.

1 0

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

03 Feb '11

Date: Thursday, February 3, 2011 @ 11:11:15 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: index.html Add news for the 2011-02 snapshot. ------------+ index.html | 15 +++++++++++++++ 1 file changed, 15 insertions(+) Index: cmucl-www/cmucl-www/www/index.html diff -u cmucl-www/cmucl-www/www/index.html:1.20 cmucl-www/cmucl-www/www/index.html:1.21 --- cmucl-www/cmucl-www/www/index.html:1.20 Tue Jan 11 19:47:39 2011 +++ cmucl-www/cmucl-www/www/index.html Thu Feb 3 11:11:15 2011 @@ -68,6 +68,21 @@ Also see <a href="news/index.html">News</a> for older news. <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: 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