anchor.diff:          (cond ((> a 0) :positive)
                 ((< a 0) :negative)
                 (t :zero)))
  -  (assert-equal ____ c))
  +  (assert-equal :positive c))
   
   
   (defun cartoon-dads (input)
     " you should be able to complete this cond statement"
  -  (cond ((equal input :this-one-doesnt-happen) :fancy-cat)
  +  (cond ((equal input :bart) :homer)
  +		((equal input :stewie) :peter)
  +		((equal input :stan) :randy)
           (t :unknown)))
   
   (define-test test-your-own-cond-statement
  
positive.code:      lexical form.  After which, the previous value, if it exists, is visible again."
    (setf a 10)
    (setf b 20)
    (assert-equal a ___)
    (assert-equal b ___)
    (let ((a 1111)
          (b 2222))
      (assert-equal a ___)
      (assert-equal b ___))
    (assert-equal a ___)
    (assert-equal b ___))
  
  
  (define-test test-let-default-value
      "let vars have a default value"
      (let ((x))
        (assert-equal ___ x)))
  
  (define-test test-let-bindings-are-parallel
      "When defining the bindings in the let form, later bindings may not depend
  
negative.code:   (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 121)
           (b 200)
  		 (c (+ a (/ b a))))
      (assert-equal a 121)
      (assert-equal b 200)
      (assert-equal c (+ a (/ b a)))))
  