X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Futils.lisp;fp=sql%2Futils.lisp;h=0b58f0fa080b954013fb5fbb370869afb0627c43;hp=a215a446ed31cc903584ffc37cf1b18f275ad073;hb=5762e8b632ae3ba960e4f204ae17501e9ceab5be;hpb=43971c970889fee2a4766ff8e33da292a239f1bc

diff --git a/sql/utils.lisp b/sql/utils.lisp
index a215a44..0b58f0f 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))
-  #+mcl (ccl::getenv var)
+  #+(or mcl ccl) (ccl::getenv var)
   #+sbcl (sb-ext:posix-getenv var))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)