diff options
| author | Linus Nordberg <linus@nordu.net> | 2009-06-26 07:03:12 +0200 |
|---|---|---|
| committer | Linus Nordberg <linus@nordu.net> | 2009-06-26 07:03:12 +0200 |
| commit | 196b75d094fdbb56866781e7c79acdc23c052b9d (patch) | |
| tree | 0a333be8a773d4dae748365300efb1a48055e7fd | |
| parent | 7be08db4bf7bce7f31004225c2eb0777c6d51e86 (diff) | |
Tell that you start.
| -rw-r--r-- | src/bgpstore.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/bgpstore.lisp b/src/bgpstore.lisp index 2c3b8ed..aa25b87 100644 --- a/src/bgpstore.lisp +++ b/src/bgpstore.lisp @@ -5,6 +5,7 @@ (defun start-bgpstore (host port) (with-connection *db-spec* (let ((reader (new-reader host port))) + (format t "bgpstore started~%") (do ((e (next-xml-blurb reader "BGP_MESSAGE") (next-xml-blurb reader "BGP_MESSAGE"))) ((null e)) |