anchor.diff:  		 "Data" "Font"  "Interior" "NamedCell" "NamedRange" "Names" 
   		 "NumberFormat" "Protection" "Row" "Style" "Styles" "Table" 
   		 "Workbook" "Worksheet" )
  -    (#:currency-cell #:date-cell))
  +    (#:currency-cell #:date-cell #:string-cell))
   
   (excel-tag-package :urn.schemas-microsoft-com.office.excel :x
       ("AutoFilter" "AutoFilterAnd" "AutoFilterColumn" "AutoFilterCondition"
   		  "AutoFilterOr" "Footer" "Header" "Layout" "PageMargins" "PageSetup"
  -		  "PhoneticText" "WorksheetOptions") )
  +		  "PhoneticText" "WorksheetOptions"))
   
   (excel-tag-package :urn.schemas-microsoft-com.office.office :o
       ("Smarts" "SmartType" "DocumentProperties" "Author" "LastAuthor"
  
positive.code: 
  
  
  
  
  (defmacro with-excel-workbook (() &body chillins)
    `(let ((*namespace-prefix-map* +excel-namespaces+))
       (with-document ()
         (?mso-application)
         (ss:workbook () ,@chillins))))
  
  (defmacro with-excel-workbook-string (() &body chillins)
    `(with-output-to-string (s)
       (let ((doc (buildnode::with-excel-workbook () ,@chillins)))
         (write-document doc s))))
  
  (defparameter +valid-data-types+
  
negative.code:   '(("Date" . "")
      ("DateTime" . "")))
  
  (defun add-default-excel-styles ()
    (add-style
     "Default" :name "Normal"
     :styles (list (ss:alignment '("ss:Vertical" "Bottom" "ss:Horizontal" "Left"))
  		 (ss:font `("ss:FontName" "Arial" "x:Family" "Swiss"
  					  "ss:Size" "11" "ss:Color" "#000000"))))
    (add-style
     "ShortDate" :parent "Default"
     :styles (list (ss:numberformat '("ss:Format" "Short Date"))))
    (add-style
     "Currency" :parent "Default"
     :styles (list (ss:numberformat
  		     '("ss:Format" "_(\"$\"* #,##0.00_);_(\"$\"* \(#,##0.00\);_(\"$\"* \"-\"??_);_(@_)")))))
  
  (defun ss::date-cell (v &optional (style-id "ShortDate"))
    (ss:cell `("ss:StyleID" ,style-id)
      (ss:data '("ss:Type" "DateTime")
        v)))
  
  (defun ss::currency-cell (v &optional (style-id "Currency"))
    (ss:cell `("ss:StyleID" ,style-id)
      (ss:data '("ss:Type" "Number")
        v)))
  
  (defun ss::string-cell (v &optional (style-id "Default"))
    (ss:cell `("ss:StyleID" ,style-id)
      (ss:data '("ss:Type" "String")
        v)))
  
  (defun simple-excel-test ( &optional file)
    (let ((res (with-excel-workbook-string ()
  	       (ss:worksheet `("ss:Name" "First WorkSheet")
  		 (ss:table ()
  		   (iter (for i from 0 to 5)
  			 (collect 
  			     (ss:row ()
  			       (ss:string-cell "Here is string data")
  			       (ss:currency-cell "42838.0311111111111111")
  			       (ss::date-cell "2010-08-10T00:00:00.000"))))))
  	       )))
  