Method: (HTML-NAME DEFMETHOD-DESCRIPTOR)

Source

(defmethod html-name ((descriptor defmethod-descriptor))
  (format nil "(~A~@[ ~A~]~{ ~A~})"
          (name descriptor)
          (qualifier descriptor)
          (remove-if #'null
                     (mapcar (lambda (argument)
                               (typecase argument
                                 (arnesi::specialized-function-argument-form
                                  (arnesi::specializer argument))))
                             (lambda-list descriptor)))))