anchor.diff:      (write-background background)))
   
   (export 'column-style)
  -(defstyle column-style (name &key width rel-width (use-optimal-width nil opt-width-supplied))
  +(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)
  
positive.code:     (write-background background)))
  
  (export 'cell-style)
  (defstyle cell-style (name text-properties &key vertical-align text-align-source background
  			   border border-left border-top border-right border-bottom
  			   (wrap nil wrap-supplied))
    (with-tag ((*ns-style* "table-cell-properties"))
      (when vertical-align
        (check-type vertical-align (member :top :middle :bottom :automatic))
  
negative.code:     (dolist (file files)
        (with-open-file (f (cdr file) :direction :input :element-type '(unsigned-byte 8))
  	(zip:write-zipentry zip (car file) f)))))
  
  (defun kw-to-string (kw &optional allowed)
    (check-type kw keyword)
  