X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftable.lisp;fp=sql%2Ftable.lisp;h=dd5ccb95726549bb1c60adc8faf27e7e6fbdde2c;hp=6491fade2719c1e510fe235eed0189c5f6baea79;hb=3ec4277531c7c19b1cffade823d3e2e3f928ceb3;hpb=a4097e19c5157e87b9991549bc44f3ef598aeb90

diff --git a/sql/table.lisp b/sql/table.lisp
index 6491fad..dd5ccb9 100644
--- a/sql/table.lisp
+++ b/sql/table.lisp
@@ -173,7 +173,7 @@ 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)
+    (unless (db-use-column-on-drop-index? (database-underlying-type database))
       (setq on nil))
     (execute-command (format nil "DROP INDEX ~A~A" index-name
                              (if (null on) ""