anchor.diff:  	(coordinates ()
   	  (format nil "~F,~F,0" (lon m) (lat m)))))
       (cl:when (addr m)
  -      (kml:address () (addr m)))
  +      (address () (addr m)))
       (description () (desc m))
       (style ()
         (iconstyle ()
  
positive.code: 	  "viewBoundScale" "viewFormat" "viewRefreshMode" "viewRefreshTime" "ViewVolume"
  	  "visibility"
  	  ;; "gx:Wait"
  	  "west" "when" "width")
  
  (defmacro with-kml-document (&body children)
    `(let ((*document* (dom:create-document
  
negative.code: (in-package :net.acceleration.buildnode)
  
  (buildnode::eval-always
    (unless (find-package :net.acceleration.buildnode.kml)
      (defpackage :net.acceleration.buildnode.kml
  	(:nicknames :kml :buildnode-kml)
  