From 54d75297ea8b190a3b91bd662deb61e670e9f9ef Mon Sep 17 00:00:00 2001 From: David Bremner Date: Thu, 5 May 2022 08:29:20 -0300 Subject: add package CONSFIGURATOR.DATA.UTIL This package is intended to provide a home for utility functions used by multiple data sources. Initially move a local function from CONSFIGURATOR.DATA.FILES-TREE, and slightly generalize it to support an extension or TYPE argument. Note that the goal of LITERAL-DATA-PATHNAME is to map (IDEN1 IDEN2) to existing paths in a user-maintained file hierarchy. This is quite different from DATA-PATHNAME, which escapes various characters to map to a safe internal filename, effectively flattening a directory hierarchy into a single level. Signed-off-by: David Bremner --- src/package.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/package.lisp') diff --git a/src/package.lisp b/src/package.lisp index 88bfb2f..df59785 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -1002,6 +1002,9 @@ (:local-nicknames (#:user #:consfigurator.property.user) (#:lxc #:consfigurator.property.lxc))) + (package :consfigurator.data.util + (:export #:literal-data-pathname)) + (package :consfigurator.data.asdf) (package :consfigurator.data.pgp @@ -1016,4 +1019,5 @@ (package :consfigurator.data.local-file) - (package :consfigurator.data.files-tree)) + (package :consfigurator.data.files-tree + (:use #:consfigurator.data.util))) -- cgit v1.2.3