Changeset 7735

Timestamp:

Nov 24, 2007, 6:31:52 PM (17 years ago)

Author:

Gary Byers

Message:

Fix comment describing %stat return values.

File:

• branches/working-0711/ccl/level-1/linux-files.lisp (modified) (2 diffs)

branches/working-0711/ccl/level-1/linux-files.lisp

@@ -289 +289 @@
 
 
-;;; Returns: (values t mode size mtime inode uid) on success,
-;;;          (values nil nil nil nil nil nil) otherwise
+;;; Returns: (values t mode size mtime inode uid blksize) on success,
+;;;          (values nil nil nil nil nil nil nil) otherwise
+;;; NAME should be a "native namestring", e.g,, have all lisp pathname
+;;; escaping removed.
 (defun %stat (name &optional link-p)
   (rlet ((stat :stat))
@@ -314 +316 @@
 
 (defun %unix-file-kind (path &optional check-for-link)
-  (%file-kind (nth-value 1 (%stat (native-translated-namestring path)
-                                  check-for-link))))
+  (%file-kind (nth-value 1 (%stat (native-translated-namestring path) check-for-link))))
 
 (defun %unix-fd-kind (fd)