anchor.diff:  		    (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))))
   		  list)))
   
  -(define-test setf.cdaar.error.1
  +(define-test |setf cdaar error 1|
     (let ((list 0))
       (assert-error 'type-error
   		  (setf (cdaar list) 1))))
   
  -(define-test setf.cdaar.error.2
  +(define-test |setf cdaar error 2|
     (let ((list (copy-tree '(0 .
   			   (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0)))))))
       (assert-error 'type-error
   		  (setf (cdaar list) 1))))
   
  -(define-test setf.cdaar.error.3
  +(define-test |setf cdaar error 3|
     (let ((list (copy-tree '((0                   . ((0 . 0) . (0 . 0))) .
   			   (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0)))))))
       (assert-error 'type-error
  
positive.code: 		    (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))))
  		  list)))
  
  (define-test setf.caadar.error.1
    (let ((list 0))
      (assert-error 'type-error
  		  (setf (caadar list) 1))))
  
  (define-test setf.caadar.error.2
    (let ((list (copy-tree '((((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))) . 
  			   (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0)))))))
      (setf (car list) 0)
      (assert-error 'type-error
  		  (setf (caadar list) 1))))
  
  (define-test setf.caadar.error.3
    (let ((list (copy-tree '((((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))) . 
  			   (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0)))))))
      (setf (cdar list) 0)
      (assert-error 'type-error
  		  (setf (caadar list) 1))))
  
  (define-test setf.caadar.error.4
    (let ((list (copy-tree '((((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))) . 
  			   (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0)))))))
      (setf (cadar list) 0)
  
negative.code: 			      '(((b a) . b) nil ((a b) c) ((d) e))
  			      :key #'car)))
  
  (define-test |assoc-if-not error 1|
    (assert-error 'type-error
  		(assoc-if-not (complement (lambda (x) (eq x 'a)))
  			      '((b . c) nil d (a b)))))
  