Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
asdf
Commits
017e53f2
Commit
017e53f2
authored
Jan 12, 2020
by
Karsten Poeck
Browse files
Try to solve the merge-conflict with defsetf getenv
parent
113e55a5
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/os.lisp
View file @
017e53f2
...
...
@@ -121,16 +121,17 @@ use getenvp to return NIL in such a case."
(
defsetf
getenv
(
x
)
(
val
)
"Set an environment variable."
(
declare
(
ignorable
x
val
))
(
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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment