Commit 81c21a0e authored by Zach Beane's avatar Zach Beane
Browse files

Improve semantics of EXCL.OSI:STAT.

Should signal an error if file in question does not exist.
parent d8223174
...@@ -177,7 +177,9 @@ values otherwise." ...@@ -177,7 +177,9 @@ values otherwise."
(file-kind native-namestring)) (file-kind native-namestring))
(defun excl.osi:stat (file) (defun excl.osi:stat (file)
(list :mtime (stat-mtime file))) (if (probe-file file)
(list :mtime (stat-mtime file))
(error "~A does not exist" file)))
(defun excl.osi:stat-mtime (stat) (defun excl.osi:stat-mtime (stat)
(getf stat :mtime)) (getf stat :mtime))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment