anchor.diff:  (defun generate-normal-defstruct (name slot-descriptions conc-name constructors predicate area copier
                                     included-structure-name included-slot-descriptions
                                     print-object print-function print-object-specializer
  -                                  slot-offsets sealed docstring)
  +                                  slot-offsets sealed docstring slot-locations)
     (let* ((included-structure (when included-structure-name
                                  (convert-structure-class-to-structure-definition
                                   (get-structure-type included-structure-name)))))
  
positive.code:          (setf area (second option)))
          ;; (:slot-offsets)
          ;; Generate constants of the form +conc-name-slot-name+
          ;; that contain the byte offsets of the slots.
          ((and (eql (first option) :slot-offsets)
                (null (rest option)))
           (setf slot-offsets t))
  
negative.code:          (generate-normal-defstruct name slot-descriptions conc-name constructors predicate area copier
                                      included-structure-name included-slot-descriptions
                                      print-object print-function print-object-specializer
                                      slot-offsets sealed docstring slot-locations))
          ((eql type 'list)
           (generate-list-defstruct  name slot-descriptions conc-name constructors predicate area copier
                                     included-structure-name included-slot-descriptions
                                     print-object print-function print-object-specializer
                                     named slot-offsets sealed slot-locations))
          ((or (eql type 'vector)
               (and (listp type)
                    (eql (first type) 'vector)))
  