1.0.13.7: Fix off-by-one regression in STRING-LIST-TO-C-STRVEC

        * "Since 1.0.12.21, the size variable already includes the null byte."
        * Patch by David Lichteblau

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index e1ab659..5339eb1 100644 (file)
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -489,7 +489,7 @@ status slot."
         ;; Put the pointer in the vector.
         (setf (sap-ref-sap vec-sap vec-index-offset) string-sap)
         ;; Advance string-sap for the next string.
-        (setf string-sap (sap+ string-sap (round-bytes-to-words (1+ size))))
+        (setf string-sap (sap+ string-sap (round-bytes-to-words size)))
         (incf vec-index-offset bytes-per-word)))
     ;; Final null pointer.
     (setf (sap-ref-sap vec-sap vec-index-offset) (int-sap 0))

diff --git a/version.lisp-expr b/version.lisp-expr
index 02fd538..9f414da 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.13.6"
+"1.0.13.7"