Commit 017e53f2 authored by Karsten Poeck's avatar Karsten Poeck
Browse files

Try to solve the merge-conflict with defsetf getenv

parent 113e55a5

uiop/os.lisp

+5 −4
Original line number Diff line number Diff line
@@ -123,14 +123,15 @@ use getenvp to return NIL in such a case." 
    "Set an environment variable."

    (declare (ignorable x val))

    #+allegro `(setf (sys:getenv ,x) ,val)

    #+clasp `(ext:setenv ,x ,val)

    #+clisp `(system::setenv ,x ,val)

    #+clozure `(ccl:setenv ,x ,val)

    #+cmucl `(unix:unix-setenv ,x ,val 1)

    #+(or ecl clasp) `(ext:setenv ,x ,val)

    #+lispworks `(hcl:setenv ,x ,val)

    #+ecl `(ext:setenv ,x ,val)

    #+lispworks `(setf (lispworks:environment-variable ,x) ,val)

    #+mkcl `(mkcl:setenv ,x ,val)

    #+sbcl `(progn (require :sb-posix) (symbol-call :sb-posix :setenv ,x ,val 1))

    #-(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl clasp)

    #-(or allegro clasp clisp clozure cmucl ecl lispworks mkcl sbcl)

    '(not-implemented-error '(setf getenv)))



  (defun getenvp (x)