anchor.diff:               color
                color-interpolation
                color-rendering
  -             externalResourcesRequired
  +             "externalResourcesRequired"
                x1
                y1
                x2
                y2
  -             gradientUnits
  -             gradientTransform
  -             spreadMethod)
  +             "gradientUnits"
  +             "gradientTransform"
  +             "spreadMethod")
   
   (def-svg-tag metadata
                svg
  
positive.code: 
  (defmacro def-svg-tag-humpback (name &rest attributes)
    (let ((effective-attributes attributes))
    `(deftag ,(intern (string-upcase name)) (&attribute ,@effective-attributes &body body)
       (emit-open-tag ,name
                      (list ,@(mapcar (lambda (attr)
                                        `(cons 
  
negative.code:              stroke-linejoin
               stroke-miterlimit
               stroke-width
    style
               color
               color-interpolation
               color-rendering
  