anchor.diff:    "A dynamic variable to bind to current `theme' in `themed-css'.")
   
   (defvar background nil
  -  "A dynamic variable to bind `backround-color' of the current `theme' to in `themed-css'.")
  +  "A dynamic variable to bind to `backround-color' of the current `theme' in `themed-css'.")
   
   (defvar text nil
  -  "A dynamic variable to bind `text-color' of the current `theme' to in `themed-css'.")
  +  "A dynamic variable to bind to `text-color' of the current `theme' in `themed-css'.")
   
   (defvar primary nil
  -  "A dynamic variable to bind `primary-color' of the current `theme' to in `themed-css'.")
  +  "A dynamic variable to bind to `primary-color' of the current `theme' in `themed-css'.")
   
   (defvar secondary nil
  -  "A dynamic variable to bind `secondary-color' of the current `theme' to in `themed-css'.")
  -
  -(defvar secondary nil
  -  "A dynamic variable to bind `secondary-color' of the current `theme' to in `themed-css'.")
  +  "A dynamic variable to bind to `secondary-color' of the current `theme' in `themed-css'.")
   
   (defvar tertiary nil
  -  "A dynamic variable to bind `tertiary-color' of the current `theme' to in `themed-css'.")
  +  "A dynamic variable to bind to `tertiary-color' of the current `theme' in `themed-css'.")
   
   (defvar quaternary nil
  -  "A dynamic variable to bind `quaternary-color' of the current `theme' to in `themed-css'.")
  +  "A dynamic variable to bind to `quaternary-color' of the current `theme' in `themed-css'.")
   
   (defvar accent nil
  -  "A dynamic variable to bind `accent-color' of the current `theme' to in `themed-css'.")
  +  "A dynamic variable to bind to `accent-color' of the current `theme' in `themed-css'.")
   
   (defvar font-family nil
  -  "A dynamic variable to bind `font-family' of the current `theme' to in `themed-css'.")
  +  "A dynamic variable to bind to `font-family' of the current `theme' in `themed-css'.")
   
   (define-class theme ()
     ((dark-p
  
positive.code:   (:export-predicate-name-p t)
    (:accessor-name-transformer (class*:make-name-transformer name)))
  
  (defun regular-css-rule-p (rule)
    (loop for i below (length (rest rule))
          for elem in (rest rule)
          when (and (evenp i) (not (keywordp elem)))
            do (return nil)
          finally (return t)))
  
  (defun requote-rule (rule)
    (if (regular-css-rule-p rule)
        (cons 'list (mapcar (lambda (elem)
                              (typecase elem
                                (symbol (if (equalp "theme" (package-name (symbol-package elem)))
                                            elem `(quote ,elem)))
                                (atom (if (constantp elem)
                                          elem `(quote ,elem)))
                                (list elem)
  
negative.code: - `theme:accent' -- accent color of the THEME.
  - `theme:font' -- font family of the theme.
  
  Any non-atomic s-expression put as value of CSS property will be
  evaluated too, so you can put arbitrarily complex expressions as
  property values.
  
  Example: color all the paragraph text in accent color if the theme is dark, and
  in secondary color otherwise. Use the text color as background color. Make
  