define-condition/report style warnings

[sds]

compiling this:

(define-condition code (error)
  ((proc :reader code-proc :initarg :proc :initform nil)
   (mesg :type (or null simple-string) :reader code-mesg
         :initarg :mesg :initform nil)
   (args :type list :reader code-args :initarg :args :initform nil))
  (:documentation "An error in the user code.")
  (:report (lambda (cc out)
             (declare (stream out))
             (format out "[~s]~@[ ~?~]" (code-proc cc) (code-mesg cc)
                     (code-args cc)))))

results in these:

; in: DEFINE-CONDITION CODE
; (PORT:CODE-ARGS PORT::CC)
;
; caught STYLE-WARNING:
; undefined function: CODE-ARGS

; (PORT:CODE-MESG PORT::CC)
;
; caught STYLE-WARNING:
; undefined function: CODE-MESG

; (PORT:CODE-PROC PORT::CC)
;
; caught STYLE-WARNING:
; undefined function: CODE-PROC
;
; compilation unit finished
; Undefined functions:
; CODE-ARGS CODE-MESG CODE-PROC
; caught 3 STYLE-WARNING conditions

why?

[Nikodemus Siivola (nikodemus)]

Fixed in my pending tree.

[Nikodemus Siivola (nikodemus)]

f37fd91 fix style-warnings for condition slot-accessors used in :REPORT