anchor.diff:  (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
  
positive.code: (define-test mapl.error.4
    (assert-error 'type-error (mapl #'car "1")))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Tests for the mapcan function
  
negative.code: 
  (define-test maplist.error.4
    (assert-error 'type-error (maplist #'car "1")))
  
  (define-test maplist.error.5
    (assert-error 'error (maplist #'car)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  