You don't need to "clear" the list, just use the "3" code with Start_list to delete old contents and start new list:
(defun add_other ()
(setq open_file (open datafile "a")); open file
(write-line add_info open_file)
(close open_file)
(reload "files_list" file_content_list)
)
(defun reload (files_list file_content_list)
(setq ofile (open datafile "r"))
(while
(setq curline (read-line ofile))
(setq file_content_list (cons curline file_content_list))
)
(close ofile)
(start_list "files_list" 3) ; use the 3 code to start new list
(mapcar 'add_list file_content_list)
(end_list)
)