- (func (sb-mop:specializer-direct-generic-functions class))
- (let ((name (function-name-core
- (sb-mop:generic-function-name func))))
- (when (or (not (eq (symbol-package name) package))
- (gethash name externs))
+ (func (specializer-direct-generic-functions class))
+ (multiple-value-bind (name knownp)
+ (function-name-core (generic-function-name func))
+ (when (and knownp
+ (or (not (eq (symbol-package name) package))
+ (gethash name externs)))