[Sbcl-commits] CVS: sbcl/src/code filesys.lisp,1.69,1.70

[Richard M K. <kr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv31094/src/code

Modified Files:
	filesys.lisp 
Log Message:

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.


Index: filesys.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/filesys.lisp,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -d -r1.69 -r1.70
--- filesys.lisp	1 Jan 2008 15:07:53 -0000	1.69
+++ filesys.lisp	5 Jan 2008 14:43:13 -0000	1.70
@@ -645,7 +645,7 @@
   "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