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

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-03-2-g3840e31
by Raymond Toy 05 Mar '13

05 Mar '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 3840e31732c81220de96788dd3d5ea71d1bd2bca (commit) via d8403893f7a9710112699c41b37deb7c6b87cc61 (commit) from 139d0c88a0d9de0f117e76b0d4cffff188210974 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 3840e31732c81220de96788dd3d5ea71d1bd2bca Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Mar 4 22:08:38 2013 -0800 Note ticket #74 fixed, and move a Change item to a Bugfix item. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index fb9f3a5..dd56d03 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -41,9 +41,6 @@ New in this release: derivation.) * :I486 and :PENTIUM (Always assume we're running on at least a Pentium.) - * A serious error in FILE-POSITION on streams using an encoding - other than latin1 has been fixed. See ticket #74. - * ANSI compliance fixes: * Attempts to modify the standard readtable or the standard pprint dispatch table will now signal a continuable error. @@ -52,6 +49,9 @@ New in this release: * REPLACE and friends on strings were limited to strings less than the maximum possible size. This has been fixed so strings of any supported length can be handled. (See ticket #66 and #68.) + * A serious error in FILE-POSITION on streams using an encoding + other than latin1 has been fixed. See ticket #74. + * Trac Tickets: * Ticket #52 reopened. @@ -64,6 +64,7 @@ New in this release: * Ticket #71 fixed. * Ticket #72 fixed. * Ticket #73 fixed. + * Ticket #74 fixed. * Other changes: * -8 option for build-all.sh is deprecated since we don't commit d8403893f7a9710112699c41b37deb7c6b87cc61 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Mar 4 22:07:06 2013 -0800 Oops. Remove debugging echo. diff --git a/bin/make-dist.sh b/bin/make-dist.sh index c79a06a..91dcc06 100755 --- a/bin/make-dist.sh +++ b/bin/make-dist.sh @@ -104,7 +104,6 @@ do esac done -echo $@ shift `expr $OPTIND - 1` # Figure out the architecture and OS ----------------------------------------------------------------------- Summary of changes: bin/make-dist.sh | 1 - src/general-info/release-20e.txt | 7 ++++--- 2 files changed, 4 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp annotated tag snapshot-2013-03 created. snapshot-2013-03
by Raymond Toy 05 Mar '13

05 Mar '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The annotated tag, snapshot-2013-03 has been created at be8fbfa96087d1ba48a8ca41d4fd5e9af3606379 (tag) tagging 139d0c88a0d9de0f117e76b0d4cffff188210974 (commit) replaces snapshot-2013-02 tagged by Raymond Toy on Sun Mar 3 18:27:22 2013 -0800 - Log ----------------------------------------------------------------- Snapshot 2013-03 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.11 (Darwin) iEYEABECAAYFAlE0BpMACgkQJ5IjUmgZO7KHsgCgyNsoc6OYjFnjP5Ie8nJ9V/W3 P+IAoLzRZIfUzKNaL8gKnnXUr4Kujadr =PpQi -----END PGP SIGNATURE----- Raymond Toy (25): Make the version arg optional. Update. Update to asdf 2.29. Optimize TRUNCATE when the second arg is a compile-time constant. Add some fixnum contants for x86, as was done for sparc. Optimize shifts that are known to be right shifts. Forgot to update this when x86/parms.lisp was updated with new Remove old fast-truncate-c vops; the new ones work. Remove :COMMON from *FEATURES* Remove :conservative-float-type from *features* and update code Clean up one- and two-arg-derive-type. Update from commit logs. Remove the :i486 feature. Remove :PENTIUM from *FEATURES* Oops. Use the pentium version of the log1p vop and remove the other Remove old stuff. Update from commit logs. Update to asdf 2.30. Update asdf version. Fix ticket:73 Signal an error if the readtable case of the standard readtable is Update from commit logs. Fix ticket:74 Ignore some TeX output files. Update from logs and cleanup some of the text. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-02-25-g139d0c8
by Raymond Toy 04 Mar '13

04 Mar '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 139d0c88a0d9de0f117e76b0d4cffff188210974 (commit) from 617d35aa9517394df035ea52811ecf89ca1a28fe (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 139d0c88a0d9de0f117e76b0d4cffff188210974 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Mar 3 18:21:37 2013 -0800 Update from logs and cleanup some of the text. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index f85b51d..fb9f3a5 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -41,10 +41,12 @@ New in this release: derivation.) * :I486 and :PENTIUM (Always assume we're running on at least a Pentium.) - * Attempts to modify the standard readtable or the standard pprint - dispatch table will now signal a continuable error. + * A serious error in FILE-POSITION on streams using an encoding + other than latin1 has been fixed. See ticket #74. * ANSI compliance fixes: + * Attempts to modify the standard readtable or the standard pprint + dispatch table will now signal a continuable error. * Bugfixes: * REPLACE and friends on strings were limited to strings less than ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20e.txt | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-02-24-g617d35a
by Raymond Toy 04 Mar '13

04 Mar '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 617d35aa9517394df035ea52811ecf89ca1a28fe (commit) from e8f64b3f83455a82edad394c472481fadde6ccb5 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 617d35aa9517394df035ea52811ecf89ca1a28fe Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Mar 3 18:20:52 2013 -0800 Ignore some TeX output files. diff --git a/src/docs/internals/.gitignore b/src/docs/internals/.gitignore new file mode 100644 index 0000000..3dc4f08 --- /dev/null +++ b/src/docs/internals/.gitignore @@ -0,0 +1,10 @@ +/architecture.aux +/compiler.aux +/design.aux +/design.log +/design.out +/design.pdf +/design.toc +/glossary.aux +/retargeting.aux +/run-time.aux ----------------------------------------------------------------------- Summary of changes: src/docs/internals/.gitignore | 10 ++++++++++ 1 files changed, 10 insertions(+), 0 deletions(-) create mode 100644 src/docs/internals/.gitignore hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-02-23-ge8f64b3
by Raymond Toy 27 Feb '13

