anchor.diff:            (include          (get-option :include        options))
             (initial-offset   (get-option :initial-offset options))
             (structure-type-p (get-option :type           options))
  -          (structure-type   (get-option :type           options)))
  +          (structure-type   (get-option :type           options))
  +          (namedp           (get-option :named          options :boolean t)))
         (when (and print-object print-function)
           (error 'simple-program-error
                  :format-control "Cannot have :print-object and :print-function options."))
  
positive.code:                      nil
                       (cdr name-and-options))))
      (let ((conc-name        (get-option :conc-name      options))
            (constructors     (get-option :constructor    options :list))
            (copier           (get-option :copier         options))
            (predicate        (get-option :predicate      options))
            (print-function   (get-option :print-function options))
  
negative.code:         (values name conc-name constructors copier
                  include initial-offset predicate
                  print-function print-object
                  (not (not structure-type-p)) (car structure-type)
                  namedp)))))
  
  (defun parse-structure-definition (name-and-options doc-and-slots)
    (multiple-value-bind (name conc-name constructors copier
                          include initial-offset predicate
                          print-function print-object
                          structure-type-p structure-type namedp)
        (parse-structure-name-and-options name-and-options)
      (let ((documentation (if (stringp (car doc-and-slots))
                               (car doc-and-slots)
  