diff options
| -rw-r--r-- | bin/.local/bin/scripts/lisp/cd.lisp | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/bin/.local/bin/scripts/lisp/cd.lisp b/bin/.local/bin/scripts/lisp/cd.lisp new file mode 100644 index 0000000..eb17110 --- /dev/null +++ b/bin/.local/bin/scripts/lisp/cd.lisp @@ -0,0 +1,15 @@ +(require 'asdf) + +(asdf:load-system :uiop) + +(defun read-playlist (path) + (if (probe-file (uiop:native-namestring path)) + (progn + (format t "File exists") + (uiop:read-file-lines path)) + (progn + (format t "Playlist file doesn't exist: ~a~%" (uiop:native-namestring)) + (return-from read-playlist nil)))) + +(defun move-files () + (ensure-directories-exist ())) |