27 Feb '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via e8f64b3f83455a82edad394c472481fadde6ccb5 (commit) from fc60a7b508bb1e3fdc6d453f5b92a7f276331d2e (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit e8f64b3f83455a82edad394c472481fadde6ccb5 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Feb 26 20:44:18 2013 -0800 Fix ticket:74 When accounting for the octets left in the in-buffer that we haven't read (or converted to characters), we were subtracting the index from the total in-buffer length. This is wrong if the file is less than the total in-buffer length. We should have subtracted from the actual number of octets in the in-buffer. diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index e41b331..7fcd0bc 100644 --- a/src/code/fd-stream.lisp +++ b/src/code/fd-stream.lisp @@ -1756,8 +1756,9 @@ #+nil (progn (format t "in-buffer-length = ~D~%" in-buffer-length) + (format t "in-length = ~D~%" (fd-stream-in-length stream)) (format t "fd-stream-in-index = ~D~%" (fd-stream-in-index stream))) - (decf posn (- in-buffer-length + (decf posn (- (fd-stream-in-length stream) (fd-stream-in-index stream)))) #+nil (format t "fd-stream-unread = ~S~%" (fd-stream-unread stream)) ----------------------------------------------------------------------- Summary of changes: src/code/fd-stream.lisp | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-02-22-gfc60a7b
by Raymond Toy 24 Feb '13

