blob: 5abc34807fc552f6b87b766ce415bb1a2c7720cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(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")))
((null e))
(dolist (obj (new-entries (xml-top-elem-from-octets e)))
(insert-dao obj)))
(close-reader)))
(defun stop-bgpstore ())
|
