From c8d7662f8c31fb5e48d2b0337de13c47f21fa547 Mon Sep 17 00:00:00 2001 From: Saba Saba Date: Thu, 9 Feb 2023 12:26:19 -0500 Subject: [PATCH] Added quotes to skip-file and no-skip-file filepaths --- git-repl.cl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/git-repl.cl b/git-repl.cl index 4eee3a3..57581c2 100644 --- a/git-repl.cl +++ b/git-repl.cl @@ -26,6 +26,9 @@ "Compiles the current state into an executable and installs it to *installation-file*" (make *installation-file*)) +(defun add-quotes (text) + (format nil "\"~a\"" text)) + (defun remove-empty (text-lines) "Removes every empty line from a list of lines of text" (remove-if #'str:emptyp text-lines)) @@ -70,11 +73,11 @@ (defun-public skip-file (file-path) "Given a filepath, skips the specified file" - (git "update-index" "--skip-worktree" file-path)) + (git "update-index" "--skip-worktree" (add-quotes file-path))) (defun-public no-skip-file (file-path) "Given a filepath, unskips the specified file" - (git "update-index" "--no-skip-worktree" file-path)) + (git "update-index" "--no-skip-worktree" (add-quotes file-path))) (defun-public skip-modified () "Skips every modified file" -- 2.20.1