anchor.diff:                (t copier-name))
               included-structure-name included-slot-descriptions
               print-object print-function print-object-specializer
  -            named type)))
  +            named type slot-offsets)))
   
   ;; Parses slot-description and produces:
   ;; (slot-name accessor-name initform type read-only)
  
positive.code:                                     print-object print-function print-object-specializer
                                      named (if (listp type)
                                                (second type)
                                                't)))
          (t (error "Currently unsupported defstruct type ~S." type))))))
  
negative.code:                                 (eql (first type) 'vector)
                                  (= (length type) 2)))
                   (error "Invalid :TYPE option ~S.%" option)))
                ;; :slot-offsets
                ((eql option :slot-offsets)
                 (setf slot-offsets t))
                (t (error "Unsupported DEFSTRUCT option ~S" option))))))
      (values name
              (if conc-namep
  