anchor.diff:          (conc-name nil)
           (included-structure-name nil)
           (included-slot-descriptions nil)
  -        (included-structure nil))
  +        (included-structure nil)
  +        (print-object nil)
  +        (print-function nil)
  +        (print-object-specializer nil))
       (if (symbolp name-and-options)
   	(setf name name-and-options)
   	(progn
  
positive.code:                  (error "Multiple :INCLUDE options in DEFSTRUCT."))
                 (setf included-structure-name (second option)
                       included-slot-descriptions (cddr option)))
  	      (t (error "Unsupported DEFSTRUCT option ~S" option))))))
      (values name
              (when conc-namep
  
negative.code:              (list `(defun ,copier (object)
                        (check-type object ,name)
                        (copy-structure object))))
           ,@(when print-object
               (list `(defmethod print-object ((object ,name) stream)
                        (funcall (function ,print-object) object stream))))
           ,@(when print-function
               (list `(defmethod print-object ((object ,name) stream)
                        (funcall (function ,print-function) object stream 0))))
  	 ,@(let ((n 0))
  	     (mapcar (lambda (s)
  		       (setf n (1+ n))
  