[STUMP] [PATCH] Make stumpwm handle non-existent dirs in PATH when rehashing binaries.

[Lionel Flandrin]

* Catch sb-int:simple-file-error and return 0 as last modification
  time.
* Fix for sbcl only, I don't know whether clisp exhibits the same
  behaviour.
---
 wrappers.lisp |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/wrappers.lisp b/wrappers.lisp
index 2a44f49..6bab19b 100644
--- a/wrappers.lisp
+++ b/wrappers.lisp
@@ -166,7 +166,9 @@
 (defun portable-file-write-date (pathname)
   ;; clisp errors out if you run file-write-date on a directory.
   #+clisp (posix:file-stat-mtime (posix:file-stat pathname))
-  #-clisp (file-write-date pathname))
+  #-clisp  (handler-case
+              (file-write-date pathname)
+            (sb-int:simple-file-error () 0)))
 
 (defun print-backtrace (&optional (frames 100))
   "print a backtrace of FRAMES number of frames to standard-output"
-- 
1.5.6