(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 database-probe (connection-spec (type (eql :postgresql-socket)))
(when (find (second connection-spec) (database-list connection-spec type)
- :key #'car :test #'string-equal)
+ :test #'string-equal)
t))
(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)