anchor.diff:             `((*some-special* . (list :more *some-special*))
                ,@*default-special-bindings*))
            (thread (make-thread (lambda () *some-special*))))
  -    (is (equal (join-thread thread) '(:more :local-value)))))
  +    (is (equal '(:more :local-value) (join-thread thread)))))
   
   (defparameter *shared* 0)
   (defparameter *lock* (make-lock))
  
positive.code:                      (signal-semaphore sem :count 3)))
        (dotimes (v 5) (make-thread waiter))
        (sleep 0.3)
        (is (= count 4))
        ;; release other waiters
        (is (eql t (signal-semaphore sem :count 2)))
        (sleep 0.1)
        (is (= count 5)))))
  
  
  
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)))
  