anchor.diff:          (cond ((> a 0) :positive)
                 ((< a 0) :negative)
                 (t :zero)))
  -  (assert-equal ____ c))
  +  (assert-equal :positive c))
  
positive.code:   (assert-equal a 100))
  
  
  (define-test write-your-own-let-statement
      "fix the let statement to get the tests to pass"
    (setf a 100)
    (setf b 23)
    (setf c 456)
    (let ((a 100)
          (b 200)
          (c "Jellyfish"))
      (assert-equal a 100)
      (assert-equal b 200)
      (assert-equal c "Jellyfish"))
    (let* ((a 0))
      (assert-equal a 0)
      (assert-equal b 23)
      (assert-equal nil (+ a (/ b a)))))
  
  (define-test test-case
      "the case form is like the C switch statement: it
  
negative.code: (defun cartoon-dads (input)
      "you should be able to complete this case statement"
    (case input (:this-one-doesnt-happen :fancy-cat)
                (:bart :homer)
                (:stewie :peter)
                (:stan :randy)
                (t :unknown)
    )
  )
  
  (define-test test-your-own-case-statement
      "fix this by completing the 'cartoon-dads' function above"
  