anchor.diff:  (defun 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)
  +                                named slot-offsets sealed slot-locations)
     (when slot-offsets
       (error ":SLOT-OFFSETS with LIST structures not supported yet."))
  +  (when slot-locations
  +    (error ":SLOT-LOCATIONS with LIST structures not supported yet."))
     (when sealed
       (error "Cannot use :SEALED on typed structures."))
     (when (or included-structure-name included-slot-descriptions)
  
positive.code:   (multiple-value-bind (name conc-name constructors predicate area copier
                          included-structure-name included-slot-descriptions
                          print-object print-function print-object-specializer
                          named type slot-offsets sealed)
        (parse-defstruct-options name-and-options)
      (let ((docstring nil))
        (when (stringp (first slot-descriptions))
  
negative.code:                                     named (if (listp type)
                                                (second type)
                                                't)
                                      slot-offsets sealed slot-locations))
          (t (error "Currently unsupported defstruct type ~S." type))))))
  