anchor.diff:        (loop
           (incf loop-counter)
           (if (>= loop-counter 100) (return loop-counter)))
  -      (assert-equal ___ loop-counter)))
  +      (assert-equal 100 loop-counter)))
   
   
   (define-test test-mapcar
       "mapcar takes a list and a function.  It returns a new list
        with the function applied to each element of the input"
     (let ((mc-result (mapcar #'evenp '(1 2 3 4 5))))
  -    (assert-equal mc-result ____)))
  +    (assert-equal mc-result '(nil t nil t nil))))
   
   
   ;; ----
  
positive.code:           (my-return))
        (dolist (x my-list my-return)
          (push (* x x) my-return))
        (assert-equal ____ my-return)))
  
  
  (define-test test-dotimes
  
negative.code:   (assert-equal (vowels-to-xs "Astronomy") "xstrxnxmy")
    (let* ((subjects '("Astronomy" "Biology" "Chemistry" "Linguistics"))
           (mc-result (mapcar #'vowels-to-xs subjects)))
      (assert-equal mc-result '("xstrxnxmy" "Bxxlxgy" "Chxmxstry" "Lxngxxstxcs"))))
  
  
  ;; ----
  
  (define-test test-mapcar-with-lambda
      (let ((mc-result (mapcar (lambda (x) (mod x 10)) '(21 152 403 14))))
        (assert-equal mc-result '(1 2 3 4))))
  