anchor.diff:  	      ;; Explicit copier.
   	      (t copier-name))
               included-structure-name included-slot-descriptions
  -            print-object print-function print-object-specializer)))
  +            print-object print-function print-object-specializer
  +            named type)))
   
   ;; Parses slot-description and produces:
   ;; (slot-name accessor-name initform type read-only)
  
positive.code: 			 (generate-simple-defstruct-constructor struct-type x area)
  			 (generate-defstruct-constructor struct-type (first x) (second x) area)))
  		   constructors)
  	 ',name))))
  
negative.code:         (included-structure nil)
          (print-object nil)
          (print-function nil)
          (print-object-specializer nil)
          (type nil)
          (named nil))
      (if (symbolp name-and-options)
  	(setf name name-and-options)
  	(progn
  