diff options
Diffstat (limited to 'file/generics.lisp')
| -rw-r--r-- | file/generics.lisp | 17 |
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 "")) |