From bf6557082686758dba3cce12eaa9479032b5f105 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Wed, 13 Nov 2013 01:17:39 -0500
Subject: [PATCH] In file-stamp cache, accept NIL as filename.

---
 cache.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/cache.lisp b/cache.lisp
index bb425e27..eb575434 100644
--- a/cache.lisp
+++ b/cache.lisp
@@ -59,6 +59,7 @@
       (set-asdf-cache-entry `(get-file-stamp ,namestring) (list stamp))))
 
   (defun get-file-stamp (file)
-    (let ((namestring (normalize-namestring file)))
-      (do-asdf-cache `(get-file-stamp ,namestring) (compute-file-stamp namestring)))))
+    (when file
+      (let ((namestring (normalize-namestring file)))
+        (do-asdf-cache `(get-file-stamp ,namestring) (compute-file-stamp namestring))))))
 
-- 
GitLab