anchor.diff:     ;; Connections
      :with-db :with-transaction
      :get-connection
  -   :done-with-connection
  +   :return-connection
      ;; Development utilities
      :dblog :init-db :rebuild-db :rebuild-table
      :drop-table :drop-all-tables
  
positive.code:                           (get-connection))))
       (unwind-protect (progn ,@body)
         (unless reusing-connection-p
           (done-with-connection *database*)))))
  
  (defmacro db-query (query &rest args/format)
    `(with-db () (query ,query ,@args/format)))
  
negative.code: 
  (defun clear-pooled-connections ()
    (bt:with-lock-held (*connection-pool-lock*)
      (loop
         for connection = (dequeue *connection-pool*)
         while connection
         when (connected-p connection)
         do (disconnect connection))))
  
  