(defun setenv (name value overwrite)
(declare (string name value))
(if (and (zerop overwrite) (sb-posix:getenv name))
0
(putenv (concatenate 'string name "=" value))))
(defun setenv (name value overwrite)
(declare (string name value))
(if (and (zerop overwrite) (sb-posix:getenv name))
0
(putenv (concatenate 'string name "=" value))))