Method: (MAKE-ANCHOR-NAME DESCRIPTOR)

Source

(defmethod make-anchor-name ((descriptor descriptor))
  (make-anchor-name (strcat (label-prefix descriptor)
                            "_"
                            (package-name (symbol-package (effective-name (name descriptor))))
                            "::"
                            (if (symbolp (name descriptor))
                                (symbol-name (name descriptor))
                                (format nil "(~A ~A)"
                                        (symbol-name (first (name descriptor)))
                                        (symbol-name (second (name descriptor))))))))