(handler-case
(handler-bind ((postgresql-warning
(lambda (c)
- (warn 'clsql-simple-warning
+ (warn 'sql-warning
:format-control "~A"
:format-arguments
(list (princ-to-string c))))))
(defmethod db-type-default-case ((db-type (eql :postgresql-socket)))
:lower)
-(defmethod db-underlying-type ((database postgresql-socket-database))
+(defmethod database-underlying-type ((database postgresql-socket-database))
:postgresql)
(when (clsql-sys:database-type-library-loaded :postgresql-socket)