;; 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)))
(let ((link (sod-class-chain-link class)))
(unless (or (not link)
(member link (cdr (sod-class-precedence-list class))))
- (cerror* "In `~A~, chain-to class `~A' is not a proper superclass"
+ (cerror* "In `~A', chain-to class `~A' is not a proper superclass"
class link)))
;; Check that the initargs declare compatible types. Duplicate entries,