[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-03-6-g10ebd12

[Raymond Toy]

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 at 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 at 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
-- 
CMU Common Lisp