[Openmcl-cvs-notifications] r13026 - /trunk/source/level-1/linux-files.lisp

[gb at clozure.com]

Author: gb
Date: Thu Oct 15 13:14:03 2009
New Revision: 13026

Log:
Pass the magic FILE_FLAG_BACKUP_SEMANTICS option in %UTIMES, so that
we can use CreateFile to get a handle to a directory (and update its
accessed/modified times.)

Modified:
    trunk/source/level-1/linux-files.lisp

Modified: trunk/source/level-1/linux-files.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/linux-files.lisp (original)
+++ trunk/source/level-1/linux-files.lisp Thu Oct 15 13:14:03 2009
@@ -713,7 +713,7 @@
                     (logior #$FILE_SHARE_READ #$FILE_SHARE_WRITE)
                     (%null-ptr)
                     #$OPEN_EXISTING
-                    #$FILE_ATTRIBUTE_NORMAL
+                    #$FILE_FLAG_BACKUP_SEMANTICS
                     (%null-ptr))))
       (if (eql handle *windows-invalid-handle*)
         (%windows-error-disp (#_GetLastError))