clozure cl haven't implements condition-variable. so..

(defun bt:make-condition-variable () (ccl:make-semaphore))

but, condition-variable and semaphore are different. right? It can cause problems, I think. Perhaps, It's make meaningless loop.

I just wonder why something like this that you have not implemented in bordeaux-threads

(in-package #:bordeaux-threads)

(defclass condition-variable () ((sem-count :initform 0 :accessor sem-count) (semaphore :initform (ccl:make-semaphore) :reader semaphore)))

(defun make-condition-variable () (make-instance 'condition-variable))

(defun condition-wait (condition-variable lock) (unwind-protect (progn (incf (sem-count condition-variable)) (release-lock lock) (ccl:wait-on-semaphore (semaphore condition-variable))) (acquire-lock lock)))

(defun condition-notify (condition-variable) (when (> (sem-count condition-variable) 0) (decf (sem-count condition-variable)) (ccl:signal-semaphore (semaphore condition-variable))))

I don't know about it....