(defun descriptor-link-id (descriptor) (safe-latex-id (strcat "link:" (string (label-prefix descriptor)) ":" (princ-to-string (name descriptor)))))