(case-kind :initarg :case-kind
:reader case-warning-case-kind)
(occurrences :initarg :occurrences
- :type (cons (integer 0) (cons t null))
+ :type list
:reader duplicate-case-key-warning-occurrences))
(:report
(lambda (condition stream)
do (when existing
(let ((sb!c::*current-path*
(when (boundp 'sb!c::*source-paths*)
- (or (gethash case sb!c::*source-paths*)
+ (or (sb!c::get-source-path case)
sb!c::*current-path*))))
(warn 'duplicate-case-key-warning
:key k