anchor.diff:  ;;; Resource contention: condition variables
   
   (defun make-condition-variable ()
  -  (mt::make-exemption))
  +  (mt:make-exemption :name "Anonymous condition variable"))
   
   (defun condition-wait (condition-variable lock)
     (mt:exemption-wait condition-variable lock))
  
positive.code: 
  (in-package #:bordeaux-threads)
  
  ;;; Thread Creation
  
  (defun %make-thread (function name)
    (mt:make-thread function :name name))
  
  (defun current-thread ()
    (mt:current-thread))
  
negative.code:   `(mt:with-mutex-lock (,place) ,@body))
  
  (defun make-recursive-lock (&optional name)
    (mt:make-mutex :name (or name "Anonymous recursive lock")
                   :recursive-p t))
  
  (defmacro with-recursive-lock-held ((place) &body body)
    `(mt:with-mutex-lock (,place) ,@body))
  