anchor.diff:  	       (concat-symbols 'copy- name))
   	      ;; Explicit copier.
   	      (t predicate-name))
  -            included-structure-name included-slot-descriptions)))
  +            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)
  
positive.code:              (list `(defun ,copier (object)
                        (check-type object ,name)
                        (copy-structure object))))
  	 ,@(let ((n 0))
  	     (mapcar (lambda (s)
  		       (setf n (1+ n))
  
negative.code:                  (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
  