diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-05-05 09:34:09 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-05-05 12:34:27 -0700 |
| commit | 8a7e0d5a18b4f38ed350d248b1ecdc37a0f042a3 (patch) | |
| tree | 390bdb2d4c20ee4073313b81cdfe16defce4959c /src/data | |
| parent | bad55cfe4135606caacb6fd9fc7bb231516a2f88 (diff) | |
| download | consfigurator-8a7e0d5a18b4f38ed350d248b1ecdc37a0f042a3.tar.gz | |
import PARSE-UNIX-NAMESTRING and DIRECTORY-PATHNAME-P
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data')
| -rw-r--r-- | src/data/util.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/data/util.lisp b/src/data/util.lisp index 871eb9a..aa0451f 100644 --- a/src/data/util.lisp +++ b/src/data/util.lisp @@ -29,12 +29,12 @@ pathname components are removed. The intended use case is to map IDEN1 and IDEN2 to files in a user-maintained hierarchy under BASE-PATH. In particular IDEN2 and (if prefixed by '_') IDEN1 may contain '/' characters to map into multiple levels of directory." - (let ((base-dir (uiop:parse-unix-namestring base-path :ensure-directory t))) - (unless (uiop:directory-pathname-p base-dir) + (let ((base-dir (parse-unix-namestring base-path :ensure-directory t))) + (unless (directory-pathname-p base-dir) (simple-program-error "~A does not specify a directory" base-dir)) (merge-pathnames (uiop:relativize-pathname-directory - (uiop:parse-unix-namestring iden2 :type type)) + (parse-unix-namestring iden2 :type type)) (merge-pathnames (uiop:relativize-pathname-directory (ensure-directory-pathname iden1)) |