blob: a4dea2f458f5b65f8fb3de0b838eea805240f764 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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 ""))
|
