# Pastebin LbmsIE1i
   `(:name           "database"
     :description    "Database"
     :clog-type      clog:clog-database
     :create         clog:create-database
     :create-type    :base
     :on-setup       ,(lambda (control control-record)
                        (declare (ignore control-record))
                        (format nil "(setf (database-connection target) ~
                                       (dbi:connect ~A :database-name \"~A\"))"
                                (attribute control "data-clog-dbi-dbtype")
                                (attribute control "data-clog-dbi-dbname")))
     :events         (,@*events-element*)
     :properties     ((:name "database type"
                       :attr "data-clog-dbi-dbtype")
                      (:name "database name"
                       :attr "data-clog-dbi-dbname")
                      ,@*props-element*))