Fixed defect in skipped-files

diff --git a/git-repl.cl b/git-repl.cl
index a3eacf8..4eee3a3 100644 (file)
--- a/git-repl.cl
+++ b/git-repl.cl
@@ -4,11 +4,6 @@
 
 (in-package :cl-user)
 
-(defmacro defvar-public (name value &optional doc)
-  `(progn
-     (export ',name)
-     (defvar ,name ,value ,doc)))
-
 (defmacro defun-public (name arglist &body body)
   `(progn
      (export ',name)
@@ -31,8 +26,6 @@
   "Compiles the current state into an executable and installs it to *installation-file*"
   (make *installation-file*))
 
-(defvar-public *grep* "findstr" "The name of the program used for searching. On Windows this is set to \'findstr\', but it may be changed to \'grep\' for Unix systems.")
-
 (defun remove-empty (text-lines)
   "Removes every empty line from a list of lines of text"
   (remove-if #'str:emptyp text-lines))
@@ -71,7 +64,9 @@
 
 (defun-public skipped-files ()
   "Displays a list of skipped files"
-  (mapcar (lambda (x) (str:substring 2 t x)) (git "ls-files" "-v" "|" *grep* "^S")))
+  (mapcar
+    (lambda (x) (str:substring 2 t x))
+    (remove-if (lambda (x) (not (str:starts-with-p "S " x))) (git "ls-files" "-v"))))
 
 (defun-public skip-file (file-path)
   "Given a filepath, skips the specified file"