anchor.diff:                    (sb-thread:join-thread
                      (sb-thread:make-thread 'returns-hello-name
                                             :arguments "Buster")))
  -    (assert-equal ____
  +    (assert-equal '((3 4 5))
                     (sb-thread:join-thread
                      (sb-thread:make-thread 'double-wrap-list
                                             :arguments '(3 4 5)))))
  
positive.code:          (sb-thread:make-thread #'+
                                  :name "what is the sum of no things adding?")))
      (assert-equal (sb-thread:thread-name empty-plus-thread)
                    ____)))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code:     "list-all-threads makes a list of all running threads in this lisp.  The sleep
       calls are necessary, as killed threads are not instantly removed from the
       list of all running threads."
    (assert-equal 1 (length (sb-thread:list-all-threads)))
    (kill-thread-if-not-main (spawn-looping-thread "NEVER CATCH ME~!  NYA NYA!"))
    (sleep 0.01)
    (assert-equal 1 (length (sb-thread:list-all-threads)))
    (spawn-three-loopers)
    (assert-equal 4 (length (sb-thread:list-all-threads)))
    (kill-spawned-threads)
    (sleep 0.01)
    (assert-equal 1 (length (sb-thread:list-all-threads))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  