Changeset 12960


Ignore:
Timestamp:
Oct 9, 2009, 12:43:20 PM (15 years ago)
Author:
gz
Message:

windows (r12450)

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r12415 r12960  
    718718          (#_SystemTimeToFileTime st ft)
    719719          (let* ((result (#_SetFileTime handle (%null-ptr) (%null-ptr) ft))
    720                  (err (unless (eql 0 result) (#_GetLastError))))
     720                 (err (when (eql 0 result) (#_GetLastError))))
    721721            (#_CloseHandle handle)
    722722            (if err
Note: See TracChangeset for help on using the changeset viewer.