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: ;;;; *************************************************************************
  ;;;; FILE IDENTIFICATION
  ;;;;
  ;;;; Name:          pool.cl
  ;;;; Purpose:       Support function for connection pool
  ;;;; Programmers:   Kevin M. Rosenberg, Marc Battyani
  ;;;; Date Started:  Apr 2002
  ;;;;
  ;;;; $Id: pool.lisp,v 1.4 2002/10/30 19:08:08 kevin Exp $
  ;;;;
  ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
  ;;;;
  ;;;; CLSQL users are granted the rights to distribute and use this software
  ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  ;;;; *************************************************************************
  
  (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
  (in-package :clsql-sys)
  
  (defun make-process-lock (name) 
    #+allegro (mp:make-process-lock :name name)
  
negative.code: 
  (defun disconnect-pooled (&optional clear)
    "Disconnects all connections in the pool"
    (with-process-lock (*db-pool-lock* "Disconnect pooled")
      (maphash
       #'(lambda (key conn-pool)
  	 (declare (ignore key))
  