diff options
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 ()) |