(defun start-bgpstore (host port)
  (let ((reader (new-reader host port)))
    (do ((e (next-xml-blurb reader "BGP_MESSAGE")
	    (next-xml-blurb reader "BGP_MESSAGE")))
	(e)
      (dolist (obj (new-entries e))
	(print (describe obj))))))

(defun stop-bgpstore ())