diff --git a/asdf.lisp b/asdf.lisp index ca00720641265d80478515b622c98f56400e1da6..bbb2eb3ccdc5f562e5e39c39b782e8a9be380f9c 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -70,7 +70,7 @@ (eval-when (:load-toplevel :compile-toplevel :execute) (let* ((asdf-version ;; the 1+ helps the version bumping script discriminate - (subseq "VERSION:2.108" (1+ (length "VERSION")))) + (subseq "VERSION:2.109" (1+ (length "VERSION")))) (existing-asdf (find-package :asdf)) (vername '#:*asdf-version*) (versym (and existing-asdf @@ -2962,7 +2962,7 @@ effectively disabling the output translation facility." :defaults x)) (defun delete-file-if-exists (x) - (when (probe-file x) + (when (and x (probe-file x)) (delete-file x))) (defun compile-file* (input-file &rest keys &key &allow-other-keys)