> 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)