anchor.diff:        (assert-equal '(10 20 30 40) stack)
   
         (setf firstval (pop stack))
  -      (assert-equal ___ firstval)
  -      (assert-equal ___ stack)))
  +      (assert-equal 10 firstval)
  +      (assert-equal '(20 30 40) stack)))
   
   
   (define-test test-append
  
positive.code:       (assert-equal '(:one) nums)
  
        (setf nums (cons :two nums))
        (assert-equal ___ nums)
  
        "lists can contain anything, even mixtures of different things"
        (setf nums (cons 333 nums))
        (assert-equal ___ nums)
  
        "lists can of course contain lists"
        (setf nums (cons '("the" "rest") nums))
        (assert-equal ___ nums)))
  
  
  (define-test test-push-pop
      (let ((stack '(10 20 30 40))
  
negative.code:         (xyz '(:x :y :z))
          (abcxyz nil))
      (setf abcxyz (append abc xyz))
      (assert-equal '(:a :b :c) abc)
      (assert-equal '(:x :y :z) xyz)
      (assert-equal '(:a :b :c :x :y :z) abcxyz)))
  
  
  (define-test test-accessing-list-elements
  