anchor.diff:  
   (defun clear-pooled-connections ()
     (bt:with-lock-held (*connection-pool-lock*)
  -    (loop until (queue-empty-p *connection-pool*)
  +    (loop
          for connection = (dequeue *connection-pool*)
  +       while connection
          when (connected-p connection)
          do (disconnect connection))))
   
  
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
  