anchor.diff:    (setf a 100)
     (let ((a 5)
           (b (* 10 a)))
  -    (assert-equal b ___)))
  +    (assert-equal b 1000))) ;; curious, let is trap that way! hahaha use let*
   
   (define-test test-let*-bindings-are-series
       "let* is like let, but successive bindings may use values of previous ones"
     (setf a 100)
     (let* ((a 5)
            (b (* 10 a)))
  -    (assert-equal b ___))
  -  (assert-equal a ___))
  +    (assert-equal b 50))
  +  (assert-equal a 100))
   
   
   (define-test write-your-own-let-statement
  
positive.code:     "setf is used to assign values to symbols.  These symbols may refer to
       variables with lexical or dynamic scope."
    (setf my-name "David")
    (assert-equal my-name ____)
    " In SBCL, if the symbol isn't defined as a variable, via a top-level defvar
    or let statement, the setf call may result in a warning."
    (setf my-clones-name my-name)
    (assert-equal "David" ____)
    (setf a 5)
    (setf b 10)
    (setf c ___)
    (assert-equal 50 c))
  
  
  
negative.code:         (cond ((> a 0) :positive)
                ((< a 0) :negative)
                (t :zero)))
    (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)
          ((equal input :bart) :homer)
          ((equal input :stewie) :peter)
          ((equal input :stan) :randy)
          (t :unknown)))
  
  (define-test test-your-own-cond-statement
  