anchor.diff:      (sb-thread:join-thread thread-2)
       (sb-thread:join-thread thread-3))
     (setf *after-time-millisec* (get-internal-real-time))
  -  (true-or-false? ___ (> (duration-ms) 200))
  -  (true-or-false? ___  (< (duration-ms) 400))
  -  (assert-equal *accum* ___))
  +  (true-or-false? t (> (duration-ms) 200))
  +  (true-or-false? t  (< (duration-ms) 400))
  +  (assert-equal *accum* 7))
   
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:     (sb-thread:join-thread thread-1)
      (sb-thread:join-thread thread-2)
      (sb-thread:join-thread thread-3)
      (assert-equal *g* ___)))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code:     (sb-thread:join-thread thread-1)
      (sb-thread:join-thread thread-2)
      (sb-thread:join-thread thread-3)
      (assert-equal *g* 3)))
  
  ;;;;;;;;;;;;;;;;
  ;; Semaphores ;;
  