From 79a10d2b0588f94b0d454a6276bbf0c984c5d23d Mon Sep 17 00:00:00 2001
From: BardofSprites <89086143+BardofSprites@users.noreply.github.com>
Date: Mon, 30 Sep 2024 22:49:07 -0400
Subject: in progress: cd playlist program

---
 bin/.local/bin/scripts/lisp/cd.lisp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 bin/.local/bin/scripts/lisp/cd.lisp

(limited to 'bin/.local')

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 ()))
-- 
cgit v1.2.3