(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*))
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
- (setf (gethash k attribute-cache) (list t (second value))))))
+ (setf (gethash k attribute-cache) (list t (second v))))))
attribute-cache))
((eq table :default)
(maphash (lambda (k v)
((null action)
(setf (gethash k attribute-cache) (list nil nil)))
((eq t action)
- (setf (gethash k attribute-cache) (list t (second value)))))))
+ (setf (gethash k attribute-cache) (list t (second v)))))))
attribute-cache))))
(values))