Setting Environment Variables. Notice that its envget instead of getenv because
lispworks already has
such a exported symbol
(defun envget (var &optional (nullret ""))
(let ((env #+clisp (ext:getenv (if (equalp var "") " " var))
#+sbcl (sb-posix:getenv var)
#+ecl (si:getenv var)
#+allegro (sys:getenv var)
#+lispworks (lw:environment-variable var)
#-(or clisp sbcl ecl allegro lispworks) (error "GETENV is not
supported for your implementation")))
#+clisp (if (equalp env "") nullret env)
#+(or sbcl allegro lispworks ecl) (if (null env) nullret env)))
(defun envset (var content)
(let
((it #+clisp (setf (ext:getenv var) content)
#+sbcl (sb-posix:putenv (concatenate 'string var "=" content))
#+ecl (si:setenv var content)
#+allegro (setf (sys:getenv var) content)
#+lispworks (setf (lw:environment-variable var) content)
#-(or clisp sbcl ecl allegro lispworks)
(error "SETENV is not supported for your implementation")))
#+sbcl (if (= it 0) content nil)
#+(or lispworks clisp allegro ecl) (if it content)))
(defun (setf envget) (var content)
(setenv var content))
---- Msg sent via WebMail
