anchor.diff:  (define-test mapcar.error.4
     (assert-error 'type-error (mapcar #'1+ "1")))
   
  +(define-test mapcar.error.5
  +  (assert-error 'error (mapcar #'1+)))
  +
   (define-test mapcar.order.1
     (let ((i 0)
           (funs (vector #'1+ #'1-))
  
positive.code: (define-test mapl.error.4
    (assert-error 'type-error (mapl #'car "1")))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Tests for the mapcan function
  
negative.code: (define-test mapc.error.4
    (assert-error 'type-error (mapc #'1+ "1")))
  
  (define-test mapc.error.5
    (assert-error 'error (mapc #'1+)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Tests for the maplist function
  