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

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

03 Mar '11

Date: Thursday, March 3, 2011 @ 11:43:51 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt Fix Trac #43: unread-char doesn't change file-position -----------------+ release-20c.txt | 2 ++ 1 file changed, 2 insertions(+) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.19 src/general-info/release-20c.txt:1.20 --- src/general-info/release-20c.txt:1.19 Mon Feb 28 23:40:13 2011 +++ src/general-info/release-20c.txt Thu Mar 3 11:43:51 2011 @@ -122,6 +122,8 @@ Fix this. * Trac Tickets: + - #43: unread-char doesn't change file-position + Fixed. * Other changes:

1 0

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

03 Mar '11

Date: Thursday, March 3, 2011 @ 11:43:29 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: stream.lisp Fix Trac #43: unread-char doesn't change file-position The issue is caused by FAST-READ-CHAR-STRING-REFILL. In some situations the number of octets converted is not exactly the same as the length of the buffer because the last octets in the buffer don't hold a complete encoded character. This is ok, but we didn't update the ibuf-head pointer to indicate that some octets haven't actually been converted. This confuses FILE-POSITION. -------------+ stream.lisp | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) Index: src/code/stream.lisp diff -u src/code/stream.lisp:1.99 src/code/stream.lisp:1.100 --- src/code/stream.lisp:1.99 Tue Sep 7 23:04:54 2010 +++ src/code/stream.lisp Thu Mar 3 11:43:28 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.99 2010-09-08 03:04:54 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/stream.lisp,v 1.100 2011-03-03 16:43:28 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -723,6 +723,13 @@ (setf (lisp-stream-in-index stream) (1+ start)) (code-char (aref ibuf start)))))) +;;; FAST-READ-CHAR-STRING-REFILL -- Interface +;;; +;;; This function is called by the fast-read-char expansion to refill the +;;; string-buffer for text streams. There is definitely a +;;; string-buffer and an in-buffer, which implies there must be an +;;; n-bin method. +;;; #+unicode (defun fast-read-char-string-refill (stream eof-errorp eof-value) ;; Like fast-read-char-refill, but we don't need or want the @@ -844,6 +851,11 @@ (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. + (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/general-info (release-20c.txt)
by Raymond Toy 01 Mar '11

01 Mar '11

Date: Monday, February 28, 2011 @ 23:40:13 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt Update from logs. Also, Solaris/x86 supports both sse2 and x87 now. -----------------+ release-20c.txt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.18 src/general-info/release-20c.txt:1.19 --- src/general-info/release-20c.txt:1.18 Wed Feb 16 21:55:45 2011 +++ src/general-info/release-20c.txt Mon Feb 28 23:40:13 2011 @@ -25,8 +25,7 @@ - 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, except only Unicode and SSE2 is - supported. + with all features available, except only Unicode is supported. * Changes - ASDF2 updated to version 2.010. @@ -118,6 +117,9 @@ 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. + - In some situations the compiler could not constant fold SQRT + calls because KERNEL:%SQRT was not defined on x86 with SSE2. + Fix this. * Trac Tickets:

1 0

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

01 Mar '11

Date: Monday, February 28, 2011 @ 23:32:58 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: filesys.lisp Remove commented-out DEFAULT-DIRECTORY written by fmg. Don't need this anymore since the issue appears to be fixed. --------------+ filesys.lisp | 35 +---------------------------------- 1 file changed, 1 insertion(+), 34 deletions(-) Index: src/code/filesys.lisp diff -u src/code/filesys.lisp:1.113 src/code/filesys.lisp:1.114 --- src/code/filesys.lisp:1.113 Mon Nov 8 17:28:59 2010 +++ src/code/filesys.lisp Mon Feb 28 23:32:58 2011 @@ -6,7 +6,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/filesys.lisp,v 1.113 2010-11-08 22:28:59 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/filesys.lisp,v 1.114 2011-03-01 04:32:58 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1392,39 +1392,6 @@ (parse-namestring (concatenate 'simple-string dir-or-error "/") *unix-host*))) (error dir-or-error)))) -;;; -;;; XXXX This code was modified by me (fmg) to avoid calling -;;; concatenate. The reason for this is that there have been -;;; intermittent instabilities (segv on startup) when the function -;;; environment-init (in save.lisp) is called. Apparently the type -;;; system is not completely sorted out at the time this function is -;;; first called. As a result, strange, not completely reproducable -;;; things happen, related to something in the state of the -;;; environment (e.g. the paths or the user environment variables or -;;; something). These errors occur in the course of calling -;;; default-directory and the backtrace indicates they occur in the -;;; context of the type system. Since I haven't been able to figure -;;; out why they happen, I decided to punt. -;;; -;;; Hopefully someone will really fix the problem someday. -;;; -;;; Seems like maybe it's fixed by changes made by Ray Toy to avoid heap corruption. -#- (and) -(defun default-directory () - "Returns the pathname for the default directory. This is the place where - a file will be written if no directory is specified. This may be changed - with setf." - (multiple-value-bind (gr dir-or-error) - (unix:unix-current-directory) - (if gr - (let ((*ignore-wildcards* t) - (string (make-string (1+ (length dir-or-error)) :initial-element #\/))) - (values - (parse-namestring (replace string dir-or-error) *unix-host*))) - (error dir-or-error)))) - - - ;;; %Set-Default-Directory -- Internal ;;;

1 0

[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><strong>Snapshot 2011-02</strong> +<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><strong>Snapshot 2011-01</strong> <dd> The 2011-01 snapshot has been released. See the release notes for

1 0