anchor.diff:  		    ,s))
   	     (collect `(export ',s :kml)))))
   
  -(kml-tags "AbstractView" "address" "AddressDetails" "Alias" "altitude"
  +(buildnode::eval-always
  + (kml-tags "AbstractView" "address" "AddressDetails" "Alias" "altitude"
   	  "altitudeMode" "BalloonStyle" "begin" "bgColor" "bottomFov" "Camera"
   	  "Change" "color" "colorMode" "ColorStyle" "Container" "cookie" "coordinates"
   	  "Create" "Data" "Delete" "description" "displayMode" "displayName" "Document"
  
positive.code: 	(coordinates ()
  	  (format nil "~F,~F,0" (lon m) (lat m)))))
      (cl:when (addr m)
        (kml:address () (addr m)))
      (description () (desc m))
      (style ()
        (iconstyle ()
  
negative.code: 	  "viewBoundScale" "viewFormat" "viewRefreshMode" "viewRefreshTime" "ViewVolume"
  	  "visibility"
  	  ;; "gx:Wait"
  	  "west" "when" "width"))
  
  (defmacro with-kml-document (&body children)
    `(let ((*document* (dom:create-document
  