anchor.diff:    (:export :make-atom-feed
              :make-rss-2.0-feed
              :load-feeds-from-file
  +           :load-planet-traits
              :planet
              :defplanet
              :planet-feeds
  
positive.code:                        :category category)
          *feeds*))
  
  (defparameter *planet.reader.package*
    (defpackage :planet.reader
      (:use)
      (:import-from :planet :define-feed)))
  
  (defun load-feeds-from-file (path)
    (let ((*feeds* nil)
          (*package* *planet.reader.package*))
        (load path)
        *feeds*))
  
  (defclass planet ()
    ((name :initarg :name :initform "PLANET" :accessor planet-name)
  
negative.code:       (t (error "not supported feed type")))))
  
  (defvar *feeds*)
  (defvar *planetname*)
  
  (defun define-feed (href &key category)
    (push (make-instance 'feed
  