anchor.diff:  						   1)
   						  (t 2.5))))
   				       (/ (* 10 (length value)) den)))))
  +			 
  +			 
  +			 (when column-info
  +			 )	  
   			 (<cell>  
   			  value
   			  :row row
  
positive.code: 		 (empty-document)))))
      (prog1 empty
        (when name (setf (spreadsheet-name empty) name)))))
  
  (defstruct spreadsheet-title 
    title 
  
negative.code:     
      
      (stp:delete-children sheets)
      (when title 
        (adopt-children (spreadsheet-rows sheet)
  		      (spreadsheet-rows title))
        (adopt-children (spreadsheet-columns sheet)
  		      (spreadsheet-columns title))
  
        (if (spreadsheet-merged-regions sheet)
  	  (adopt-children (spreadsheet-merged-regions sheet)
  			  (spreadsheet-merged-regions title))
  	  (stp:append-child sheet (stp:copy (spreadsheet-merged-regions title))))
      
  		    
        (adopt-children (spreadsheet-cells sheet) 
  		      title-cells)
      #+n(adopt-children (spreadsheet-styles title)
  		       (spreadsheet-styles sheet))
      #+n(stp:delete-children (spreadsheet-styles sheet))
      (adopt-children (spreadsheet-styles sheet)
  		    (spreadsheet-styles title)))
  
      (stp:delete-children sheet-name-index)
      (stp:append-child sheet-name-index  
  