anchor.diff:    (setf (getf hash :name) "Eitarow Fukamachi")
   
     (is-print (doeach ((key val) hash)
  -              (princ "${key}: ${val}\n"))
  +              (format t "~A: ~A\n" key val))
               "NAME: Eitarow Fukamachi\n"
               "doeach (hash-table)"))
   
  
positive.code:     '(10 20 30 40 50)
      "doeach (list)")
  (is-print (doeach ((i j) '((1 2) (3 4)))
              (princ "${i} - ${j}\n"))
            "1 - 2\n3 - 4\n"
            "doeach (list) with destructuring-binding")
  (is-print (doeach ((i j &rest k) '((1 2 3) (3 4 5)))
              (princ "${i} - ${j} - ${k}\n"))
            "1 - 2 - (3)\n3 - 4 - (5)\n"
            "doeach (list) with destructuring-binding")
  (is (collecting
  
negative.code:     '(10 20 30 40 50)
      "doeach (vector)")
  (is-print (doeach ((i j) #('(1 2) '(3 4)))
              (format t "~A - ~A\n" i j))
            "1 - 2\n3 - 4\n"
            "doeach (vector) with destructuring-binding")
  
  