anchor.diff:                       (signal-semaphore sem :count 3)))
         (dotimes (v 5) (make-thread waiter))
         (sleep 0.3)
  -      (is (= count 4))
  +      (is (= 4 count))
         ;; release other waiters
         (is (eql t (signal-semaphore sem :count 2)))
         (sleep 0.1)
  -      (is (= count 5)))))
  +      (is (= 5 count)))))
    
   
  
positive.code:            `((*some-special* . (list :more *some-special*))
               ,@*default-special-bindings*))
           (thread (make-thread (lambda () *some-special*))))
      (is (equal (join-thread thread) '(:more :local-value)))))
  
  (defparameter *shared* 0)
  (defparameter *lock* (make-lock))
  
negative.code:                :name (format nil "acquire-recursive-lock Proc #~D" i))
                threads)))
      (map 'nil #'join-thread threads)
      (is (equalp #(:enter :leave :enter :leave) results))))
  
  (test acquire-lock.try-lock
    (let ((lock (make-lock)))
  