1.0.13.16: Fix regression in FILE-AUTHOR.

* Typo. File author should return the author, not the file write-date.
  Spotted by Damien Diederen.  Add test for same.

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index fb62f42..cf4838b 100644 (file)
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -645,7 +645,7 @@ broken symlink itself."
   "Return the author of the file specified by PATHSPEC. Signal an
 error of type FILE-ERROR if no such file exists, or if PATHSPEC
 is a wild pathname."
-  (query-file-system pathspec :write-date t))
+  (query-file-system pathspec :author t))
 
 (defun file-write-date (pathspec)
   #!+sb-doc

diff --git a/tests/filesys.pure.lisp b/tests/filesys.pure.lisp
index fd62903..e77ffc1 100644 (file)
--- a/tests/filesys.pure.lisp
+++ b/tests/filesys.pure.lisp
@@ -155,3 +155,9 @@
   (let ((*default-pathname-defaults* (pathname "SYS:")))
     (assert (not (typep (sb-impl::sbcl-homedir-pathname)
                         'logical-pathname)))))
+
+(with-test (:name :file-author-stringp)
+  (assert (stringp (file-author (user-homedir-pathname)))))
+(with-test (:name :file-write-date-integerp)
+  (assert (integerp (file-write-date (user-homedir-pathname)))))
+

diff --git a/version.lisp-expr b/version.lisp-expr
index ec756fc..e5c0951 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.13.15"
+"1.0.13.16"