anchor.diff:       (setf *sheet-state* :fonts-defined)))
   
   (export 'font)
  -(defun font (name &key family style weight size variant stretch)
  +(defun font (name &key adornments family family-generic style weight size variant stretch)
     (unless (eq *sheet-state* :with-fonts)
       (error "font must be called in the context of a with-fonts form"))
     (with-tag ((*ns-style* "font-face"))
       (attr (*ns-style* "name") name)
  +    (when adornments
  +      (check-type adornments string)
  +      (attr *ns-svg* "font-adornments") adornments)
       (when family (attr (*ns-svg* "font-family") family))
  +    (when family-generic (attr (*ns-svg* "font-family") (kw-to-string family-generic '(:roman :swiss :modern :decorative :script :system))))
       (when style (attr (*ns-svg* "font-style") (kw-to-string style '(:normal :italic :oblique))))
       (when weight (attr (*ns-svg* "font-weight")
   		       (if (numberp weight)
  
positive.code:     (when wrap-supplied
        (attr (*ns-fo* "wrap-option") (if wrap "wrap" "no-wrap"))))
    (when text-properties
      (write-text-properties text-properties)))
  
  
  (export 'with-body)
  
negative.code: 					   (typecase (or raw-value content)
  					     (real "float")
  					     (t "string"))))
        (unless (or (null value-type)
  		  (eq value-type :string))
  	(attr (*ns-office* (case (or value-type :float)
  			     ((:float :percentage :currency) "value")
  			     (:date "date-value")
  