显示当前目录内容的便携方式

Question

我想在restart-case 期间向用户提供有关丢失输入文件的其他信息。

有没有可移植的方式打印当前目录下的文件？

Answer 1

请查看File System Concepts，特别是directory。

例如，

• 使用(directory "~/*")获取您家中的文件列表，
• 使用(directory "~/*/")获取你家的目录列表，
• 和(directory "~/**/*") 获取您家中所有子目录中所有文件的列表

请注意，directory 可能会采用特定于实现的参数，例如 :full。

如果您正在使用asdf（您应该！），您可能想看看它附带的uiop。

PS。如果您的实现不支持在路径名中使用~ 来引用主目录，则可以改用user-homedir-pathname。

Answer 2

对 uiop 的引用是我需要的提示。这是我现在在测试用例中使用的，对我来说非常有效：

 (defun file-is-missing ()
  (let* ((cwd (uiop:getcwd))
         (files (uiop:directory-files cwd)))
    (format t "~&Current directory: ~a~%" cwd)
    (dolist (file files)
      (format t "~&~3T~a" file))
    (format t "~&Provide new file: ")
    (list (read-line))))

(defun read-file (file)
  (restart-case
      (with-open-file (s file :direction :input :if-does-not-exist :error)
        (do ((l (read-line s) (read-line s nil 'eof)))
            ((eq l 'eof) "Reached end of file.")
          (format t "~&*** ~A~%" l)))
    (New-File (filename)
      :interactive file-is-missing
      (read-file filename))))