Function: NODE-NAME

Source

(defun node-name (elem)
  (if (consp (caar elem))
      (caaar elem)
      (caar elem)))