ccl getenv fix

Kiss Kálmán <[email protected]> Thu, 14 Nov 2013 15:03:08 +0100

Newsgroups	gmane.lisp.clsql.general
Message-ID	<[email protected]>

At least the Oracle driver uses the implementation specific getenv.

--- sql/utils.lisp    2013-11-14 14:42:54.000000000 +0100
+++ sql/utils.lisp.new    2013-11-14 14:28:46.000000000 +0100
@@ -376,7 +376,8 @@
                :key #'string))
    #+lispworks (lw:environment-variable (string var))
    #+mcl (ccl::getenv var)
-  #+sbcl (sb-ext:posix-getenv var))
+  #+sbcl (sb-ext:posix-getenv var)
+  #+ccl (getenv var))

  (eval-when (:compile-toplevel :load-toplevel :execute)
    (when (char= #\a (schar (symbol-name '#:a) 0))