> This is already fixed in a local tree.
It broke the call-next-method closure:
(defgeneric foo (a b)
(:method ((x function) b)
(funcall x)))
(defgeneric bar (a b)
(:method (a b)
(print (list a b)))
(:method ((a integer) b)
(foo #'call-next-method b)))
> (bar 1 2)
(#<compiled-closure 0000000002b73d80> 2)