(defmethod make-anchor-name ((method-descriptor defmethod-descriptor))
(make-anchor-name (strcat (label-prefix method-descriptor)
"_"
(package-name (symbol-package (effective-name (name method-descriptor))))
"::"
(html-name method-descriptor))))
Source Context