(remove-duplicates
(nconc
(mapcan #'function-keywords methods)
- (mapcar #'keywordicate gf.keys))))))
+ (mapcar #'keyword-spec-name gf.keys))))))
(when all-keys
(setq keysp t)
`(&key ,@all-keys))))
(make-dfun-lambda-list nargs applyp)
(make-fast-method-call-lambda-list nargs applyp))))
(multiple-value-bind (cfunction constants)
- (get-fun1 `(lambda
+ (get-fun1 `(named-lambda (gf-dispatch ,name)
,arglist
,@(unless function-p
`((declare (ignore .pv. .next-method-call.))))