1 files changed, 9 insertions, 0 deletions
diff --git a/src/bgpstore.lisp b/src/bgpstore.lisp
new file mode 100644
index 0000000..2afa210
--- /dev/null
+++ b/src/bgpstore.lisp
@@ -0,0 +1,9 @@
+(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 ())