anchor.diff:           (sb-thread:make-thread #'+
                                   :name "what is the sum of no things adding?")))
       (assert-equal (sb-thread:thread-name empty-plus-thread)
  -                  ____)))
  +                  "what is the sum of no things adding?")))
   
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:     (assert-equal *greeting* "hello world")
      (setf greeting-thread (sb-thread:make-thread #'sets-socal-greeting))
      (sb-thread:join-thread greeting-thread)
      (assert-equal *greeting* ____)))
  
  
  (define-test test-join-thread-return-value
      "the return value of the thread is passed in sb-thread:join-thread"
    (let ((my-thread (sb-thread:make-thread
                      (lambda () (* 11 99)))))
      (assert-equal ____ (sb-thread:join-thread my-thread))))
  
  
  (define-test test-threads-can-have-names
  
negative.code:   (sb-thread:join-thread (sb-thread:make-thread 'semaphore-increments-g :name "S incrementor 1"))
    (sb-thread:join-thread (sb-thread:make-thread 'semaphore-increments-g :name "S incrementor 2"))
    (sb-thread:join-thread (sb-thread:make-thread 'semaphore-increments-g :name "S incrementor 3"))
    (assert-equal 3 (sb-thread:semaphore-count *g-semaphore*)))
  
  
  ;; Semaphores can be used to manage resource allocation, and to trigger
  