Steel Bank Common Lisp

The branch "master" has been updated in SBCL:
       via  6113d10bd637c220036cb74b45f03354fe1f872d (commit)
      from  33b3b129c1c895c9583494dc75455f56c83ad748 (commit)

- Log -----------------------------------------------------------------
commit 6113d10bd637c220036cb74b45f03354fe1f872d
Author: Anton Kovalenko <anton@...>
Date:   Fri Sep 30 14:06:04 2011 +0400

    fix run-program misaligned access
    
    Thanks to Antoni Grzymala for the report.
---
 src/code/run-program.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index daebefe..0417401 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -496,7 +496,7 @@ status slot."
         ;; Copy string.
         (sb-kernel:copy-ub8-to-system-area octets 0 string-sap 0 size)
         ;; NULL-terminate it
-        (setf (sap-ref-32 string-sap size) 0)
+        (sb-kernel:system-area-ub8-fill 0 string-sap size 4)
         ;; Put the pointer in the vector.
         (setf (sap-ref-sap vec-sap vec-index-offset) string-sap)
         ;; Advance string-sap for the next string.

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL