projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9427: 22 May 2004 Kevin Rosenberg
[clsql.git]
/
sql
/
sql.lisp
diff --git
a/sql/sql.lisp
b/sql/sql.lisp
index 057c135774ae2b4252c275bfa469ad2b8426b3a9..e3e064a7cdb983fef043fd58c3a8146ccc1a7601 100644
(file)
--- a/
sql/sql.lisp
+++ b/
sql/sql.lisp
@@
-58,7
+58,9
@@
(dolist (index (list-indexes :database database))
(drop-index index :database database))
(dolist (seq (list-sequences :database database))
(dolist (index (list-indexes :database database))
(drop-index index :database database))
(dolist (seq (list-sequences :database database))
- (drop-sequence seq :database database)))
+ (drop-sequence seq :database database))
+ (when (eq :oracle (database-type database))
+ (ignore-errors (execute-command "PURGE RECYCLEBIN" :database database))))
(defun print-query (query-exp &key titles (formats t) (sizes t) (stream t)
(database *default-database*))
(defun print-query (query-exp &key titles (formats t) (sizes t) (stream t)
(database *default-database*))