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 maplist.error.5
    (assert-error 'error (maplist #'car)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: (define-test |mapcon error 3|
    (assert-error 'error
  		(mapcon #'car)))
  
  (define-test |mapcon apply error 1|
    (assert-error 'type-error
  		(apply #'mapcon (list #'list '(1 2) '(3 . 4)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  