X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=db-aodbc%2Faodbc-sql.lisp;h=18a23841353ad4a5846a14d5371599bd6ef0d6d4;hb=86440ca219f801a087ad917d1c1f46c77c920aa4;hp=22aa329b4b1c4fc706790e91bb1f6850c8377641;hpb=a223800f208347e8a07f597648fcdb6c05ec5afe;p=clsql.git

diff --git a/db-aodbc/aodbc-sql.lisp b/db-aodbc/aodbc-sql.lisp
index 22aa329..18a2384 100644
--- a/db-aodbc/aodbc-sql.lisp
+++ b/db-aodbc/aodbc-sql.lisp
@@ -185,9 +185,8 @@
 (defmethod database-list-sequences ((database aodbc-database)
                                     &key (owner nil))
   (declare (ignore owner))
-  (mapcar #'(lambda (s) (%table-name-to-sequence-name (car s)))
-          (database-query "SHOW TABLES LIKE '%clsql_seq%'" 
-                          database nil)))
+  (warn "database-list-sequences not implemented for AODBC.")
+  nil)
 
 (defmethod database-list-tables ((database aodbc-database)
 				 &key (owner nil))