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
c8395997
Commit
c8395997
authored
Oct 01, 2019
by
Karsten Poeck
Browse files
define and use (setf getenv) for clasp
parent
03979ade
Changes
2
Hide whitespace changes
Inline
Side-by-side
test/asdf-pathname-test.script
View file @
c8395997
...
...
@@ -420,9 +420,9 @@
(clear-system "test-system")))
(defun test-pathname-parsing ()
#-(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl)
#-(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl
clasp
)
(DBG "Can't test pathname parsing: this lisp lacks SETENV support.")
#+(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl)
#+(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl
clasp
)
(let ((old-config (uiop:getenvp "XDG_CONFIG_DIRS"))
(old-home-config (uiop:getenvp "XDG_CONFIG_HOME")))
(unwind-protect
...
...
uiop/os.lisp
View file @
c8395997
...
...
@@ -126,11 +126,11 @@ use getenvp to return NIL in such a case."
#+
clisp
`
(
system::setenv
,
x
,
val
)
#+
clozure
`
(
ccl:setenv
,
x
,
val
)
#+
cmucl
`
(
unix:unix-setenv
,
x
,
val
1
)
#+
ecl
`
(
ext:setenv
,
x
,
val
)
#+
(
or
ecl
clasp
)
`
(
ext:setenv
,
x
,
val
)
#+
lispworks
`
(
hcl:setenv
,
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
)
#-
(
or
allegro
clisp
clozure
cmucl
ecl
lispworks
mkcl
sbcl
clasp
)
'
(
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