From 16bd0d14ffa377c9ebf2f6088d7d24d5f4583f61 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Tue, 1 Jan 2008 14:49:49 +0000 Subject: [PATCH] 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 --- src/code/run-program.lisp | 2 +- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp index e1ab659ee..5339eb1a7 100644 --- 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 02fd538d6..9f414da30 100644 --- 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" -- 2.11.4.GIT