anchor.diff:    (- *after-time-millisec* *before-time-millisec*))
   
   (define-test test-run-in-series
  -    "get internal real time returns a time stamp in milliseconds"
  +  "get internal real time returns a time stamp in milliseconds"
     (setf *accum* 0)
     (setf *before-time-millisec* (get-internal-real-time))
     (accum-after-time 0.3 1)
     (accum-after-time 0.2 2)
     (accum-after-time 0.1 4)
     (setf *after-time-millisec* (get-internal-real-time))
  -  (true-or-false? ___ (> (duration-ms) 500))
  -  (true-or-false? ___ (< (duration-ms) 700))
  -  (assert-equal *accum* ___))
  +  (true-or-false? t (> (duration-ms) 500))
  +  (true-or-false? t (< (duration-ms) 700))
  +  (assert-equal *accum* 7))
   
   (define-test test-run-in-parallel
  -    "same program as above, executed in threads.  Sleeps are simultaneous"
  +  "same program as above, executed in threads.  Sleeps are simultaneous"
     (setf *accum* 0)
     (setf *before-time-millisec* (get-internal-real-time))
     (let ((thread-1 (sb-thread:make-thread 'accum-after-time :arguments '(0.3 1)))
  
positive.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
  
negative.code:          (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?")))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  