anchor.diff:                              (atomic-integer-decf aint))))))
       (join-thread thread-inc)
       (join-thread thread-dec)
  -    (is (= (atomic-integer-value aint) 1000000))))
  +    (is (= 1000000 (atomic-integer-value aint)))))
  
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:                      (signal-semaphore sem :count 3)))
        (dotimes (v 5) (make-thread waiter))
        (sleep 0.3)
        (is (= 4 count))
        ;; release other waiters
        (is (eql t (signal-semaphore sem :count 2)))
        (sleep 0.1)
        (is (= 5 count)))))
  
  
  