wrapper nwrapper)
(do* ((slots (slot-value class 'slots) (cdr slots))
(dupes nil))
- ((null slots)
+ ((null slots)
(when dupes
(style-warn
"~@<slot names with the same SYMBOL-NAME but ~
class dupes)))
(let* ((slot (car slots))
(oslots (remove (slot-definition-name slot) (cdr slots)
- :test #'string/=
+ :test #'string/=
:key #'slot-definition-name)))
(when oslots
(pushnew (cons (slot-definition-name slot)