diff --git a/.local/share/common-lisp/source/ambrevar/shell.lisp b/.local/share/common-lisp/source/ambrevar/shell.lisp index 4c6f4919..e914e8f2 100644 --- a/.local/share/common-lisp/source/ambrevar/shell.lisp +++ b/.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?