diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-01 18:09:50 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-01 18:09:50 -0700 |
| commit | ed8c76f566de8f6c10cdace515b3d076026258f0 (patch) | |
| tree | faf5beb60bd63094a77d45b9bd807075bf2dfc91 /src/data.lisp | |
| parent | 3d66b5420d42c47ba0c9b33e97d5ced79ce6dd3e (diff) | |
| download | consfigurator-ed8c76f566de8f6c10cdace515b3d076026258f0.tar.gz | |
replace some Scheme-style names
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
| -rw-r--r-- | src/data.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/data.lisp b/src/data.lisp index ac5c6e9..492c886 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -383,7 +383,7 @@ CONTINUE-DEPLOY* or CONTINUE-DEPLOY*-PROGRAM." (defun data-pathname (root &rest segments) (destructuring-bind (last . rest) - (nreverse (mapcar #'string->filename segments)) + (nreverse (mapcar #'string-to-filename segments)) (merge-pathnames last (reduce #'merge-pathnames (mapcar (lambda (s) (strcat s "/")) rest) :from-end t :initial-value root)))) @@ -420,7 +420,7 @@ of CONNECTION, where each entry is of the form (defmethod get-remote-cached-prerequisite-data ((connection connection)) (let ((*connection* connection)) (mapcar (lambda (line) - (mapcar #'filename->string (split-string line :separator "/"))) + (mapcar #'filename-to-string (split-string line :separator "/"))) (multiple-value-bind (out exit) (mrun :may-fail "find" (merge-pathnames "data/" @@ -444,7 +444,7 @@ always supply a value for WHERE." nconc (loop for subdir in (subdirectories dir) nconc (loop for file in (directory-files subdir) collect - (mapcar #'filename->string + (mapcar #'filename-to-string (list (lastcar (pathname-directory dir)) (lastcar |