anchor.diff:  
   (define-special-block namespace (prefix/namespace &optional namespace)
     (list (list :attribute (format NIL "@namespace ~a~@[ ~a~]"
  -                                 (selective-downcase prefix/namespace)
  -                                 (when namespace (selective-downcase namespace))))))
  +                                 (resolve prefix/namespace)
  +                                 (when namespace (resolve namespace))))))
   
   (define-special-block page (pseudo-class &rest body)
     (compile-block (format NIL "@page ~a"
                            (if (keywordp pseudo-class)
                                (format NIL ":~a" (string-downcase pseudo-class))
  -                             (selective-downcase pseudo-class))) body))
  +                             (resolve pseudo-class))) body))
   
   (define-special-block supports (selector &rest body)
     (let ((inner (apply #'compile-sheet body)))
  
positive.code: 
  (define-special-block import (url &rest media-queries)
    (list (list :attribute (format NIL "@import ~a~{ ~a~}"
                                   (selective-downcase url)
                                   (mapcar #'selective-downcase media-queries)))))
  
  (define-special-block keyframes (identifier &rest body)
    (let ((inner (apply #'compile-sheet body)))
      (list (cons :block
                  (cons (list (format NIL "@keyframes ~a" (selective-downcase identifier)))
                        inner)))))
  
  (define-special-block media (selector &rest body)
  
negative.code:          ,@body))))
  
  (define-special-block charset (charset)
    (list (list :attribute (format NIL "@charset ~a" (resolve charset)))))
  
  (define-special-block document (selector &rest body)
    (let ((inner (apply #'compile-sheet body)))
  