projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9117: Automated commit for Debian build of clsql upstream-version-2.9.1
[clsql.git]
/
sql
/
table.lisp
diff --git
a/sql/table.lisp
b/sql/table.lisp
index 6491fade2719c1e510fe235eed0189c5f6baea79..dd5ccb95726549bb1c60adc8faf27e7e6fbdde2c 100644
(file)
--- 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 (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) ""
(setq on nil))
(execute-command (format nil "DROP INDEX ~A~A" index-name
(if (null on) ""