projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9423: fix case of test names
[clsql.git]
/
sql
/
sql.lisp
diff --git
a/sql/sql.lisp
b/sql/sql.lisp
index 0a0d2f3fef16dc5c4663f6a1c3e2d51d2ff2cd1d..c80723b24dd8a5b7b1d2622c1e0b5fbee258191e 100644
(file)
--- a/
sql/sql.lisp
+++ b/
sql/sql.lisp
@@
-48,6
+48,8
@@
(signal-no-database-error database))
(unless (is-database-open database)
(database-reconnect database))
(signal-no-database-error database))
(unless (is-database-open database)
(database-reconnect database))
+ (when (eq :oracle (database-type database))
+ (ignore-errors (execute-command "PURGE RECYCLEBIN" :database database)))
(when (db-type-has-views? (database-underlying-type database))
(dolist (view (list-views :database database))
(drop-view view :database database)))
(when (db-type-has-views? (database-underlying-type database))
(dolist (view (list-views :database database))
(drop-view view :database database)))
@@
-243,10
+245,11
@@
condition is true."
(if (or (null thing)
(eq 'null thing))
"NULL"
(if (or (null thing)
(eq 'null thing))
"NULL"
- (error 'clsql-simple-error
- :format-control
- "No type conversion to SQL for ~A is defined for DB ~A."
- :format-arguments (list (type-of thing) (type-of database)))))
+ (error 'sql-user-error
+ :message
+ (format nil
+ "No type conversion to SQL for ~A is defined for DB ~A."
+ (type-of thing) (type-of database)))))
(defmethod output-sql-hash-key ((arg vector) database)
(defmethod output-sql-hash-key ((arg vector) database)