Function: SETF NODE-NAME

Source

(defun (setf node-name) (name elem)
  (setf (caar elem) name))