in progress: cd playlist program

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