From 142166df54eda65925921799a4bb3e7f6cdaba48 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Tue, 6 Feb 2018 21:42:54 -0700 Subject: initial commit --- file/generics.lisp | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 file/generics.lisp (limited to 'file/generics.lisp') 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 "")) -- cgit v1.3