X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Funix.lisp;h=0a25f7b6240ac08200ae3ebe4498119ec5823a60;hb=67f787e86602efc7e4007fb6bbc970a2fcf613f5;hp=f5f28ca6c54c86f2ae6b76beb493ad3cef16cb36;hpb=f866d5d986cc920a8823549df5045b8182e7d92d;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index f5f28ca..0a25f7b 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -113,9 +113,9 @@ SYSCALL-FORM. Repeat evaluation of SYSCALL-FORM if it is interrupted."
 
 #!-win32
 (define-alien-routine ("getenv" posix-getenv) c-string
-    "Return the \"value\" part of the environment string \"name=value\" which
+  "Return the \"value\" part of the environment string \"name=value\" which
 corresponds to NAME, or NIL if there is none."
-    (name c-string))
+  (name c-string))
 
 ;;; from stdio.h
 
@@ -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))