anchor.diff:  
   (defun create-spreadsheet-from-alist (name alist
   				      &key 
  +                                        (format-dollarsign t)
   					(create-header? t)
   					(start-row 0)
   					(start-column 0))
  
positive.code: 							  value-type)
  						   1)
  						  (t 2.5))))
  				       (/ (* 10 (length value)) den)))))
  			 
  			 
  			 (when column-info
  
negative.code:   sheet)
      
  		    
  (defun create-spreadsheet (report &key title name (format-dollarsign t))
    (let* ((title (when title (create-spreadsheet-from-title title)))
  	 (title-cells (when title (spreadsheet-cells title)))
  	 (title-max-row 
  