From 056eb03bdbfeea9a656e781e2d4328c3b9be1a09 Mon Sep 17 00:00:00 2001 From: Richard M Kreuter Date: Sat, 5 Jan 2008 14:43:13 +0000 Subject: [PATCH] 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. --- src/code/filesys.lisp | 2 +- tests/filesys.pure.lisp | 6 ++++++ version.lisp-expr | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp index fb62f42..cf4838b 100644 --- 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 --- 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 --- 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" -- 1.7.10.4