1.0.33.30: Fix sb-posix build on win32.

  * This was entirely symbol-export issues between win32 and non-win32.

diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp
index c09968a..c01f031 100644 (file)
--- 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 (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.33.29"
+"1.0.33.30"