anchor.diff:                   (error "Multiple :INCLUDE options in DEFSTRUCT."))
                  (setf included-structure-name (second option)
                        included-slot-descriptions (cddr option)))
  +              ;; (:print-object) or (:print-function)
  +              ((and (consp option)
  +                    (member (first option) '(:print-object :print-function))
  +                    (null (cdr option)))
  +               (when (or print-function print-object print-object-specializer)
  +                 (error "Multiple :PRINT-OBJECT or :PRINT-FUNCTION options specified."))
  +               (setf print-object-specializer t))
  +              ;; (:print-object function-name)
  +              ((and (consp option)
  +                    (eql (first option) :print-object)
  +                    (null (cddr option)))
  +               (when (or print-function print-object print-object-specializer)
  +                 (error "Multiple :PRINT-OBJECT or :PRINT-FUNCTION options specified."))
  +               (setf print-object (second option)))
  +              ;; (:print-function function-name)
  +              ((and (consp option)
  +                    (eql (first option) :print-function)
  +                    (null (cddr option)))
  +               (when (or print-function print-object print-object-specializer)
  +                 (error "Multiple :PRINT-OBJECT or :PRINT-FUNCTION options specified."))
  +               (setf print-function (second option)))
   	      (t (error "Unsupported DEFSTRUCT option ~S" option))))))
       (values name
               (when conc-namep
  
positive.code:         (conc-name nil)
          (included-structure-name nil)
          (included-slot-descriptions nil)
          (included-structure nil))
      (if (symbolp name-and-options)
  	(setf name name-and-options)
  	(progn
  
negative.code: 	       (concat-symbols 'copy- name))
  	      ;; Explicit copier.
  	      (t predicate-name))
              included-structure-name included-slot-descriptions
              print-object print-function print-object-specializer)))
  
  ;; Parses slot-description and produces:
  ;; (slot-name accessor-name initform type read-only)
  