initial commit

1 files changed, 17 insertions, 0 deletions

diff --git a/file/generics.lisp b/file/generics.lisp
new file mode 100644
index 0000000..a4dea2f
--- /dev/null
+++ b/file/generics.lisp
@@ -0,0 +1,17 @@
+;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+(declaim (optimize (speed 0) (safety 3) (debug 3)))
+
+(in-package #:music-dispensary)
+
+;; ========================================================================== ;;
+
+(defgeneric absolute-path (file-browser)
+  (:documentation "Returns the absolute path of `file-browser'."))
+
+(defgeneric update-relative-path (file-browser node)
+  (:documentation "Updates `relative-path' of `file-browser' by adding
+a `node' to it. If `node' is '..', `relative-path' is reduced a
+level."))
+
+(defgeneric directory-list (file-browser)
+  (:documentation ""))