Filesystem¶
(ql:quickload “cl-fad”)
Get current directory¶
(truename ".")
List a directory¶
(directory (make-pathname :directory '(:absolute "var" "log") :name :wild :type :wild))
Parsing¶
Print filename and type
(pathname-name (pathname "/some/file.txt"))
(pathname-type (pathname "/some/file.txt"))
Test if file exists¶
(probe-file "/some/file")