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