From e08e9bef1f6284fc8e8c0dc1b46ffe96b0ff5245 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Sun, 4 Jul 2010 03:02:30 -0400
Subject: [PATCH] 2.109: fix error in error when COMPILE-FILE returns NIL T T.

---
 asdf.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index ca007206..bbb2eb3c 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)
-- 
GitLab