[log5-devel] seems a bit slow, uses a lot of memory

[Michael Price]

Here is a copy of some experimenting I did tonight with log5 using
sbcl on an iBook. The times seem a bit slow and the memory use is
disturbing.

Michael

; SLIME 2007-02-04
CL-USER> (require :log5)
NIL
CL-USER> (use-package :log5)
T
CL-USER> (start-sender my-test-sender
                       (stream-sender :location *standard-output*)
                       :category-spec (warn+)
                       :output-spec (time message))
#<STREAM-SENDER MY-TEST-SENDER {1391A821}>
CL-USER> (log-for (warn) "This is a warning.")
3379622724 "This is a warning."
NIL
CL-USER> (time (log-for (warn) "This is a warning."))
3379622770 "This is a warning."
Evaluation took:
  0.059 seconds of real time
  0.04454 seconds of user run time
  0.005597 seconds of system run time
  0 calls to %EVAL
  0 page faults and
  712,184 bytes consed.
NIL
CL-USER> (log-for (info) "This is some info.")
NIL
CL-USER> (time (log-for (info) "This is some info."))
Evaluation took:
  0.118 seconds of real time
  0.0883 seconds of user run time
  0.010775 seconds of system run time
  0 calls to %EVAL
  0 page faults and
  1,412,120 bytes consed.
NIL
CL-USER> (time (log-for (info) "This is some info."))
Evaluation took:
  0.321 seconds of real time
  0.254798 seconds of user run time
  0.045183 seconds of system run time
  [Run times include 0.201 seconds GC run time.]
  0 calls to %EVAL
  0 page faults and
  1,376,048 bytes consed.
NIL
CL-USER> (time (log-for (info) "This is some info."))
Evaluation took:
  0.12 seconds of real time
  0.085579 seconds of user run time
  0.018949 seconds of system run time
  0 calls to %EVAL
  0 page faults and
  1,387,352 bytes consed.
NIL
CL-USER> (time (log-for (info) "This is some info."))
Evaluation took:
  0.121 seconds of real time
  0.086583 seconds of user run time
  0.020286 seconds of system run time
  0 calls to %EVAL
  0 page faults and
  1,374,936 bytes consed.
NIL
CL-USER> (defcategory foo)
#<category 13: FOO>
CL-USER> (defcategory bar)
#<category 14: BAR>
CL-USER> (defcategory foobar (and foo bar))
#<category 15: FOOBAR -> (AND FOO BAR)>
CL-USER> (start-sender my-test-sender2
                       (stream-sender :location *standard-output*)
                       :category-spec (foobar)
                       :output-spec (time message))
#<STREAM-SENDER MY-TEST-SENDER2 {13BE23B9}>
CL-USER> (log-for (foobar) "FOOBAR!")
3379622899 "FOOBAR!"
NIL
CL-USER> (time (log-for (foobar) "FOOBAR!"))
3379622909 "FOOBAR!"
Evaluation took:
  0.367 seconds of real time
  0.253236 seconds of user run time
  0.031588 seconds of system run time
  0 calls to %EVAL
  0 page faults and
  4,804,736 bytes consed.
NIL
CL-USER> (time (log-for (foobar) "FOOBAR!"))
3379622912 "FOOBAR!"
Evaluation took:
  0.379 seconds of real time
  0.277797 seconds of user run time
  0.03945 seconds of system run time
  [Run times include 0.049 seconds GC run time.]
  0 calls to %EVAL
  0 page faults and
  4,939,712 bytes consed.
NIL
CL-USER>