[log5-devel] can't follow the tutorial

[Michael Price]

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>