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:                                 (eql (first type) 'vector)
                                  (= (length type) 2)))
                   (error "Invalid :TYPE option ~S.%" option)))
                (t (error "Unsupported DEFSTRUCT option ~S" option))))))
      (values name
              (if conc-namep
  
negative.code: (defun generate-vector-defstruct (name slot-descriptions conc-name constructors predicate area copier
                                    included-structure-name included-slot-descriptions
                                    print-object print-function print-object-specializer
                                    named inner-type slot-offsets)
    (when slot-offsets
      (error ":SLOT-OFFSETS with VECTOR structures not supported yet."))
    (when (and named (not (eql inner-type 't)))
      (error "Named VECTOR struct with non-T type."))
    (when (or included-structure-name included-slot-descriptions)
  