(defmethod database-create (connection-spec (type (eql :postgresql-socket)))
- (error 'clsql-access-error
- :connection-spec connection-spec
- :database-type type
- :error "Unable to create databases on a socket connection."))
+ (destructuring-bind (host name user password) connection-spec
+ (let ((database (database-connect (list host "template1" user password)
+ type)))
+ (unwind-protect
+ (execute-command (format nil "create database ~A" name))
+ (database-disconnect database)))))
(defmethod database-destroy (connection-spec (type (eql :postgresql-socket)))
- (error 'clsql-access-error
- :connection-spec connection-spec
- :database-type type
- :error "Unable to create databases on a socket connection."))
+ (destructuring-bind (host name user password) connection-spec
+ (let ((database (database-connect (list host "template1" user password)
+ type)))
+ (unwind-protect
+ (execute-command (format nil "drop database ~A" name))
+ (database-disconnect database)))))
(defmethod database-probe (connection-spec (type (eql :postgresql-socket)))
(destructuring-bind (host name user password) connection-spec
(let ((database (database-connect (list host "template1" user password)
type)))
(unwind-protect
- (find name (database-query "select datname from pg_database"
- database :auto)
- :key #'car :test #'string-equal)
+ (when
+ (find name (database-query "select datname from pg_database"
+ database :auto)
+ :key #'car :test #'string-equal)
+ t)
(database-disconnect database)))))
(when (clsql-base-sys:database-type-library-loaded :postgresql-socket)