Function: SETF NODE-NS

Source

(defun (setf node-ns) (ns elem)
  (if (consp (caar elem))
      (setf (cdaar elem) ns)
      (progn
        (setf (caar elem) (cons (caar elem) ns))
        ns)))