Ignore:
Timestamp:
Jul 26, 2009, 9:33:48 AM (10 years ago)
Author:
gb
Message:

Windows version of %UTIMES: error is meaningful if result is 0.
Recompile with canonical #>SYSTEMTIME foreign type.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r12085 r12450  
    711711          (#_SystemTimeToFileTime st ft)
    712712          (let* ((result (#_SetFileTime handle (%null-ptr) (%null-ptr) ft))
    713                  (err (unless (eql 0 result) (#_GetLastError))))
     713                 (err (when (eql 0 result) (#_GetLastError))))
    714714            (#_CloseHandle handle)
    715715            (if err
Note: See TracChangeset for help on using the changeset viewer.