anchor.diff:    (sb-thread:semaphore-count *apples*))
   
   (define-test test-orchard-simulation
  -    (assert-equal (num-apples) ___)
  +  (assert-equal (num-apples) 0)
     (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) ____))
  -
  -
  -
  -
  +  (assert-equal (aref *orchard-log* 0) "apple grown.")
  +  (assert-equal (aref *orchard-log* 1) "apple eaten."))
  
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: ;;   See the License for the specific language governing permissions and
  ;;   limitations under the License.
  
  ;; NOTE: This koan group uses language features specific to sbcl, that are
  ;; not part of the Common Lisp specification.  If you are not using sbcl,
  ;; feel free to skip this group by removing it from '.koans'
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  