anchor.diff:    (defun WRONG-FUNCTION-1 (&rest rest) '())
     (defun transpose (L) (apply #'mapcar (cons #'WRONG-FUNCTION-1 L)))
     (assert-equal '((1 4 7)
  -                  (2 5 8) 
  -                  (3 6 9)) 
  -                (transpose '((1 2 3) 
  -                             (4 5 6) 
  +                  (2 5 8)
  +                  (3 6 9))
  +                (transpose '((1 2 3)
  +                             (4 5 6)
                                (7 8 9))))
     (assert-equal '(("these" "pretzels" "are")
                     ("making" "me" "thirsty"))
  
positive.code:     "The mapcar function can be applied to
       more than one list. It applies a function
       to successive elements of the lists."
    (assert-equal ____ (mapcar #'* '(1 2 3) '(4 5 6)))
    (assert-equal ____ (mapcar #'list '("lisp" "are") '("koans" "fun"))))
  
  
  (define-test test-transpose-using-mapcar
  
negative.code:     "We can apply a function to each member
       of a list using mapcar."
    (defun times-two (x) (* x 2))
    (assert-equal '(2 4 6) (mapcar #'times-two '(1 2 3)))
    (assert-equal '(3 "little" "pigs") (mapcar #'first '((3 2 1)
                                        ("little" "small" "tiny")
                                        ("pigs" "hogs" "swine")))))
  
  
  