From ed8c76f566de8f6c10cdace515b3d076026258f0 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 1 Apr 2022 18:09:50 -0700 Subject: replace some Scheme-style names Signed-off-by: Sean Whitton --- src/data.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/data.lisp') 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 -- cgit v1.2.3