anchor.diff:        (attr (*ns-style* "use-optimal-column-width") (if use-optimal-width "true" "false")))))
   
   (export 'row-style)
  -(defstyle row-style (name &key height min-height (use-optimal-height nil opt-height-supplied) background)
  +(defstyle (row-style "table-row") (name &key height min-height (use-optimal-height nil opt-height-supplied) background)
     (with-tag ((*ns-style* "table-row-properties"))
       (when height
         (check-type height string)
  
positive.code:     (write-background background)))
  
  (export 'column-style)
  (defstyle column-style (name &key width rel-width (use-optimal-width nil opt-width-supplied))
    (with-tag ((*ns-style* "table-column-properties"))
      (when width
        (check-type width string)
  
negative.code:       (tag (*ns-number* "text") suffix))))
  
  (defmacro defstyle (name (&rest args) &body body)
    `(defun ,(if (listp name) (first name) name)
         ,(append args '(parent-style next-style data-style percentage-data-style))
       (with-tag ((*ns-style* "style"))
         (attr (*ns-style* "name") name)
         (attr (*ns-style* "family") ,(if (listp name)
  					(second name)
  					(string-downcase (subseq (symbol-name name) 0 (position #\- (symbol-name name))))))
         (when parent-style
  	 (attr (*ns-style* "parent-style-name") parent-style))
         (when next-style
  