r9114: fixes for list-indexes

[clsql.git] / sql / table.lisp

diff --git a/sql/table.lisp b/sql/table.lisp
index 52b5c1a155143c3b96a51228b9bfe4d504f2bc31..6491fade2719c1e510fe235eed0189c5f6baea79 100644 (file)
--- a/sql/table.lisp
+++ b/sql/table.lisp
@@ -173,6 +173,8 @@ specification of a table to drop the index from."
        (unless (index-exists-p index-name :database database)
          (return-from drop-index)))
       (:error t))
+    (unless (db-use-column-on-drop-index? database)
+      (setq on nil))
     (execute-command (format nil "DROP INDEX ~A~A" index-name
                              (if (null on) ""
                                  (concatenate 'string " ON "