anchor.diff:  
   (defun find-or-create-connection-pool (connection-spec database-type)
     "Find connection pool in hash table, creates a new connection pool if not found"
  -  (with-process-lock (*db-pool-lock* "Find connection")
  +  (with-process-lock (*db-pool-lock* "Find-or-create connection")
       (let* ((key (list connection-spec database-type))
   	   (conn-pool (gethash key *db-pool*)))
         (unless conn-pool
  
positive.code: 
  (defun disconnect-pooled (&optional clear)
    "Disconnects all connections in the pool"
    (with-process-lock (*db-pool-lock* "Find connection")
      (maphash
       #'(lambda (key conn-pool)
  	 (declare (ignore key))
  
negative.code:      *db-pool*)
      (when clear (clrhash *db-pool*)))
    t)
  