;; Make sure direct slots have distinct names.
(find-duplicates (simple-complain "slot name" #'sod-slot-name)
- (sod-class-slots class) :key #'sod-slot-name)
+ (sod-class-slots class)
+ :key #'sod-slot-name
+ :test #'equal)
;; Make sure there's at most one initializer for each slot.
(flet ((check-initializer-list (list kind)
in class `~A'"
kind slot class)
(simple-previous previous)))
- list :key #'sod-initializer-slot)))
+ list
+ :key #'sod-initializer-slot)))
(check-initializer-list (sod-class-instance-initializers class)
"instance")
(check-initializer-list (sod-class-class-initializers class)
;; Make sure messages have distinct names.
(find-duplicates (simple-complain "message name" #'sod-message-name)
- (sod-class-messages class) :key #'sod-message-name)
+ (sod-class-messages class)
+ :key #'sod-message-name
+ :test #'equal)
;; Make sure methods are sufficiently distinct.
(find-duplicates (lambda (method previous)
class)
(simple-previous previous))
(sod-class-methods class)
- :key #'sod-method-function-name :test #'equal)
+ :key #'sod-method-function-name
+ :test #'equal)
;; Make sure superclasses have distinct nicknames.
(let ((state (make-inheritance-path-reporter-state class)))