From 1b782a209c0380c69a2b39cb9c27ea6f0a3360c9 Mon Sep 17 00:00:00 2001 From: Linus Nordberg Date: Fri, 26 Jun 2009 17:28:22 +0200 Subject: * src/bgpstore.lisp (start-bgpstore): Print markers much more seldom. --- src/bgpstore.lisp | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/bgpstore.lisp b/src/bgpstore.lisp index 7430b8a..16cd696 100644 --- a/src/bgpstore.lisp +++ b/src/bgpstore.lisp @@ -18,12 +18,14 @@ (dolist (obj (new-entries (xml-top-elem-from-octets e))) (insert-dao obj) (incf count) - (when (= 0 (mod count 10)) (marker ".")) - (when (= 0 (mod count 100)) (marker "+")) - (when (= 0 (mod count 1000)) - (marker (format nil "~%~A: ~A " - (iso-date (get-universal-time) t) - count))))) + (if (= 0 (mod count 10000)) + (marker (format nil "~%~A: ~A " + (iso-date (get-universal-time) t) + count)) + (if (= 0 (mod count 1000)) + (marker "*") + (if (= 0 (mod count 100)) + (marker ".")))))) (close-reader)))) (defun stop-bgpstore ()) -- cgit v1.1