anchor.diff:  		    (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))))
   		  list)))
   
  -(define-test setf.caddar.error.1
  +(define-test |setf caddar error 1|
     (let ((list 0))
       (assert-error 'type-error
   		  (setf (caddar list) 1))))
   
  -(define-test setf.caddar.error.2
  +(define-test |setf caddar 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 (caddar list) 1))))
   
  -(define-test setf.caddar.error.3
  +(define-test |setf caddar 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 (caddar list) 1))))
   
  -(define-test setf.caddar.error.4
  +(define-test |setf caddar error 4|
     (let ((list (copy-tree '((((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))) . 
   			   (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0)))))))
       (setf (cddar list) 0)
  
positive.code: 		    (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))))
  		  list)))
  
  (define-test setf.cdddar.error.1
    (let ((list 0))
      (assert-error 'type-error
  		  (setf (cdddar list) 1))))
  
  (define-test setf.cdddar.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 (cdddar list) 1))))
  
  (define-test setf.cdddar.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 (cdddar list) 1))))
  
  (define-test setf.cdddar.error.4
    (let ((list (copy-tree '((((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0))) . 
  			   (((0 . 0) . (0 . 0)) . ((0 . 0) . (0 . 0)))))))
      (setf (cddar list) 0)
  
negative.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))
  