From 1448e312cf2de1103b8f771b0ad3408efe43bbdb Mon Sep 17 00:00:00 2001 From: Alastair Bridgewater Date: Thu, 24 Dec 2009 00:08:11 +0000 Subject: [PATCH] 1.0.33.30: Fix sb-posix build on win32. * This was entirely symbol-export issues between win32 and non-win32. --- contrib/sb-posix/interface.lisp | 7 ++++++- version.lisp-expr | 2 +- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp index c09968a..c01f031 100644 --- a/contrib/sb-posix/interface.lisp +++ b/contrib/sb-posix/interface.lisp @@ -728,7 +728,10 @@ ;;; environment -(export 'getenv :sb-posix) +(eval-when (:compile-toplevel :load-toplevel) + ;; Do this at compile-time as Win32 code below refers to it as + ;; sb-posix:getenv. + (export 'getenv :sb-posix)) (defun getenv (name) (let ((r (alien-funcall (extern-alien "getenv" (function (* char) c-string)) @@ -760,11 +763,13 @@ (progn ;; Windows doesn't define a POSIX setenv, but happily their _putenv is sane. (define-call* "putenv" int minusp (string c-string)) + (export 'setenv :sb-posix) (defun setenv (name value overwrite) (declare (string name value)) (if (and (zerop overwrite) (sb-posix:getenv name)) 0 (putenv (concatenate 'string name "=" value)))) + (export 'unsetenv :sb-posix) (defun unsetenv (name) (declare (string name)) (putenv (concatenate 'string name "=")))) diff --git a/version.lisp-expr b/version.lisp-expr index fd429e2..9693120 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.33.29" +"1.0.33.30" -- 1.7.10.4