(format nil " AND (NOT (relowner=1))"))
(t "")))
-(defmethod database-list-objects-of-type ((database postgresql-database)
- type owner)
+(defun database-list-objects-of-type (database type owner)
(mapcar #'car
(database-query
(format nil
(defmethod db-type-has-fancy-math? ((db-type (eql :postgresql)))
t)
+(defmethod db-type-default-case ((db-type (eql :postgresql)))
+ :lower)
+
(when (clsql-base-sys:database-type-library-loaded :postgresql)
(clsql-base-sys:initialize-database-type :database-type :postgresql))