ambrevar/storage: Add absolute-pathname.
parent
637782130f
commit
f745ec9d90
|
@ -20,11 +20,13 @@
|
|||
(first (json:decode-json-from-string
|
||||
(cmd:$cmd "findmnt -n --fstab --output TARGET --json")))))))
|
||||
|
||||
(defun absolute-pathname (path-designator)
|
||||
(uiop:ensure-pathname path-designator
|
||||
:truenamize t))
|
||||
|
||||
(defun absolute-path (path-designator)
|
||||
(uiop:native-namestring
|
||||
(uiop:truename* (if (pathnamep path-designator)
|
||||
path-designator
|
||||
(uiop:parse-native-namestring path-designator)))))
|
||||
(absolute-pathname path-designator)))
|
||||
|
||||
(defun subpath (root &rest subdirs)
|
||||
"Return merged paths as a string.
|
||||
|
|
Loading…
Reference in New Issue