From 6efc88b9606e4c4535fe8a9900f9defa48b48678 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Sun, 30 Nov 2014 15:23:32 -0600
Subject: [PATCH] Fixed bug in UIOP:GETENV for CMUCL.

The previous version did not seem to update after setting environment
variables.
---
 uiop/os.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/uiop/os.lisp b/uiop/os.lisp
index 98462e39..a00119bf 100644
--- a/uiop/os.lisp
+++ b/uiop/os.lisp
@@ -85,7 +85,8 @@ use getenvp to return NIL in such a case."
     #+(or abcl clisp ecl xcl) (ext:getenv x)
     #+allegro (sys:getenv x)
     #+clozure (ccl:getenv x)
-    #+(or cmu scl) (cdr (assoc x ext:*environment-list* :test #'string=))
+    #+cmu (unix:unix-getenv x)
+    #+scl (cdr (assoc x ext:*environment-list* :test #'string=))
     #+cormanlisp
     (let* ((buffer (ct:malloc 1))
            (cname (ct:lisp-string-to-c-string x))
-- 
GitLab