anchor.diff:    (assert-equal '(2 4) (mapcar #'+ '(1 2) '(1 2 3 4 5))))
   
   (define-test mapcar.error.1
  -  (assert-error 'type-error (mapcar #'1+ 1)))
  +  (assert-error 'type-error (mapcar #'1+ (if (twisted '(a b c)) 1 '(a b c)))))
   
   (define-test mapcar.error.2
  -  (assert-error 'type-error (mapcar #'1+ #(1 2 3))))
  +  (assert-error 'type-error (mapcar #'1+ (if (twisted '(a b c)) #(1 2 3) '(a b c)))))
   
   (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")))
  +  (assert-error 'type-error (mapcar #'1+ (if (twisted '(a b c)) "1" '(a b c)))))
   
   (define-test mapcar.error.5
     (assert-error 'error (mapcar #'1+)))
  
positive.code:   (assert-equal '()
  		(mapcan #'identity '())))
  
  (define-test mapcan.error.1
    (assert-error 'type-error (mapcan #'car 1)))
  
  (define-test mapcan.error.2
    (assert-error 'type-error (mapcan #'car #(1 2 3))))
  
  (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 "1")))
  
  (define-test mapcan.error.5
    (assert-error 'error (mapcan #'car)))
  
negative.code: ;;; Tests for the mapc function
  
  (define-test mapc.1
    (assert-equal '() (mapc #'1+ '())))
  
  (define-test mapc.2
    (let ((i 0))
  