From 5fa1db284bac0dcb501df1b8960c3b6f39ec9d27 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sat, 23 Nov 2013 10:22:29 -0700
Subject: [PATCH] Improve ccl getenv patch

---
 sql/utils.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sql/utils.lisp b/sql/utils.lisp
index 0b58f0f..be1396e 100644
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -375,7 +375,7 @@ list of characters and replacement strings."
   (cdr (assoc (string var) ext:*environment-list* :test #'equalp
               :key #'string))
   #+lispworks (lw:environment-variable (string var))
-  #+(or mcl ccl) (ccl::getenv var)
+  #+ccl (ccl::getenv var)
   #+sbcl (sb-ext:posix-getenv var))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-- 
2.34.1