anchor.diff:                                 '(1 2 3))
                            i))))
   
  +(define-test mapl.apply.1
  +  (let ((i 0))
  +    (assert-equal 6
  +                  (progn (apply (cadr (list 'a #'mapl))
  +				(list (mapl (lambda (sublist) (incf i (car sublist)))
  +					    '(1 2 3))))
  +                         i))))
  +
   (define-test mapl.error.1
  -  (assert-error 'type-error (mapl #'car 1)))
  +  (assert-error 'type-error (mapl #'car (if (twisted '(a b c)) 1 '(a b c)))))
   
   (define-test mapl.error.2
  -  (assert-error 'type-error (mapl #'car #(1 2 3))))
  +  (assert-error 'type-error (mapl #'car (if (twisted '(a b c)) #(1 2 3) '(a b c)))))
   
   (define-test mapl.error.3
     (assert-error 'type-error (mapl #'car '(1 2 . 3))))
   
   (define-test mapl.error.4
  -  (assert-error 'type-error (mapl #'car "1")))
  +  (assert-error 'type-error (mapl #'car (if (twisted '(a b c)) "1" '(a b c)))))
   
   (define-test mapl.error.5
     (assert-error 'error (mapl #'car)))
  
positive.code:   (assert-equal '(2 4) (mapcar #'+ '(1 2) '(1 2 3 4 5))))
  
  (define-test mapcar.error.1
    (assert-error 'type-error (mapcar #'1+ 1)))
  
  (define-test mapcar.error.2
    (assert-error 'type-error (mapcar #'1+ #(1 2 3))))
  
  (define-test mapcar.error.3
    (assert-error 'type-error (mapcar #'1+ '(1 2 . 3))))
  
  (define-test mapcar.error.4
    (assert-error 'type-error (mapcar #'1+ "1")))
  
  (define-test mapcar.error.5
    (assert-error 'error (mapcar #'1+)))
  
negative.code:   (assert-equal '()
  		(mapcan #'identity '())))
  
  (define-test mapcan.apply.1
    (let ((a (list 'a))
  	(b (list 'b))
  	(c (list 'c)))
      (assert-eq c
  	       (cddr (apply (cadr (list 'a #'mapcan))
  			    (list #'identity (list a b c)))))))
  
  (define-test mapcan.error.1
    (assert-error 'type-error
  		(mapcan #'car (if (twisted '(a b c)) 1 '((a) (b) (c))))))
  
  (define-test mapcan.error.2
    (assert-error 'type-error
  		(mapcan #'car (if (twisted '(a b c)) #(1 2 3) '((a) (b) (c))))))
  
  (define-test mapcan.error.3
    (assert-error 'type-error (mapcan #'car '(1 2 . 3))))
  
  (define-test mapcan.error.4
    (assert-error 'type-error
  		(mapcan #'car (if (twisted '(a b c)) "1" '((a) (b) (c))))))
  
  (define-test mapcan.error.5
    (assert-error 'error (mapcan #'car)))
  