WARNING during macroexpansion: Duplicate slot in BOA constructor

[stassats]

(defstruct (s (:constructor make-s (&key a &aux (a (or a *))))) a)
Unclear why it needs a warning, but it should be at most a style-warning.