diff --git a/test/script-support.lisp b/test/script-support.lisp index c60796f313e37b49c54a1671b9d20342265caa94..4409f3dea137abaafbe138b6ccde12aaff34ac89 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -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)))