Remove backup files

Author: ruricolist

path.lisp

@@ -74,10 +74,14 @@
                          (drop pos system-name)
                          "/"))
                root))
-           (system-lisp-files (directory
-                               (make-pathname :defaults root
-                                              :name :wild
-                                              :type "lisp"))))
+           (system-lisp-files
+             (directory
+              (make-pathname :defaults root
+                             :name :wild
+                             :type "lisp")))
+           (system-lisp-files
+             (remove-if (op (string^= "#." (pathname-name _)))
+                        system-list-files)))
       (loop for file in system-lisp-files
             for script-name = (pathname-name file)
             for subsystem-name = (string+ system-name "/" script-name)