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 10ebd126e43b344377d384c55c1c611a82e9f4ae (commit) via 45fabc8f3fad8876627831708ec3c997d46ce4f8 (commit) from 9c3da08b86682b804da381ebf7d6e2f6843a4394 (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 10ebd126e43b344377d384c55c1c611a82e9f4ae Author: Raymond Toy toy.raymond@gmail.com Date: Wed Mar 6 00:29:09 2013 -0800
Update.
diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index d16df6b..a438863 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -52,7 +52,6 @@ New in this release: * 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. * Ticket #66 fixed. @@ -65,6 +64,7 @@ New in this release: * Ticket #72 fixed. * Ticket #73 fixed. * Ticket #74 fixed. + * Ticket #76 fixed.
* Other changes: * -8 option for build-all.sh is deprecated since we don't
commit 45fabc8f3fad8876627831708ec3c997d46ce4f8 Author: Raymond Toy toy.raymond@gmail.com Date: Wed Mar 6 00:27:44 2013 -0800
Fix ticket:76
Missed one place in DO-UNARY-BYTE-BASH to adjust the call to END-MASK to use a bit offset instead of a byte offset. This affects anything that was using DO-UNARY-BYTE-BASH, including REPLACE.
diff --git a/src/code/bit-bash.lisp b/src/code/bit-bash.lisp index a9bb688..ba2706a 100644 --- a/src/code/bit-bash.lisp +++ b/src/code/bit-bash.lisp @@ -562,7 +562,7 @@ (unless (zerop dst-byte-offset) ;; We are only writing part of the first word, so mask off the ;; bits we want to preserve. - (let ((mask (end-mask (- dst-byte-offset))) + (let ((mask (end-mask (* vm:byte-bits (- dst-byte-offset)))) (orig (funcall dst-ref-fn dst dst-word-offset)) (value (funcall src-ref-fn src src-word-offset))) (declare (type unit mask orig value))
-----------------------------------------------------------------------
Summary of changes: src/code/bit-bash.lisp | 2 +- src/general-info/release-20e.txt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-)
hooks/post-receive