anchor.diff:  (define-test mapl.error.5
     (assert-error 'error (mapl #'car)))
   
  +(define-test mapl.apply.error.1
  +  (assert-error 'type-error
  +		(apply #'mapl (list #'list '(1 2) '(3 . 4)))))
  +
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
   ;;; Tests for the mapcan function
  
positive.code: (define-test mapc.error.5
    (assert-error 'error (mapc #'1+)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Tests for the maplist function
  
negative.code: (define-test mapcan.error.5
    (assert-error 'error (mapcan #'car)))
  
  (define-test mapcan.apply.error.1
    (assert-error 'type-error
  		(apply #'mapcan (list #'list '(1 2) '(3 . 4)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Tests for the mapcon function
  