便攜式顯示當前目錄的內容

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))))