cl-rdbms

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :cl-rdbms))

(defvar *test-database*
  (make-instance 'rdbms:postgresql-postmodern
                 :connection-specification '(:database "junk"
                                             :user-name "ancient"
                                             :password "password")))

(rdbms:with-transaction* (:database *test-database*)
  (rdbms:execute "select 1, 'まみむめも♪'"))

htmlize なおってる♪