anchor.diff:    (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)
  +                        named type slot-offsets sealed slot-locations)
         (parse-defstruct-options name-and-options)
       (let ((docstring nil))
         (when (stringp (first slot-descriptions))
  
positive.code:                             (generate-normal-defstruct-slot-accessor name struct-type s))
                  when slot-offsets
                  collect `(defconstant ,(concat-symbols "+" (structure-slot-definition-accessor s) "+")
                             ',(mezzano.runtime::location-offset-t (structure-slot-definition-location s))))
             ,@(loop
                  for x in constructors
                  collect (if (symbolp x)
  
negative.code:          (setf area (second option)))
          ;; (:slot-offsets)
          ;; Generate constants of the form +conc-name-slot-name+
          ;; that contain the indices of the slots.
          ((and (eql (first option) :slot-offsets)
                (null (rest option)))
           (setf slot-offsets t))
  