(defun node-is-in-list(list node)
  (if (eql NIL (first list))
    NIL
  (if eql node (first list)
    T
  (node-is-in-list((rest list) node)))))