24 Feb '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via fc60a7b508bb1e3fdc6d453f5b92a7f276331d2e (commit) from 10859380420e467d96a57a95f267c46320a6f57c (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit fc60a7b508bb1e3fdc6d453f5b92a7f276331d2e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Feb 23 20:44:45 2013 -0800 Update from commit logs. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index 41e0db9..f85b51d 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -41,11 +41,13 @@ New in this release: derivation.) * :I486 and :PENTIUM (Always assume we're running on at least a Pentium.) + * Attempts to modify the standard readtable or the standard pprint + dispatch table will now signal a continuable error. * ANSI compliance fixes: * Bugfixes: - * REPLACE and friends on strings was limited to strings less than + * REPLACE and friends on strings were limited to strings less than the maximum possible size. This has been fixed so strings of any supported length can be handled. (See ticket #66 and #68.) @@ -59,6 +61,7 @@ New in this release: * Ticket #65 fixed. * Ticket #71 fixed. * Ticket #72 fixed. + * Ticket #73 fixed. * Other changes: * -8 option for build-all.sh is deprecated since we don't ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20e.txt | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-02-21-g1085938
by Raymond Toy 24 Feb '13

24 Feb '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 10859380420e467d96a57a95f267c46320a6f57c (commit) from 00844093cfc536936a1797bfbfa910ab1e4db7fe (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 10859380420e467d96a57a95f267c46320a6f57c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Feb 23 20:44:23 2013 -0800 Signal an error if the readtable case of the standard readtable is changed. * Rename the slot to %READTABLE-CASE (from READTABLE-CASE). * Add READTABLE-CASE and (SETF READTABLE-CASE) functions, as required. * Check for the standard readtable in (SETF READTABLE-CASE). diff --git a/src/code/reader.lisp b/src/code/reader.lisp index 3b4d06b..4eabc4e 100644 --- a/src/code/reader.lisp +++ b/src/code/reader.lisp @@ -144,7 +144,7 @@ ;; vectors of CHAR-CODE-LIMIT functions, for use in defining dispatching ;; macros (like #-macro). (dispatch-tables () :type list) - (readtable-case :upcase :type (member :upcase :downcase :preserve :invert)) + (%readtable-case :upcase :type (member :upcase :downcase :preserve :invert)) ;; ;; The CHARACTER-ATTRIBUTE-HASH-TABLE handles the case of char codes ;; above ATTRIBUTE-TABLE-LIMIT, since we expect these to be @@ -466,6 +466,13 @@ (cerror "Modify it anyway." 'kernel:standard-readtable-modified-error :operation operation))) +(defun readtable-case (table) + (%readtable-case table)) + +(defun (setf readtable-case) (new-case table) + (assert-not-standard-readtable table '(setf readtable-case)) + (setf (%readtable-case table) new-case)) + (defun copy-readtable (&optional (from-readtable *readtable*) to-readtable) "A copy is made of from-readtable and place into to-readtable." (assert-not-standard-readtable to-readtable 'copy-readtable) ----------------------------------------------------------------------- Summary of changes: src/code/reader.lisp | 9 ++++++++- 1 files changed, 8 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-02-20-g0084409
by Raymond Toy 24 Feb '13

24 Feb '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 00844093cfc536936a1797bfbfa910ab1e4db7fe (commit) from f5250810f8507020e2479dd1ecb600a6fe710f78 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 00844093cfc536936a1797bfbfa910ab1e4db7fe Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Feb 23 18:14:18 2013 -0800 Fix ticket:73 error.lisp:: * Create two new conditions, one for modifying the readtable and one for the pprint dispatch table. exports.lisp:: * Export the two new conditions. pprint.lisp:: * Add check to SET-PPRINT-DISPATCH to disallow modifying the standard pprint dispatch table. * Allow PPRINT-INIT to modify the standard pprint dispatch table. print.lisp:: * In WITH-STANDARD-IO-SYNTAX, don't copy a new dispatch table; bind *print-pprint-dispatch* to the standard table. reader.lisp:: * Add check to disallow modifying the standard readtable. * Allow INIT-STD-LISP-READTABLE to modify the standard readtable. diff --git a/src/code/error.lisp b/src/code/error.lisp index 2678d22..5b72100 100644 --- a/src/code/error.lisp +++ b/src/code/error.lisp @@ -1203,6 +1203,27 @@ `(handler-case (progn ,@forms) (error (condition) (values nil condition)))) + +;;;; Reader + +(define-condition standard-readtable-modified-error (reference-condition error) + ((operation :initarg :operation + :reader standard-readtable-modified-operation)) + (:report (lambda (condition stream) + (format stream "~S would modify the standard readtable." + (standard-readtable-modified-operation condition)))) + (:default-initargs :references `((:ansi-cl :section (2 1 1 2)) + (:ansi-cl :glossary "standard readtable")))) + +;;;; Pprint dispatch + +(define-condition standard-pprint-dispatch-table-modified-error (reference-condition error) + ((operation :initarg :operation + :reader standard-pprint-dispatch-table-modified-operation)) + (:report (lambda (condition stream) + (format stream "~S would modify the standard pprint dispatch table." + (standard-pprint-dispatch-table-modified-operation condition)))) + (:default-initargs :references `((:ansi-cl :glossary "standard pprint dispatch table")))) ;;;; Restart definitions. @@ -1249,3 +1270,4 @@ (define-nil-returning-restart use-value (value) "Transfer control and value to a restart named use-value, returning nil if none exists.") + diff --git a/src/code/exports.lisp b/src/code/exports.lisp index 3e9631b..2c3e0ff 100644 --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -2321,7 +2321,9 @@ "%COMPLEX-SINGLE-FLOAT" "%COMPLEX-DOUBLE-FLOAT" - "%COMPLEX-DOUBLE-DOUBLE-FLOAT") + "%COMPLEX-DOUBLE-DOUBLE-FLOAT" + "STANDARD-READTABLE-MODIFIED-ERROR" + "STANDARD-PPRINT-DISPATCH-TABLE-MODIFIED-ERROR") #+heap-overflow-check (:export "DYNAMIC-SPACE-OVERFLOW-WARNING-HIT" "DYNAMIC-SPACE-OVERFLOW-ERROR-HIT" diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp index d1f570f..15eafc0 100644 --- a/src/code/pprint.lisp +++ b/src/code/pprint.lisp @@ -1223,11 +1223,17 @@ When annotations are present, invoke them at the right positions." (output-ugly-object object stream)) nil)))) +(defun assert-not-standard-pprint-dispatch-table (pprint-dispatch operation) + (when (eq pprint-dispatch *initial-pprint-dispatch*) + (cerror "Modify it anyway." 'standard-pprint-dispatch-table-modified-error + :operation operation))) + (defun set-pprint-dispatch (type function &optional (priority 0) (table *print-pprint-dispatch*)) (declare (type (or null symbol function) function) (type real priority) (type pprint-dispatch-table table)) + (assert-not-standard-pprint-dispatch-table table 'set-pprint-dispatch) (if function (if (cons-type-specifier-p type) (setf (gethash (second (second type)) @@ -1952,18 +1958,25 @@ When annotations are present, invoke them at the right positions." (setf *initial-pprint-dispatch* (make-pprint-dispatch-table)) (let ((*print-pprint-dispatch* *initial-pprint-dispatch*) (*building-initial-table* t)) - ;; Printers for regular types. - (set-pprint-dispatch 'array #'pprint-array) - (set-pprint-dispatch '(cons (and symbol (satisfies fboundp))) - #'pprint-function-call -1) - (set-pprint-dispatch 'cons #'pprint-fill -2) - ;; Cons cells with interesting things for the car. - (dolist (magic-form *magic-forms*) - (set-pprint-dispatch `(cons (eql ,(first magic-form))) - (symbol-function (second magic-form)))) - ;; Other pretty-print init forms. - (lisp::backq-pp-init) - (loop-pp-init)) + (handler-bind + ((standard-pprint-dispatch-table-modified-error + (lambda (c) + (declare (ignore c)) + ;; Of course, we want to be able to modify the standard + ;; pprint dispatch table here! + (invoke-restart 'kernel::continue)))) + ;; Printers for regular types. + (set-pprint-dispatch 'array #'pprint-array) + (set-pprint-dispatch '(cons (and symbol (satisfies fboundp))) + #'pprint-function-call -1) + (set-pprint-dispatch 'cons #'pprint-fill -2) + ;; Cons cells with interesting things for the car. + (dolist (magic-form *magic-forms*) + (set-pprint-dispatch `(cons (eql ,(first magic-form))) + (symbol-function (second magic-form)))) + ;; Other pretty-print init forms. + (lisp::backq-pp-init) + (loop-pp-init))) (setf *print-pprint-dispatch* (copy-pprint-dispatch nil)) (setf *pretty-printer* #'output-pretty-object) diff --git a/src/code/print.lisp b/src/code/print.lisp index 3f162d7..aae2e0b 100644 --- a/src/code/print.lisp +++ b/src/code/print.lisp @@ -115,7 +115,7 @@ (*print-level* nil) (*print-lines* nil) (*print-miser-width* nil) - (*print-pprint-dispatch* (copy-pprint-dispatch nil)) + (*print-pprint-dispatch* pp::*initial-pprint-dispatch*) (*print-pretty* nil) (*print-radix* nil) (*print-readably* t) diff --git a/src/code/reader.lisp b/src/code/reader.lisp index de666d1..3b4d06b 100644 --- a/src/code/reader.lisp +++ b/src/code/reader.lisp @@ -461,8 +461,14 @@ ;;;; Readtable operations. +(defun assert-not-standard-readtable (readtable operation) + (when (eq readtable std-lisp-readtable) + (cerror "Modify it anyway." 'kernel:standard-readtable-modified-error + :operation operation))) + (defun copy-readtable (&optional (from-readtable *readtable*) to-readtable) "A copy is made of from-readtable and place into to-readtable." + (assert-not-standard-readtable to-readtable 'copy-readtable) (let ((from-readtable (or from-readtable std-lisp-readtable)) (to-readtable (or to-readtable (make-readtable)))) (flet ((copy-hash-table (to from) @@ -495,6 +501,7 @@ "Causes the syntax of to-char to be the same as from-char in the optional readtable (defaults to the current readtable). The from-table defaults the standard lisp readtable by being nil." + (assert-not-standard-readtable to-readtable 'set-syntax-from-char) (let ((from-readtable (or from-readtable std-lisp-readtable))) ;;copy from-char entries to to-char entries, but make sure that if ;;from char is a constituent you don't copy non-movable secondary @@ -538,10 +545,12 @@ make the macro character non-terminating. The optional readtable argument defaults to the current readtable. Set-macro-character returns T." - (if non-terminatingp - (set-cat-entry char (get-secondary-attribute char) rt) - (set-cat-entry char #.terminating-macro rt)) - (set-cmt-entry char function rt) + (let ((designated-readtable (or rt std-lisp-readtable))) + (assert-not-standard-readtable designated-readtable 'set-macro-character) + (if non-terminatingp + (set-cat-entry char (get-secondary-attribute char) designated-readtable) + (set-cat-entry char #.terminating-macro designated-readtable)) + (set-cmt-entry char function designated-readtable)) T) (defun get-macro-character (char &optional (rt *readtable*)) @@ -595,46 +604,54 @@ (setq std-lisp-readtable (make-readtable)) ;;all characters default to "constituent" in make-readtable ;;*** un-constituent-ize some of these *** - (let ((*readtable* std-lisp-readtable)) - (set-cat-entry #\tab #.whitespace) - (set-cat-entry #\linefeed #.whitespace) - (set-cat-entry #\space #.whitespace) - (set-cat-entry #\page #.whitespace) - (set-cat-entry #\return #.whitespace) - (set-cat-entry #\\ #.escape) - (set-cat-entry #\| #.multiple-escape) - (set-cmt-entry #\\ #'read-token) - (set-cmt-entry #\: #'read-token) - (set-cmt-entry #\| #'read-token) - ;;macro definitions - (set-macro-character #\" #'read-string) - ;;* # macro - (set-macro-character #\' #'read-quote) - (set-macro-character #$ #'read-list) - (set-macro-character #$ #'read-right-paren) - (set-macro-character #\; #'read-comment) - ;;* backquote - ;;all constituents - (do ((ichar 0 (1+ ichar)) - (len #+unicode-bootstrap #o200 - #-unicode-bootstrap char-code-limit)) - ((= ichar len)) - (let ((char (code-char ichar))) - #-unicode - (when (constituentp char std-lisp-readtable) - (set-cat-entry char (get-secondary-attribute char)) - (set-cmt-entry char #'read-token)) - #+unicode - (cond ((constituentp char std-lisp-readtable) - (set-cat-entry char (get-secondary-attribute char)) - (when (< ichar attribute-table-limit) - ;; The hashtable default in get-cmt-entry returns - ;; #'read-token, so don't need to set it here. - (set-cmt-entry char #'read-token))) - ((>= ichar attribute-table-limit) - ;; A non-constituent character that would be stored in - ;; the hash table gets #'undefined-macro-char. - (set-cmt-entry char #'undefined-macro-char))))))) + (handler-bind + ((standard-readtable-modified-error + (lambda (c) + (declare (ignore c)) + ;; Of course, we want to be able to modify the standard + ;; readtable here! + (invoke-restart 'kernel::continue)))) + (let ((*readtable* std-lisp-readtable) + (*assert-not-standard-readtable* nil)) + (set-cat-entry #\tab #.whitespace) + (set-cat-entry #\linefeed #.whitespace) + (set-cat-entry #\space #.whitespace) + (set-cat-entry #\page #.whitespace) + (set-cat-entry #\return #.whitespace) + (set-cat-entry #\\ #.escape) + (set-cat-entry #\| #.multiple-escape) + (set-cmt-entry #\\ #'read-token) + (set-cmt-entry #\: #'read-token) + (set-cmt-entry #\| #'read-token) + ;;macro definitions + (set-macro-character #\" #'read-string) + ;;* # macro + (set-macro-character #\' #'read-quote) + (set-macro-character #$ #'read-list) + (set-macro-character #$ #'read-right-paren) + (set-macro-character #\; #'read-comment) + ;;* backquote + ;;all constituents + (do ((ichar 0 (1+ ichar)) + (len #+unicode-bootstrap #o200 + #-unicode-bootstrap char-code-limit)) + ((= ichar len)) + (let ((char (code-char ichar))) + #-unicode + (when (constituentp char std-lisp-readtable) + (set-cat-entry char (get-secondary-attribute char)) + (set-cmt-entry char #'read-token)) + #+unicode + (cond ((constituentp char std-lisp-readtable) + (set-cat-entry char (get-secondary-attribute char)) + (when (< ichar attribute-table-limit) + ;; The hashtable default in get-cmt-entry returns + ;; #'read-token, so don't need to set it here. + (set-cmt-entry char #'read-token))) + ((>= ichar attribute-table-limit) + ;; A non-constituent character that would be stored in + ;; the hash table gets #'undefined-macro-char. + (set-cmt-entry char #'undefined-macro-char)))))))) ----------------------------------------------------------------------- Summary of changes: src/code/error.lisp | 22 ++++++++++ src/code/exports.lisp | 4 +- src/code/pprint.lisp | 37 ++++++++++++------ src/code/print.lisp | 2 +- src/code/reader.lisp | 105 ++++++++++++++++++++++++++++-------------------- 5 files changed, 112 insertions(+), 58 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-02-19-gf525081
by Raymond Toy 23 Feb '13

23 Feb '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via f5250810f8507020e2479dd1ecb600a6fe710f78 (commit) via 748f06c2b35fda55e5831d7df0e6a7f6a48f5086 (commit) from aabd62968d3137fb65237524ebfca3d6f27e90b0 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit f5250810f8507020e2479dd1ecb600a6fe710f78 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Feb 23 08:42:13 2013 -0800 Update asdf version. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index 02953da..41e0db9 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -23,7 +23,7 @@ New in this release: * Feature enhancements * Changes - * ASDF2 updated to version 2.29. + * ASDF2 updated to version 2.30. * DEFINE-COMPILER-MACRO now has source-location information for the macro definition. * :ALIEN-CALLBACK added to *FEATURES* for platforms that support commit 748f06c2b35fda55e5831d7df0e6a7f6a48f5086 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Feb 23 08:41:33 2013 -0800 Update to asdf 2.30. diff --git a/src/contrib/asdf/asdf.lisp b/src/contrib/asdf/asdf.lisp index c229b07..bdd55ad 100644 --- a/src/contrib/asdf/asdf.lisp +++ b/src/contrib/asdf/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- -;;; This is ASDF 2.29: Another System Definition Facility. +;;; This is ASDF 2.30: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel(a)common-lisp.net>. @@ -54,7 +54,7 @@ (declaim (optimize (speed 1) (safety 3) (debug 3))) (setf ext:*gc-verbose* nil)) -#+(or abcl clisp cmu ecl xcl) +#+(or abcl clisp clozure cmu ecl xcl) (eval-when (:load-toplevel :compile-toplevel :execute) (unless (member :asdf3 *features*) (let* ((existing-version @@ -71,7 +71,8 @@ (existing-version-number (and existing-version (read-from-string existing-major-minor))) (away (format nil "~A-~A" :asdf existing-version))) (when (and existing-version (< existing-version-number - #+abcl 2.25 #+clisp 2.27 #+cmu 2.018 #+ecl 2.21 #+xcl 2.27)) + #+abcl 2.25 #+clisp 2.27 #+clozure 2.27 + #+cmu 2.018 #+ecl 2.21 #+xcl 2.27)) (rename-package :asdf away) (when *load-verbose* (format t "; Renamed old ~A package away to ~A~%" :asdf away)))))) @@ -991,7 +992,6 @@ or when loading the package is optional." #:call-function #:call-functions #:register-hook-function #:match-condition-p #:match-any-condition-p ;; conditions #:call-with-muffled-conditions #:with-muffled-conditions - #:load-string #:load-stream #:lexicographic< #:lexicographic<= #:parse-version #:unparse-version #:version< #:version<= #:version-compatible-p)) ;; version (in-package :asdf/utility) @@ -1362,9 +1362,6 @@ with later being determined by a lexicographical comparison of minor numbers." ;;; Condition control (with-upgradability () - (defvar *uninteresting-conditions* nil - "Uninteresting conditions, as per MATCH-CONDITION-P") - (defparameter +simple-condition-format-control-slot+ #+abcl 'system::format-control #+allegro 'excl::format-control @@ -1401,8 +1398,8 @@ or a string describing the format-control of a simple-condition." (muffle-warning c))))) (funcall thunk))) - (defmacro with-muffled-uninteresting-conditions ((conditions) &body body) - `(call-with-muffled-uninteresting-conditions #'(lambda () ,@body) ,conditions))) + (defmacro with-muffled-conditions ((conditions) &body body) + `(call-with-muffled-conditions #'(lambda () ,@body) ,conditions))) ;;;; --------------------------------------------------------------------------- @@ -1596,7 +1593,7 @@ then returning the non-empty string value of the variable" (with-upgradability () (defun hostname () ;; Note: untested on RMCL - #+(or abcl clozure cmucl ecl genera lispworks mcl mkcl sbcl scl xcl) (machine-instance) + #+(or abcl clozure cmu ecl genera lispworks mcl mkcl sbcl scl xcl) (machine-instance) #+cormanlisp "localhost" ;; is there a better way? Does it matter? #+allegro (symbol-call :excl.osi :gethostname) #+clisp (first (split-string (machine-instance) :separator " ")) @@ -1657,75 +1654,74 @@ then returning the non-empty string value of the variable" ;;;; Jesse Hager: The Windows Shortcut File Format. ;;;; http://www.wotsit.org/list.asp?fc=13 -(with-upgradability () - #-(or clisp genera) ; CLISP doesn't need it, and READ-SEQUENCE annoys old Genera. - (progn - (defparameter *link-initial-dword* 76) - (defparameter *link-guid* #(1 20 2 0 0 0 0 0 192 0 0 0 0 0 0 70)) - - (defun read-null-terminated-string (s) - (with-output-to-string (out) - (loop :for code = (read-byte s) - :until (zerop code) - :do (write-char (code-char code) out)))) - - (defun read-little-endian (s &optional (bytes 4)) - (loop :for i :from 0 :below bytes - :sum (ash (read-byte s) (* 8 i)))) - - (defun parse-file-location-info (s) - (let ((start (file-position s)) - (total-length (read-little-endian s)) - (end-of-header (read-little-endian s)) - (fli-flags (read-little-endian s)) - (local-volume-offset (read-little-endian s)) - (local-offset (read-little-endian s)) - (network-volume-offset (read-little-endian s)) - (remaining-offset (read-little-endian s))) - (declare (ignore total-length end-of-header local-volume-offset)) - (unless (zerop fli-flags) - (cond - ((logbitp 0 fli-flags) - (file-position s (+ start local-offset))) - ((logbitp 1 fli-flags) - (file-position s (+ start - network-volume-offset - #x14)))) - (strcat (read-null-terminated-string s) - (progn - (file-position s (+ start remaining-offset)) - (read-null-terminated-string s)))))) - - (defun parse-windows-shortcut (pathname) - (with-open-file (s pathname :element-type '(unsigned-byte 8)) - (handler-case - (when (and (= (read-little-endian s) *link-initial-dword*) - (let ((header (make-array (length *link-guid*)))) - (read-sequence header s) - (equalp header *link-guid*))) - (let ((flags (read-little-endian s))) - (file-position s 76) ;skip rest of header - (when (logbitp 0 flags) - ;; skip shell item id list - (let ((length (read-little-endian s 2))) - (file-position s (+ length (file-position s))))) - (cond - ((logbitp 1 flags) - (parse-file-location-info s)) - (t - (when (logbitp 2 flags) - ;; skip description string - (let ((length (read-little-endian s 2))) - (file-position s (+ length (file-position s))))) - (when (logbitp 3 flags) - ;; finally, our pathname - (let* ((length (read-little-endian s 2)) - (buffer (make-array length))) - (read-sequence buffer s) - (map 'string #'code-char buffer))))))) - (end-of-file (c) - (declare (ignore c)) - nil)))))) +#-(or clisp genera) ; CLISP doesn't need it, and READ-SEQUENCE annoys old Genera. +(with-upgradability () + (defparameter *link-initial-dword* 76) + (defparameter *link-guid* #(1 20 2 0 0 0 0 0 192 0 0 0 0 0 0 70)) + + (defun read-null-terminated-string (s) + (with-output-to-string (out) + (loop :for code = (read-byte s) + :until (zerop code) + :do (write-char (code-char code) out)))) + + (defun read-little-endian (s &optional (bytes 4)) + (loop :for i :from 0 :below bytes + :sum (ash (read-byte s) (* 8 i)))) + + (defun parse-file-location-info (s) + (let ((start (file-position s)) + (total-length (read-little-endian s)) + (end-of-header (read-little-endian s)) + (fli-flags (read-little-endian s)) + (local-volume-offset (read-little-endian s)) + (local-offset (read-little-endian s)) + (network-volume-offset (read-little-endian s)) + (remaining-offset (read-little-endian s))) + (declare (ignore total-length end-of-header local-volume-offset)) + (unless (zerop fli-flags) + (cond + ((logbitp 0 fli-flags) + (file-position s (+ start local-offset))) + ((logbitp 1 fli-flags) + (file-position s (+ start + network-volume-offset + #x14)))) + (strcat (read-null-terminated-string s) + (progn + (file-position s (+ start remaining-offset)) + (read-null-terminated-string s)))))) + + (defun parse-windows-shortcut (pathname) + (with-open-file (s pathname :element-type '(unsigned-byte 8)) + (handler-case + (when (and (= (read-little-endian s) *link-initial-dword*) + (let ((header (make-array (length *link-guid*)))) + (read-sequence header s) + (equalp header *link-guid*))) + (let ((flags (read-little-endian s))) + (file-position s 76) ;skip rest of header + (when (logbitp 0 flags) + ;; skip shell item id list + (let ((length (read-little-endian s 2))) + (file-position s (+ length (file-position s))))) + (cond + ((logbitp 1 flags) + (parse-file-location-info s)) + (t + (when (logbitp 2 flags) + ;; skip description string + (let ((length (read-little-endian s 2))) + (file-position s (+ length (file-position s))))) + (when (logbitp 3 flags) + ;; finally, our pathname + (let* ((length (read-little-endian s 2)) + (buffer (make-array length))) + (read-sequence buffer s) + (map 'string #'code-char buffer))))))) + (end-of-file (c) + (declare (ignore c)) + nil))))) ;;;; ------------------------------------------------------------------------- @@ -2484,47 +2480,48 @@ or the original (parsed) pathname if it is false (the default)." (null nil) (string (probe-file* (parse-namestring p) :truename truename)) (pathname - (handler-case - (or - #+allegro - (probe-file p :follow-symlinks truename) - #-(or allegro clisp gcl2.6) - (if truename - (probe-file p) - (and (not (wild-pathname-p p)) + (and (not (wild-pathname-p p)) + (handler-case + (or + #+allegro + (probe-file p :follow-symlinks truename) + #-(or allegro clisp gcl2.6) + (if truename + (probe-file p) (ignore-errors (let ((pp (translate-logical-pathname p))) - #+(or cmu scl) (unix:unix-stat (ext:unix-namestring pp)) - #+(and lispworks unix) (system:get-file-stat pp) - #+sbcl (sb-unix:unix-stat (sb-ext:native-namestring pp)) - #-(or cmu (and lispworks unix) sbcl scl) (file-write-date pp))) - p)) - #+(or clisp gcl2.6) - #.(flet ((probe (probe) - `(let ((foundtrue ,probe)) - (cond - (truename foundtrue) - (foundtrue p))))) - #+gcl2.6 - (probe '(or (probe-file p) - (and (directory-pathname-p p) - (ignore-errors - (ensure-directory-pathname - (truename* (subpathname - (ensure-directory-pathname p) "."))))))) - #+clisp - (let* ((fs (find-symbol* '#:file-stat :posix nil)) - (pp (find-symbol* '#:probe-pathname :ext nil)) - (resolve (if pp - `(ignore-errors (,pp p)) - '(or (truename* p) - (truename* (ignore-errors (ensure-directory-pathname p))))))) - (if fs - `(if truename - ,resolve - (and (ignore-errors (,fs p)) p)) - (probe resolve))))) - (file-error () nil)))))) + (and + #+(or cmu scl) (unix:unix-stat (ext:unix-namestring pp)) + #+(and lispworks unix) (system:get-file-stat pp) + #+sbcl (sb-unix:unix-stat (sb-ext:native-namestring pp)) + #-(or cmu (and lispworks unix) sbcl scl) (file-write-date pp) + p)))) + #+(or clisp gcl2.6) + #.(flet ((probe (probe) + `(let ((foundtrue ,probe)) + (cond + (truename foundtrue) + (foundtrue p))))) + #+gcl2.6 + (probe '(or (probe-file p) + (and (directory-pathname-p p) + (ignore-errors + (ensure-directory-pathname + (truename* (subpathname + (ensure-directory-pathname p) "."))))))) + #+clisp + (let* ((fs (find-symbol* '#:file-stat :posix nil)) + (pp (find-symbol* '#:probe-pathname :ext nil)) + (resolve (if pp + `(ignore-errors (,pp p)) + '(or (truename* p) + (truename* (ignore-errors (ensure-directory-pathname p))))))) + (if fs + `(if truename + ,resolve + (and (ignore-errors (,fs p)) p)) + (probe resolve))))) + (file-error () nil))))))) (defun directory* (pathname-spec &rest keys &key &allow-other-keys) (apply 'directory pathname-spec @@ -2858,7 +2855,8 @@ TRUENAMIZE uses TRUENAMIZE to resolve as many symlinks as possible." (with-upgradability () (defun ensure-all-directories-exist (pathnames) (dolist (pathname pathnames) - (ensure-directories-exist (translate-logical-pathname pathname)))) + (when pathname + (ensure-directories-exist (translate-logical-pathname pathname))))) (defun rename-file-overwriting-target (source target) #+clisp ;; But for a bug in CLISP 2.48, we should use :if-exists :overwrite and be atomic @@ -2887,7 +2885,6 @@ TRUENAMIZE uses TRUENAMIZE to resolve as many symlinks as possible." #:with-input-file #:call-with-input-file #:finish-outputs #:format! #:safe-format! #:copy-stream-to-stream #:concatenate-files - #:copy-stream-to-stream-line-by-line #:slurp-stream-string #:slurp-stream-lines #:slurp-stream-line #:slurp-stream-forms #:slurp-stream-form #:read-file-string #:read-file-lines #:read-file-forms #:read-file-form #:safe-read-file-form @@ -3335,7 +3332,7 @@ For the latter case, we ought pick random suffix and atomically open it." #:*image-dumped-p* #:raw-command-line-arguments #:*command-line-arguments* #:command-line-arguments #:raw-command-line-arguments #:setup-command-line-arguments #:*lisp-interaction* - #:fatal-conditions #:fatal-condition-p #:handle-fatal-condition + #:*fatal-conditions* #:fatal-condition-p #:handle-fatal-condition #:call-with-fatal-condition-handler #:with-fatal-condition-handler #:*image-restore-hook* #:*image-prelude* #:*image-entry-point* #:*image-postlude* #:*image-dump-hook* @@ -3343,7 +3340,7 @@ For the latter case, we ought pick random suffix and atomically open it." #:shell-boolean-exit #:register-image-restore-hook #:register-image-dump-hook #:call-image-restore-hook #:call-image-dump-hook - #:initialize-asdf-utilities #:restore-image #:dump-image #:create-image + #:restore-image #:dump-image #:create-image )) (in-package :asdf/image) @@ -3436,7 +3433,7 @@ This is designed to abstract away the implementation specific quit forms." (let ((*debug-io* stream)) (ccl:print-call-history :count count :start-frame-number 1) (finish-output stream)) - #+(or cmucl scl) + #+(or cmu scl) (let ((debug:*debug-print-level* *print-level*) (debug:*debug-print-length* *print-length*)) (debug:backtrace most-positive-fixnum stream)) @@ -4234,12 +4231,15 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when (etypecase sexp (symbol (reify-symbol sexp)) ((or number character simple-string pathname) sexp) - (cons (cons (reify-simple-sexp (car sexp)) (reify-simple-sexp (cdr sexp)))))) + (cons (cons (reify-simple-sexp (car sexp)) (reify-simple-sexp (cdr sexp)))) + (simple-vector (vector (mapcar 'reify-simple-sexp (coerce sexp 'list)))))) + (defun unreify-simple-sexp (sexp) (etypecase sexp ((or symbol number character simple-string pathname) sexp) (cons (cons (unreify-simple-sexp (car sexp)) (unreify-simple-sexp (cdr sexp)))) - ((simple-vector 2) (unreify-symbol sexp)))) + ((simple-vector 2) (unreify-symbol sexp)) + ((simple-vector 1) (coerce (mapcar 'unreify-simple-sexp (aref sexp 0)) 'vector)))) #+clozure (progn @@ -4256,16 +4256,14 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when (ccl::make-source-note :filename filename :start-pos start-pos :end-pos end-pos :source (unreify-source-note source))))) (defun reify-function-name (function-name) - (reify-simple-sexp - (if-let (setfed (gethash function-name ccl::%setf-function-name-inverses%)) - `(setf ,setfed) - function-name))) + (if-let (setfed (gethash function-name ccl::%setf-function-name-inverses%)) + `(setf ,setfed) + function-name)) (defun unreify-function-name (function-name) - (let ((name (unreify-simple-sexp function-name))) - (if (and (consp name) (eq (first name) 'setf)) - (let ((setfed (second name))) - (gethash setfed ccl::%setf-function-names%)) - name))) + (if (and (consp function-name) (eq (first function-name) 'setf)) + (let ((setfed (second function-name))) + (gethash setfed ccl::%setf-function-names%)) + function-name)) (defun reify-deferred-warning (deferred-warning) (with-accessors ((warning-type ccl::compiler-warning-warning-type) (args ccl::compiler-warning-args) @@ -4274,7 +4272,7 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when (list :warning-type warning-type :function-name (reify-function-name function-name) :source-note (reify-source-note source-note) :args (destructuring-bind (fun . formals) args - (cons (reify-function-name fun) (reify-simple-sexp formals)))))) + (cons (reify-function-name fun) formals))))) (defun unreify-deferred-warning (reified-deferred-warning) (destructuring-bind (&key warning-type function-name source-note args) reified-deferred-warning @@ -4284,7 +4282,7 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when :source-note (unreify-source-note source-note) :warning-type warning-type :args (destructuring-bind (fun . formals) args - (cons (unreify-function-name fun) (unreify-simple-sexp formals))))))) + (cons (unreify-function-name fun) formals)))))) #+(or cmu scl) (defun reify-undefined-warning (warning) ;; Extracting undefined-warnings from the compilation-unit @@ -4330,9 +4328,8 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when using READ within a WITH-SAFE-IO-SYNTAX, that represents the warnings currently deferred by WITH-COMPILATION-UNIT. One of three functions required for deferred-warnings support in ASDF." #+allegro - (reify-simple-sexp - (list :functions-defined excl::.functions-defined. - :functions-called excl::.functions-called.)) + (list :functions-defined excl::.functions-defined. + :functions-called excl::.functions-called.) #+clozure (mapcar 'reify-deferred-warning (if-let (dw ccl::*outstanding-deferred-warnings*) @@ -4374,7 +4371,7 @@ One of three functions required for deferred-warnings support in ASDF." (declare (ignorable reified-deferred-warnings)) #+allegro (destructuring-bind (&key functions-defined functions-called) - (unreify-simple-sexp reified-deferred-warnings) + reified-deferred-warnings (setf excl::.functions-defined. (append functions-defined excl::.functions-defined.) excl::.functions-called. @@ -5118,7 +5115,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO ;; "3.4.5.67" would be a development version in the official upstream of 3.4.5. ;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5 ;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67 - (asdf-version "2.29") + (asdf-version "2.30") (existing-version (asdf-version))) (setf *asdf-version* asdf-version) (when (and existing-version (not (equal asdf-version existing-version))) @@ -5679,7 +5676,7 @@ in which the system specification (.asd file) is located." #:*central-registry* #:probe-asd #:sysdef-central-registry-search #:find-system-if-being-defined #:*systems-being-defined* #:contrib-sysdef-search #:sysdef-find-asdf ;; backward compatibility symbols, functions removed - #:system-find-preloaded-system #:register-preloaded-system #:*preloaded-systems* + #:sysdef-preloaded-system-search #:register-preloaded-system #:*preloaded-systems* #:clear-defined-systems #:*defined-systems* ;; defined in source-registry, but specially mentioned here: #:initialize-source-registry #:sysdef-source-registry-search)) @@ -5762,6 +5759,7 @@ of which is a system object.") (setf *defined-systems* (make-hash-table :test 'equal)) (when asdf (setf (component-version asdf) *asdf-version*) + (setf (builtin-system-p asdf) t) (register-system asdf))) (values)) @@ -5801,7 +5799,7 @@ called with an object of type asdf:system." (remove-if #'(lambda (x) (member x *system-definition-search-functions*)) '(sysdef-central-registry-search sysdef-source-registry-search - sysdef-find-preloaded-systems))))) + sysdef-preloaded-system-search))))) (cleanup-system-definition-search-functions) (defun search-for-system-definition (system) @@ -5917,11 +5915,17 @@ Going forward, we recommend new users should be using the source-registry. (defmacro with-system-definitions ((&optional) &body body) `(call-with-system-definitions #'(lambda () ,@body))) - (defun load-asd (pathname &key name (external-format (encoding-external-format (detect-encoding pathname)))) + (defun load-asd (pathname &key name (external-format (encoding-external-format (detect-encoding pathname))) &aux (readtable *readtable*) (print-pprint-dispatch *print-pprint-dispatch*)) ;; Tries to load system definition with canonical NAME from PATHNAME. (with-system-definitions () (with-standard-io-syntax (let ((*package* (find-package :asdf-user)) + ;; Note that our backward-compatible *readtable* is + ;; a global readtable that gets globally side-effected. Ouch. + ;; Same for the *print-pprint-dispatch* table. + ;; We should do something about that for ASDF3 if possible, or else ASDF4. + (*readtable* readtable) + (*print-pprint-dispatch* print-pprint-dispatch) (*print-readably* nil) (*default-pathname-defaults* ;; resolve logical-pathnames so they won't wreak havoc in parsing namestrings. @@ -6002,7 +6006,7 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded. (defvar *preloaded-systems* (make-hash-table :test 'equal)) - (defun sysdef-find-preloaded-systems (requested) + (defun sysdef-preloaded-system-search (requested) (let ((name (coerce-name requested))) (multiple-value-bind (keys foundp) (gethash name *preloaded-systems*) (when foundp @@ -6783,7 +6787,7 @@ in some previous image, or T if it needs to be done.") #:circular-dependency #:circular-dependency-actions #:node-for #:needed-in-image-p #:action-index #:action-planned-p #:action-valid-p - #:plan-record-dependency #:visiting-action-p + #:plan-record-dependency #:normalize-forced-systems #:action-forced-p #:action-forced-not-p #:map-direct-dependencies #:reduce-direct-dependencies #:direct-dependencies #:visit-dependencies #:compute-action-stamp #:traverse-action @@ -7218,12 +7222,11 @@ processed in order by OPERATE.")) :asdf/find-system :asdf/find-component :asdf/lisp-action :asdf/plan) (:export #:operate #:oos - #:*systems-being-operated* #:*asdf-upgrade-already-attempted* + #:*systems-being-operated* #:build-system #:load-system #:load-systems #:compile-system #:test-system #:require-system #:*load-system-operation* #:module-provide-asdf - #:component-loaded-p #:already-loaded-systems - #:upgrade-asdf #:cleanup-upgraded-asdf #:*post-upgrade-hook*)) + #:component-loaded-p #:already-loaded-systems)) (in-package :asdf/operate) (with-upgradability () @@ -7374,7 +7377,7 @@ for how to load or compile stuff") (clrhash *systems-being-defined*) (dolist (s l) (find-system s nil))))) - (pushnew 'restart-upgraded-asdf *post-upgrade-restart-hook*)) + (register-hook-function '*post-upgrade-restart-hook* 'restart-upgraded-asdf)) ;;;; --------------------------------------------------------------------------- @@ -7700,11 +7703,11 @@ effectively disabling the output translation facility." (:recycle :asdf/source-registry :asdf) (:use :asdf/common-lisp :asdf/driver :asdf/upgrade :asdf/find-system) (:export - #:*source-registry* #:*source-registry-parameter* #:*default-source-registries* + #:*source-registry-parameter* #:*default-source-registries* #:invalid-source-registry - #:source-registry #:source-registry-initialized-p + #:source-registry-initialized-p #:initialize-source-registry #:clear-source-registry #:*source-registry* - #:disable-source-registry #:ensure-source-registry #:*source-registry-parameter* + #:ensure-source-registry #:*source-registry-parameter* #:*default-source-registry-exclusions* #:*source-registry-exclusions* #:*wild-asd* #:directory-asd-files #:register-asd-directory #:collect-asds-in-directory #:collect-sub*directories-asd-files @@ -8795,9 +8798,7 @@ system names to pathnames of .asd files") #:monolithic-concatenate-source-op #:monolithic-load-concatenated-source-op #:monolithic-compile-concatenated-source-op - #:monolithic-load-compiled-concatenated-source-op - #:component-concatenated-source-file - #:concatenated-source-file)) + #:monolithic-load-compiled-concatenated-source-op)) (in-package :asdf/concatenate-source) ;;; @@ -9094,7 +9095,7 @@ Please use ASDF-DRIVER:RUN-PROGRAM instead." #:component #:parent-component #:child-component #:system #:module #:file-component #:source-file #:c-source-file #:java-source-file #:cl-source-file #:cl-source-file.cl #:cl-source-file.lsp - #:static-file #:doc-file #:html-file :text-file + #:static-file #:doc-file #:html-file #:source-file-type #:component-children ; component accessors @@ -9123,8 +9124,8 @@ Please use ASDF-DRIVER:RUN-PROGRAM instead." #:system-source-directory #:system-relative-pathname #:system-homepage + #:system-mailto #:system-bug-tracker - #:system-developers-email #:system-long-name #:system-source-control #:map-systems ----------------------------------------------------------------------- Summary of changes: src/contrib/asdf/asdf.lisp | 317 +++++++++++++++++++------------------- src/general-info/release-20e.txt | 2 +- 2 files changed, 160 insertions(+), 159 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-02-17-gaabd629
by Raymond Toy 23 Feb '13

23 Feb '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via aabd62968d3137fb65237524ebfca3d6f27e90b0 (commit) from 8e1b40b35592720147dac16cfef2431b43ccbe5a (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit aabd62968d3137fb65237524ebfca3d6f27e90b0 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Feb 23 08:40:00 2013 -0800 Update from commit logs. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index aa6e6ee..02953da 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -33,11 +33,14 @@ New in this release: However, there are no plans on supplying sparc binaries with this GC. * For x86, optimize TRUNCATE when the second arg is a compile-time - constant. (Sparc and ppc already had this optimization) + constant and use a multiplication instead of a division. (Sparc + and ppc already had this optimization) * The following *FEATURES* have been removed: * :COMMON (not used) * :CONSERVATIVE-FLOAT-TYPE (Always default to this in type derivation.) + * :I486 and :PENTIUM (Always assume we're running on at least a + Pentium.) * ANSI compliance fixes: ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20e.txt | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0