projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9395: 18 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
[clsql.git]
/
sql
/
table.lisp
diff --git
a/sql/table.lisp
b/sql/table.lisp
index d2a615b8d49c8c46f853255b2b10f8ea5f02c44b..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*))
@@
-249,7
+252,7
@@
specifications in table have changed."
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
- (setf (gethash k attribute-cache) (list t (second v
alue
))))))
+ (setf (gethash k attribute-cache) (list t (second v))))))
attribute-cache))
((eq table :default)
(maphash (lambda (k v)
attribute-cache))
((eq table :default)
(maphash (lambda (k v)
@@
-260,7
+263,7
@@
specifications in table have changed."
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
- (setf (gethash k attribute-cache) (list t (second v
alue
)))))))
+ (setf (gethash k attribute-cache) (list t (second v)))))))
attribute-cache))))
(values))
attribute-cache))))
(values))