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
asdf
asdf
Commits
f88ef77f
Commit
f88ef77f
authored
Mar 21, 2016
by
Robert Goldman
Browse files
Fix TEST-GETENV on MKCL.
Incorrectly was using code that relied on not-yet-loaded ASDF functions.
parent
151510c0
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/script-support.lisp
View file @
f88ef77f
...
...
@@ -231,7 +231,7 @@ Some constraints:
(
let
((
value
(
_getenv
name
)))
(
unless
(
ccl:%null-ptr-p
value
)
(
ccl:%get-cstring
value
))))
#+
mkcl
(
#.
(
or
(
find-symbol
*
'getenv
:si
nil
)
(
find-symbol
*
'getenv
:mk-ext
nil
))
x
)
#+
mkcl
(
#.
(
or
(
find-symbol
"GETENV"
:si
)
(
find-symbol
"GETENV"
:mk-ext
))
x
)
#+
sbcl
(
sb-ext:posix-getenv
x
)
#-
(
or
abcl
allegro
clasp
clisp
clozure
cmucl
cormanlisp
ecl
gcl
genera
lispworks
mcl
mkcl
sbcl
scl
xcl
)
(
error
"~S is not supported on your implementation"
'getenv
)))
...
...
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