r10812: 7 Nov 2005 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / db-odbc / odbc-sql.lisp

diff --git a/db-odbc/odbc-sql.lisp b/db-odbc/odbc-sql.lisp
index 385d378ee8adb9c084837503540e86f5775a2299..1f00008493be1d9ccaf7375c70f6cfd977bc3895 100644 (file)
--- a/db-odbc/odbc-sql.lisp
+++ b/db-odbc/odbc-sql.lisp
@@ -3,7 +3,7 @@
 ;;;; FILE IDENTIFICATION
 ;;;;
 ;;;; Name:          odbc-sql.cl
-;;;; Purpose:       Low-level interface for CLSQL ODBC backend
+;;;; Purpose:       Medium-level interface for CLSQL ODBC backend
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
@@ -52,6 +52,7 @@
          ;; underlying database
          (initialize-database-type :database-type database-type)
          db)
+      #+ignore
       (error ()        ;; Init or Connect failed
        (error 'sql-connection-error
               :database-type database-type
@@ -70,9 +71,14 @@
          (cond 
           ((or (search "postgresql" server-name :test #'char-equal)
                (search "postgresql" dbms-name :test #'char-equal))
+           (unless (find-package 'clsql-postgresql)
+             (ignore-errors (asdf:operate 'asdf:load-op 'clsql-postgresql-socket)))
            :postgresql)
           ((or (search "mysql" server-name :test #'char-equal)
                (search "mysql" dbms-name :test #'char-equal))
+           (unless (find-package 'clsql-mysql)
+             ;; ignore errors on platforms where the shared libraries are not available
+             (ignore-errors (asdf:operate 'asdf:load-op 'clsql-mysql)))
            :mysql)
           ((or (search "oracle" server-name :test #'char-equal)
                (search "oracle" dbms-name :test #'char-equal))