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>