Commit f88ef77f authored by Robert Goldman's avatar Robert Goldman
Browse files

Fix TEST-GETENV on MKCL.

Incorrectly was using code that relied on not-yet-loaded ASDF functions.
parent 151510c0
...@@ -231,7 +231,7 @@ Some constraints: ...@@ -231,7 +231,7 @@ Some constraints:
(let ((value (_getenv name))) (let ((value (_getenv name)))
(unless (ccl:%null-ptr-p value) (unless (ccl:%null-ptr-p value)
(ccl:%get-cstring 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) #+sbcl (sb-ext:posix-getenv x)
#-(or abcl allegro clasp clisp clozure cmucl cormanlisp ecl gcl genera lispworks mcl mkcl sbcl scl xcl) #-(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))) (error "~S is not supported on your implementation" 'getenv)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment