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