anchor.diff:  		    (((0 . 0) . (0 . 0)) . ((1 . 0) . (0 . 0))))
   		  list)))
   
  -(define-test setf.caaddr.error.1
  +(define-test |setf caaddr error 1|
     (let ((list 0))
       (assert-error 'type-error
   		  (setf (caaddr list) 1))))
   
  -(define-test setf.caaddr.error.2
  +(define-test |setf caaddr error 2|
     (let ((list (copy-tree '((((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))) . 
   			   (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0)))))))
       (setf (cdr list) 0)
       (assert-error 'type-error
   		  (setf (caaddr list) 1))))
   
  -(define-test setf.caaddr.error.3
  +(define-test |setf caaddr error 3|
     (let ((list (copy-tree '((((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))) . 
   			   (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0)))))))
       (setf (cddr list) 0)
       (assert-error 'type-error
   		  (setf (caaddr list) 1))))
   
  -(define-test setf.caaddr.error.4
  +(define-test |setf caaddr error 4|
     (let ((list (copy-tree '((((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))) . 
   			   (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0)))))))
       (setf (caddr list) 0)
  
positive.code: ;;;
  ;;; Tests for the (setf caadr) function
  
  (define-test setf.caadr.1
    (let ((list (copy-tree '((((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))) .
  			   (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0)))))))
      (assert-equal 1 (setf (caadr list) 1))
  
negative.code: ;;;
  ;;; Tests for the (setf caaar) function
  
  (define-test |setf caaar 1|
    (let ((list (copy-tree '(((0 0) 0) 0))))
      (assert-equal 1 (setf (caaar list) 1))
      (assert-equal '(((1 0) 0) 0) list)))
  
  (define-test |setf caaar error 1|
    (let ((list '()))
      (assert-error 'type-error
  		  (setf (caaar list) 1))))
  
  (define-test |setf caaar error 2|
    (let ((list 0))
      (assert-error 'type-error
  		  (setf (caaar list) 1))))
  
  (define-test |setf caaar error 3|
    (let ((list (copy-tree '(0 0))))
      (assert-error 'type-error
  		  (setf (caaar list) 1))))
  
  (define-test |setf caaar error 4|
    (let ((list (copy-tree '((0 0) 0))))
      (assert-error 'type-error
  		  (setf (caaar list) 1))))
  
  (define-test |setf caaar error 5|
    (let ((list (copy-tree '((() 0) 0))))
      (assert-error 'type-error
  		  (setf (caaar list) 1))))
  