anchor.diff:      (assert-equal *greeting* "hello world")
       (setf greeting-thread (sb-thread:make-thread #'sets-socal-greeting))
       (sb-thread:join-thread greeting-thread)
  -    (assert-equal *greeting* ____)))
  +    (assert-equal *greeting* "Sup, dudes")))
   
   
   (define-test test-join-thread-return-value
  -    "the return value of the thread is passed in sb-thread:join-thread"
  +  "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))))
  +    (assert-equal 1089 (sb-thread:join-thread my-thread))))
   
   
   (define-test test-threads-can-have-names
  
positive.code:   (sb-thread:semaphore-count *apples*))
  
  (define-test test-orchard-simulation
      (assert-equal (num-apples) ___)
    (let ((eater-thread (sb-thread:make-thread 'apple-eater :name "apple eater thread")))
      (let ((grower-thread (sb-thread:make-thread 'apple-grower :name "apple grower thread")))
        (sb-thread:join-thread eater-thread)))
    (assert-equal (aref *orchard-log* 0) ____)
    (assert-equal (aref *orchard-log* 1) ____))
  
  
  
  
  
negative.code:   (setf *greeting* "Sup, dudes"))
  
  (define-test test-hello-world-thread
    "Create a thread which returns 'hello world', then ends.
     using a lambda as the supplied function to execute."
    (assert-equal *greeting* "no greeting")
    (let ((greeting-thread
           (sb-thread:make-thread
  