anchor.diff:      (let* ((*accessor-seen-types* (list* (foreign-type-name foreign-record)
                                            *accessor-seen-types*))
              (*accessor-recursive-max-depth* (1- *accessor-recursive-max-depth*))
  +           (*accessor-declare* `(declare (type ,*accessor-record-name*
  +                                               ,*accessor-record-name*)))
              (ref (or ref `(ptr ,*accessor-record-name*))))
         (loop for field in (foreign-record-fields foreign-record)
               as accessor = (make-accessor-name field prefix)
  
positive.code: (defvar *accessor-seen-types* nil)
  (defvar *accessor-recursive-max-depth* 5)
  (defvar *accessor-index* 0)
  
  (defvar *wrapped-type-names* nil)
  
  
negative.code:         (make-normal-type-accessor field (foreign-type (foreign-type field))
                                     accessor ref)
          (progn
            (push `(defun ,accessor (,@(accessor-params))
                     ,*accessor-declare* ,(make-field-deref field ref))
                  *accessor-forms*)
            (push `(defun (setf ,accessor) (,(intern "V") ,@(accessor-params))
                     ,*accessor-declare* ,(make-field-setter field ref (intern "V")))
                  *accessor-forms*)
            (push `(export ',accessor ,*package*) *accessor-forms*)))))
  
  (defun make-simple-accessor (field accessor ref)
    (push `(defun ,accessor (,@(accessor-params)) ,*accessor-declare* ,(make-field-deref field ref))
          *accessor-forms*)
    (push `(defun (setf ,accessor) (,(intern "V") ,@(accessor-params)) ,*accessor-declare*
             ,(make-field-setter field ref (intern "V")))
          *accessor-forms*)
    (push `(export ',accessor ,*package*) *accessor-forms*))
  
  (defun make-child-accessor (accessor parent ref)
    (push `(defun ,accessor (,@(accessor-params))
             ,*accessor-declare*
             (make-child-wrapper :ptr ,ref :parent ,parent))
          *accessor-forms*)
    (push `(export ',accessor ,*package*) *accessor-forms*))
  