mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-31 23:00:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

To remove an environment variable under Windows, one must do a setenv() with a null string

Browse source
This commit is contained in:
jjgarcia 2005-05-02 12:50:47 +00:00
parent 996ff08c0a
commit 57ea34ce87
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
msvc/h/config.h.msvc6
View file

@ -167,7 +167,7 @@ typedef unsigned int cl_hashkey;
/* #undef HAVE_SYS_IOCTL_H */
/* putenv() or setenv() */
#undef HAVE_SETENV
#undef HAVE_PUTENV
#define HAVE_PUTENV 1
/* times() and sys/times.h */
/* #undef HAVE_TIMES */
/* user home directory, user name, etc... */

6
src/c/main.d
View file

@ -496,8 +496,12 @@ si_setenv(cl_object var, cl_object value)
* (si:setenv "foo" nil), then (si:getenv "foo) returns
* the right thing. */
unsetenv(var->string.self);
#else
#if defined(_MSC_VER) || defined(mingw32)
si_setenv(var, make_simple_string(""));
#else
putenv(var->string.self);
#endif
#endif
ret_val = 0;
} else {
@ -508,6 +512,8 @@ si_setenv(cl_object var, cl_object value)
cl_object temp =
cl_format(4, Cnil, make_constant_string("~A=~A"), var,
value);
if (temp->string.hasfillp && temp->string.fillp < temp->string.dim)
temp->string.self[temp->string.fillp] = '\0';
putenv(temp->string.self);
#endif
}