X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=db-odbc%2Fodbc-sql.lisp;h=3bc5368594f287d733391ffd734c9a833b850b6c;hb=09ad7f1b964e6c58de9bd6c52b9b9b8a0ad9273d;hp=43bcfbb7b64b43453997f414b1b7a522e61dd554;hpb=a3974aaf6e6e53354b712bfe5db3b5b5db49c010;p=clsql.git

diff --git a/db-odbc/odbc-sql.lisp b/db-odbc/odbc-sql.lisp
index 43bcfbb..3bc5368 100644
--- a/db-odbc/odbc-sql.lisp
+++ b/db-odbc/odbc-sql.lisp
@@ -271,7 +271,13 @@
   (warn "Not implemented."))
 
 (defmethod database-probe (connection-spec (type (eql :odbc)))
-  (warn "Not implemented."))
+  (when (find (car connection-spec) (database-list connection-spec type)
+	      :test #'string-equal)
+    t))
+
+(defmethod database-list (connection-spec (type (eql :odbc)))
+  (declare (ignore connection-spec))
+  (odbc-dbi:list-all-data-sources))
 
 #+ignore		       
 (when (clsql-base-sys:database-type-library-loaded :odbc)