anchor.diff: -(in-package :sicl.cons.high)
  +(in-package :sicl-cons-high)
   
   ;;; We want for error messages to be phrased in terms of a construct
   ;;; that was directly used by the user's code.  So for instance, if
  
positive.code: (define-setf-c*r-function cdddar "DDDA")
  (define-setf-c*r-function cddddr "DDDD")
  
  (define-setf-c*r-function first   "A")
  (define-setf-c*r-function second  "AD")
  (define-setf-c*r-function third   "ADD")
  (define-setf-c*r-function fourth  "ADDD")
  
negative.code:                       (setf remaining
                              (,(primitive letter) remaining))
                        (error ,(generate-c*r-message function-name
                                                                  prefix))))))
        `(defun ,function-name (list)
           (let ((remaining list))
             ,@(loop for letter across (reverse letters)
                     collect (one-iteration letter prefix)
                     collect letter into prefix)
             remaining)))))
  
  (define-c*r-function caar "AA")
  (define-c*r-function cadr "AD")
  