ЛИСП: Как читать содержимое из файла и записывать его в другой файл?

Я хочу написать функцию, которая имеет в качестве аргументов имена двух файлов и копирует содержимое из первого файла во второй.

До сих пор я написал функцию, которая читает из файла:

(defun readFile (name)
 (let ((in (open name)))
  (format t "~a~%" (read-line in))
   (close in)))

И функция, которая записывает строку в файл:

(defun writeFile (name content)
(with-open-file (stream name
    :direction :output
    :if-exists :overwrite
    :if-does-not-exist :create)
(format stream content)))

Следуя инструкциям Savantes, я снова написал функцию, и вот как она выглядит:

(defun read-write-to-file (input-file output-file)
(WITH-OPEN-FILE (output-stream output-file
         :direction :output
         :if-exists :new-version
         :if-does-not-exist :create)
  (WITH-OPEN-FILE (input-stream input-file
                 :direction :input)
        (FORMAT output-stream "~a" (READ input-stream nil 'eof))
)))

Теперь единственная проблема заключается в том, что он не читает весь файл.

Ответы на вопрос(5)

Ваш ответ на вопрос