anchor.diff:  		    
         (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  
  -		      (<gnm> (<> ("gnm:SheetName" "Cols" "256" "Rows" "65536")
  -			       (<> (:text (spreadsheet-name sheet))))))
  -					;
  -					;<gnm:SheetName gnm:Cols="256" gnm:Rows="65536">Sheet1</gnm:SheetName>
  -
  -    (stp:append-child sheets sheet)
  -    
  -    (let* ((cell-rows (mapcar #'cell-row 
  +    
  +      (adopt-children (spreadsheet-styles sheet)
  +                      (spreadsheet-styles title)))
  +
  +
  + (let* ((cell-rows (mapcar #'cell-row 
   			      (remove-if-not (lambda (e) (typep e 'stp:element))
   					     (stp:list-children (spreadsheet-cells sheet)))))
  -	   (cell-cols (mapcar #'cell-column 
  +	   #+(or)(cell-cols (mapcar #'cell-column 
   			      (remove-if-not (lambda (e) (typep e 'stp:element))
   					     (stp:list-children (spreadsheet-cells sheet)))))
   	   (cell-min-row (+ 3 title-max-row))
  
positive.code:                       :start-row (1+ (cell-row c)) 
                        :foreground-color "4444:4444:4444"
                        (unless format-dollarsign
                          (list :format "0.00")))))))
        document)))
  
  #+(or)(defun create-white-oak-spreadsheet (report &key title name)
    (let* ((sheet (create-spreadsheet-from-alist 
  
negative.code:   sheet)
      
  		    
  (defun create-spreadsheet 
      (report 
       &key 
         title name start-row 
         (format-dollarsign t)
         (document (empty-document))
         (create-header t)
         (document-sheet-name nil))
         
    (let* ((title (when title (create-spreadsheet-from-title title)))
  	 (title-cells (when title (spreadsheet-cells title)))
  	 (title-max-row 
  	  (if (not title) 
  	      -2
  	      (apply #'max (mapcar #'cell-row 
  				   (remove-if-not (lambda (e) (typep e 'stp:element))
  						  (stp:list-children title-cells))))))
           (start-row (or start-row (+ 2 title-max-row)))
           (sheet (create-spreadsheet-from-alist 
                   name report  
                   :start-row start-row
                   :format-dollarsign format-dollarsign
                   :create-header? create-header))
  	 (sheets (stp:find-recursively-if 
  		  (of-name "Sheets") document))
  	 (sheet-name-index 
  	  (stp:find-recursively-if (of-name "SheetNameIndex") document))
           (delete-document-sheets (not document-sheet-name)))
      
      
      (when delete-document-sheets 
        (stp:delete-children sheets)
        (stp:delete-children sheet-name-index)
        (stp:append-child sheet-name-index  
                          (<gnm> (<> ("gnm:SheetName" "Cols" "256" "Rows" "65536")
                                   (<> (:text (spreadsheet-name sheet)))))))
  
      (when title 
        (adopt-children (spreadsheet-rows sheet)
  		      (spreadsheet-rows title))
  