ambrevar/shell: Add delete-file*.

.local/share/common-lisp/source/ambrevar/shell.lisp

@@ -54,6 +54,11 @@ Return the first non-deleted directory."
   (uiop:ensure-all-directories-exist (list (uiop:ensure-directory-pathname path)))
   path)
 
+(export-always 'delete-file*)
+(defun delete-file* (file)
+  "Like `cl:delete-file' but does not handle wildcards."
+  (cl:delete-file (uiop:parse-native-namestring file)))
+
 (defun system-signal (pid-or-pids &key (signal 'term) options)
   "OPTIONS are PKILL options."
   ;; TODO: Is it possible to kill a group without pkill, maybe with osicat?