February 2007 - log5-devel@common-lisp.net

[log5-devel] Announce : log5 version 0.2.1
by Gary King 20 Feb '07

20 Feb '07

As Michael Price has already noticed (sorry Michael), log5 version 0.2.1 has been released. This version brings some speed improvements (as discussed on [unCLog][log5-speed]) *and* a minor change in API. I decided that it was a bag-thing to have the name of sender be unevaluated since sometimes you want to make up the name at run time. In practice this means that calls to (start-sender foo ...) must change to (start-sender 'foo ...) Ditto for calls to stop-sender. My apologies for not making this change more clear. I'll probably do the same thing to the output and message specs (i.e., change the API, not do it unannounced! < smile >) [log5-speed]: http://metabang.com/unclogit/?p=79 -- Gary Warren King, metabang.com Cell: (413) 885 9127 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM

1 0

[log5-devel] unbound-variable error with start-sender
by Michael Price 20 Feb '07

20 Feb '07

Did I miss a message explaining the new start-sender interface? The code below worked before the latest changes to log5. Michael ************************* 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)) debugger invoked on a UNBOUND-VARIABLE in thread #<THREAD "initial thread" {A744959}>: The variable MY-TEST-SENDER is unbound. Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. (SB-INT:SIMPLE-EVAL-IN-LEXENV MY-TEST-SENDER #<NULL-LEXENV>) 0] 0

2 1

[log5-devel] seems a bit slow, uses a lot of memory
by Michael Price 05 Feb '07

05 Feb '07

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>

2 1

[log5-devel] can't follow the tutorial
by Michael Price 03 Feb '07

03 Feb '07

