anchor.diff:      (error "span-rows not implemented properly yet")))
   
   (export 'cells)
  -(defun cells (&rest content)
  +(defun cells (content &rest options)
     (dolist (i content)
  -    (cell i)))
  +    (apply #'cell i options)))
  
positive.code:       (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)
    (with-tag ((*ns-style* "table-row-properties"))
      (when height
        (check-type height string)
  
negative.code:     (write-background background)))
  
  (export 'column-style)
  (defstyle (column-style "table-column") (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)
  