diff options
author | Linus Nordberg <linus@nordberg.se> | 2009-06-26 17:28:22 +0200 |
---|---|---|
committer | Linus Nordberg <linus@nordberg.se> | 2009-06-26 17:28:22 +0200 |
commit | 1b782a209c0380c69a2b39cb9c27ea6f0a3360c9 (patch) | |
tree | 8b5fd3584e33629f5e3407ea6a40ec9f6802292c /src/bgpstore.lisp | |
parent | 0eca618d794e0be213c4db23cf77f17c5f234c86 (diff) |
* src/bgpstore.lisp (start-bgpstore): Print markers much more seldom.
Diffstat (limited to 'src/bgpstore.lisp')
-rw-r--r-- | src/bgpstore.lisp | 14 |
1 files changed, 8 insertions, 6 deletions
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 ()) |