I noticed the log5 tutorial was up so I decided to play around a bit. Can anyone explain what the problem is in the session below? It appears I'm simply entering things in almost verbatim from the tutorial yet it isn't working. Am I just dense? ; SLIME 2007-02-02 CL-USER> (asdf:operate 'asdf:load-op :log5) ; loading system definition from ; /Users/michael/usr/share/common-lisp/systems/log5.asd into ; #<PACKAGE "ASDF0"> ; registering #<SYSTEM LOG5 {11FFEF71}> as LOG5 STYLE-WARNING: implicitly creating new generic function UPDATE-ACTIVE-CATEGORIES STYLE-WARNING: implicitly creating new generic function CREATE-HANDLE-MESSAGE-CONTEXT STYLE-WARNING: implicitly creating new generic function START-HANDLING STYLE-WARNING: implicitly creating new generic function FINISH-HANDLING STYLE-WARNING: implicitly creating new generic function SEPARATE-PROPERTIES STYLE-WARNING: implicitly creating new generic function CLOSE-SENDER STYLE-WARNING: implicitly creating new generic function HANDLE-OUTPUT NIL CL-USER> (use-package :log5) T CL-USER> (start-sender warnings-and-worse (stream-sender :location *error-output*) :category-spec (warn+) :output-spec (time message context)) ; in: LAMBDA NIL ; (OR ERROR FATAL) ; ==> ; (LET ((#:G0 ERROR)) ; (IF #:G0 #:G0 (OR FATAL))) ; ; caught WARNING: ; undefined variable: ERROR ; --> LET IF ; ==> ; (OR FATAL) ; ; caught WARNING: ; undefined variable: FATAL ; (LET ((#:G1650 WARN)) ; (IF #:G1650 #:G1650 (OR (OR ERROR FATAL)))) ; ; caught WARNING: ; undefined variable: WARN ; ; caught WARNING: ; These variables are undefined: ; ERROR FATAL WARN ; ; compilation unit finished ; caught 4 WARNING conditions ; in: LAMBDA NIL ; (OR ERROR FATAL) ; ==> ; (LET ((#:G0 ERROR)) ; (IF #:G0 #:G0 (OR FATAL))) ; ; caught WARNING: ; undefined variable: ERROR ; --> LET IF ; ==> ; (OR FATAL) ; ; caught WARNING: ; undefined variable: FATAL ; (LET ((#:G1651 WARN)) ; (IF #:G1651 #:G1651 (OR (OR ERROR FATAL)))) ; ; caught WARNING: ; undefined variable: WARN ; ; caught WARNING: ; These variables are undefined: ; ERROR FATAL WARN ; ; compilation unit finished ; caught 4 WARNING conditions ; in: LAMBDA NIL ; (OR ERROR FATAL) ; ==> ; (LET ((#:G0 ERROR)) ; (IF #:G0 #:G0 (OR FATAL))) ; ; caught WARNING: ; undefined variable: ERROR ; --> LET IF ; ==> ; (OR FATAL) ; ; caught WARNING: ; undefined variable: FATAL ; (LET ((#:G1652 WARN)) ; (IF #:G1652 #:G1652 (OR (OR ERROR FATAL)))) ; ; caught WARNING: ; undefined variable: WARN ; ; caught WARNING: ; These variables are undefined: ; ERROR FATAL WARN ; ; compilation unit finished ; caught 4 WARNING conditions ; in: LAMBDA NIL ; (OR ERROR FATAL) ; ==> ; (LET ((#:G0 ERROR)) ; (IF #:G0 #:G0 (OR FATAL))) ; ; caught WARNING: ; undefined variable: ERROR ; --> LET IF ; ==> ; (OR FATAL) ; ; caught WARNING: ; undefined variable: FATAL ; (LET ((#:G1653 WARN)) ; (IF #:G1653 #:G1653 (OR (OR ERROR FATAL)))) ; ; caught WARNING: ; undefined variable: WARN ; ; caught WARNING: ; These variables are undefined: ; ERROR FATAL WARN ; ; compilation unit finished ; caught 4 WARNING conditions ; in: LAMBDA NIL ; (OR ERROR FATAL) ; ==> ; (LET ((#:G0 ERROR)) ; (IF #:G0 #:G0 (OR FATAL))) ; ; caught WARNING: ; undefined variable: ERROR ; --> LET IF ; ==> ; (OR FATAL) ; ; caught WARNING: ; undefined variable: FATAL ; (LET ((#:G1654 WARN)) ; (IF #:G1654 #:G1654 (OR (OR ERROR FATAL)))) ; ; caught WARNING: ; undefined variable: WARN ; ; caught WARNING: ; These variables are undefined: ; ERROR FATAL WARN ; ; compilation unit finished ; caught 4 WARNING conditions ; in: LAMBDA NIL ; (OR ERROR FATAL) ; ==> ; (LET ((#:G0 ERROR)) ; (IF #:G0 #:G0 (OR FATAL))) ; ; caught WARNING: ; undefined variable: ERROR ; --> LET IF ; ==> ; (OR FATAL) ; ; caught WARNING: ; undefined variable: FATAL ; (LET ((#:G1655 WARN)) ; (IF #:G1655 #:G1655 (OR (OR ERROR FATAL)))) ; ; caught WARNING: ; undefined variable: WARN ; ; caught WARNING: ; These variables are undefined: ; ERROR FATAL WARN ; ; compilation unit finished ; caught 4 WARNING conditions ; in: LAMBDA NIL ; (OR ERROR FATAL) ; ==> ; (LET ((#:G0 ERROR)) ; (IF #:G0 #:G0 (OR FATAL))) ; ; caught WARNING: ; undefined variable: ERROR ; --> LET IF ; ==> ; (OR FATAL) ; ; caught WARNING: ; undefined variable: FATAL ; (LET ((#:G1656 WARN)) ; (IF #:G1656 #:G1656 (OR (OR ERROR FATAL)))) ; ; caught WARNING: ; undefined variable: WARN ; ; caught WARNING: ; These variables are undefined: ; ERROR FATAL WARN ; ; compilation unit finished ; caught 4 WARNING conditions ; in: LAMBDA NIL ; (OR ERROR FATAL) ; ==> ; (LET ((#:G0 ERROR)) ; (IF #:G0 #:G0 (OR FATAL))) ; ; caught WARNING: ; undefined variable: ERROR ; --> LET IF ; ==> ; (OR FATAL) ; ; caught WARNING: ; undefined variable: FATAL ; (LET ((#:G1657 WARN)) ; (IF #:G1657 #:G1657 (OR (OR ERROR FATAL)))) ; ; caught WARNING: ; undefined variable: WARN ; ; caught WARNING: ; These variables are undefined: ; ERROR FATAL WARN ; ; compilation unit finished ; caught 4 WARNING conditions ; in: LAMBDA NIL ; (OR ERROR FATAL) ; ==> ; (LET ((#:G0 ERROR)) ; (IF #:G0 #:G0 (OR FATAL))) ; ; caught WARNING: ; undefined variable: ERROR ; --> LET IF ; ==> ; (OR FATAL) ; ; caught WARNING: ; undefined variable: FATAL ; (LET ((#:G1658 WARN)) ; (IF #:G1658 #:G1658 (OR (OR ERROR FATAL)))) ; ; caught WARNING: ; undefined variable: WARN ; ; caught WARNING: ; These variables are undefined: ; ERROR FATAL WARN ; ; compilation unit finished ; caught 4 WARNING conditions ; in: LAMBDA NIL ; (OR ERROR FATAL) ; ==> ; (LET ((#:G0 ERROR)) ; (IF #:G0 #:G0 (OR FATAL))) ; ; caught WARNING: ; undefined variable: ERROR ; --> LET IF ; ==> ; (OR FATAL) ; ; caught WARNING: ; undefined variable: FATAL ; (LET ((#:G1659 WARN)) ; (IF #:G1659 #:G1659 (OR (OR ERROR FATAL)))) ; ; caught WARNING: ; undefined variable: WARN ; ; caught WARNING: ; These variables are undefined: ; ERROR FATAL WARN ; ; compilation unit finished ; caught 4 WARNING conditions ; in: LAMBDA NIL ; (OR ERROR FATAL) ; ==> ; (LET ((#:G0 ERROR)) ; (IF #:G0 #:G0 (OR FATAL))) ; ; caught WARNING: ; undefined variable: ERROR ; --> LET IF ; ==> ; (OR FATAL) ; ; caught WARNING: ; undefined variable: FATAL ; (LET ((#:G1660 WARN)) ; (IF #:G1660 #:G1660 (OR (OR ERROR FATAL)))) ; ; caught WARNING: ; undefined variable: WARN ; ; caught WARNING: ; These variables are undefined: ; ERROR FATAL WARN ; ; compilation unit finished ; caught 4 WARNING conditions #<STREAM-SENDER WARNINGS-AND-WORSE {121F6B01}> CL-USER> (log-for (warn) "This is a warning.") ; in: LAMBDA NIL ; (LOAD-TIME-VALUE (LOG5::UPDATE-CATEGORY-SPEC NIL '(WARN)) :READ-ONLY-P T) ; ; caught ERROR: ; error while parsing arguments to special form LOAD-TIME-VALUE: ; invalid number of elements in ; ((LOG5::UPDATE-CATEGORY-SPEC NIL '(WARN)) :READ-ONLY-P T) ; to satisfy lambda list ; (SB-KERNEL:FORM &OPTIONAL SB-C::READ-ONLY-P): ; between 1 and 2 expected, but 3 found ; (LET ((CATEGORY ; (LOAD-TIME-VALUE (LOG5::UPDATE-CATEGORY-SPEC NIL '#) :READ-ONLY-P T))) ; (LOG5::HANDLE-MESSAGE (LOG5::CATEGORY-ID CATEGORY) "This is a warning.")) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 ERROR condition ; printed 2 notes ; Evaluation aborted CL-USER>

2 1

[log5-devel] Log5 User's Guide
by Gary King 02 Feb '07

02 Feb '07

There is a new user's guide on the log5 website http://common-lisp.net/project/log5/user-guide.html enjoy (and please send feedback back). thanks, -- Gary Warren King, metabang.com Cell: (413) 885 9127 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM

1 0