(defgeneric foo (x &key))
(defmethod foo ((x integer) &rest y &key &allow-other-keys) (list x y))
(assert (null (nth-value 1 (compile nil '(lambda () (foo 10 :foo 20))))))
(defgeneric foo (x &key))
(defmethod foo ((x integer) &rest y &key &allow-other-keys) (list x y))
(assert (null (nth-value 1 (compile nil '(lambda () (foo 10 :foo 20))))))