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: 
  (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))))
  
  