anchor.diff:                            (get-connection))))
        (unwind-protect (progn ,@body)
          (unless reusing-connection-p
  -         (done-with-connection *database*)))))
  +         (return-connection *database*)))))
   
   (defmacro db-query (query &rest args/format)
     `(with-db () (query ,query ,@args/format)))
  
positive.code:           (dequeue *connection-pool*)))
        (apply #'connect (list *db-name* *db-user* *db-password* *db-host*))))
  
  (defun done-with-connection (connection)
    (bt:with-lock-held (*connection-pool-lock*)
      (if (queue-full-p *connection-pool*)
          (disconnect connection)
  
negative.code:    ;; Connections
     :with-db :with-transaction
     :get-connection
     :return-connection
     ;; Development utilities
     :dblog :init-db :rebuild-db :rebuild-table
     :drop-table :drop-all-tables
  