anchor.diff:  
   (defun disconnect-pooled (&optional clear)
     "Disconnects all connections in the pool"
  -  (with-process-lock (*db-pool-lock* "Find connection")
  +  (with-process-lock (*db-pool-lock* "Disconnect pooled")
       (maphash
        #'(lambda (key conn-pool)
   	 (declare (ignore key))
  
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:      *db-pool*)
      (when clear (clrhash *db-pool*)))
    t)
  