anchor.diff:    (when schedule
       (apply #'planet-reset-scheduler 
              planet
  -           schedule))
  -;;  (tg:finalize planet #'planet-clear)
  -  )
  +           schedule)))
   
   (defmacro defplanet (planet-name &key name alternate-href self-href (schedule '(:hour *)) feeds feeds-path)
     (when (and (boundp planet-name)
  
positive.code:       (iter (for feed in feeds)
              (ignore-errors
                (xtree:with-parse-document (rawfeed (puri:parse-uri (feed-url feed)))
                  (update-feed-class feed rawfeed)
                  (xtree:with-object (nodeset (find-feed-entities feed rawfeed))
                    (iter (for rawentry in-nodeset (xpath:xpath-object-value nodeset))
                          (ignore-errors
                            (push (parse-feed-entry feed rawentry)
                                  entries)))))))
        (setf syndicate-feed
              (xfactory:with-document-factory ((atom "http://www.w3.org/2005/Atom"))
                (atom :feed
                      (atom :title
  
negative.code:                                         (xfactory:text content))
                                    (atom :author
                                          (atom :name (xfactory:text (author-name author)))
                                          (atom :uri (xfactory:text (author-uri author)))))))))))
      (when syndicate
        (setf (slot-value planet 'syndicate-feed)
              syndicate))
      (warn "planet-load-all end")
      ))
                                
  (defun planet-stop-scheduler (planet)
    "Stop planet scheduler"
  