From d8a2257f9520d72cc38178b32029fa5f0e6519dd Mon Sep 17 00:00:00 2001 From: Richard M Kreuter Date: Tue, 28 Oct 2008 21:49:41 +0000 Subject: [PATCH] 1.0.21.36: Fix a bug in one path through RUN-PROGRAM. * Ensure that the template buffer for sb_mkstemp is null-terminated. --- src/code/unix.lisp | 2 +- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/code/unix.lisp b/src/code/unix.lisp index 368665e..0a25f7b 100644 --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -190,7 +190,7 @@ corresponds to NAME, or NIL if there is none." (defun sb-mkstemp (template-string mode) (declare (type string template-string) (type unix-file-mode mode)) - (let ((template-buffer (string-to-octets template-string))) + (let ((template-buffer (string-to-octets template-string :null-terminate t))) (with-pinned-objects (template-buffer) (let ((fd (alien-funcall (extern-alien "sb_mkstemp" (function int (* char) int)) diff --git a/version.lisp-expr b/version.lisp-expr index a713ab6..fe89250 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.21.35" +"1.0.21.36" -- 1.7.10.4