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