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