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