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