anchor.diff:          (some-evens nil))
       (setf fruits '(orange pomello clementine))
       (setf some-evens (list (* 2 1) (* 2 2) (* 2 3)))
  -    (assert-equal fruits ___)
  -    (assert-equal ___ (length some-evens))))
  +    (assert-equal fruits '(orange pomello clementine))
  +    (assert-equal 3 (length some-evens))))
   
   
   (define-test test-list-cons
  
positive.code:       (assert-equal '(10 20 30 40) stack)
  
        (setf firstval (pop stack))
        (assert-equal ___ firstval)
        (assert-equal ___ stack)))
  
  
  (define-test test-append
  
negative.code:       (assert-equal '(:one) nums)
  
        (setf nums (cons :two nums))
        (assert-equal '(:two :one) nums)
  
        "lists can contain anything, even mixtures of different things"
        (setf nums (cons 333 nums))
        (assert-equal '(333 :two :one) nums)
  
        "lists can of course contain lists"
        (setf nums (cons '("the" "rest") nums))
        (assert-equal '(("the" "rest") 333 :two :one) nums)))
  
  
  (define-test test-push-pop
  