From f88ef77fbb7a6f888209d4b9f3f1431176c4ee60 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@sift.net> Date: Mon, 21 Mar 2016 14:16:42 -0500 Subject: [PATCH] Fix TEST-GETENV on MKCL. Incorrectly was using code that relied on not-yet-loaded ASDF functions. --- test/script-support.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/script-support.lisp b/test/script-support.lisp index c60796f31..4409f3dea 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))) -- GitLab