projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9402: Reworked docstrings.
[clsql.git]
/
sql
/
table.lisp
diff --git
a/sql/table.lisp
b/sql/table.lisp
index 3820c19bd61d623a02ee50aeae155fe605c15789..1b28c4ff10db3b6b37bf181ee09b702576978b3e 100644
(file)
--- a/
sql/table.lisp
+++ b/
sql/table.lisp
@@
-61,7
+61,10
@@
if IF-DOES-NOT-EXIST is :error."
(return-from drop-table nil)))
(:error
t))
(return-from drop-table nil)))
(:error
t))
- (let ((expr (concatenate 'string "DROP TABLE " table-name)))
+ (let ((expr (concatenate 'string "DROP TABLE " table-name
+ (if (eq :oracle (database-type database))
+ " PURGE"
+ ""))))
(execute-command expr :database database))))
(defun list-tables (&key (owner nil) (database *default-database*))
(execute-command expr :database database))))
(defun list-tables (&key (owner nil) (database *default-database*))