(defun real-get-method (generic-function qualifiers specializers
&optional (errorp t)
always-check-specializers)
(let ((lspec (length specializers))
(methods (generic-function-methods generic-function)))
(when (or methods always-check-specializers)
(defun real-get-method (generic-function qualifiers specializers
&optional (errorp t)
always-check-specializers)
(let ((lspec (length specializers))
(methods (generic-function-methods generic-function)))
(when (or methods always-check-specializers)