Changeset 15232


Ignore:
Timestamp:
Mar 4, 2012, 10:57:10 PM (7 years ago)
Author:
gb
Message:

SAME-FD-P on Windows: don't use RLET so early in the loading sequence.

File:
1 edited

Legend:

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

    r15230 r15232  
    21982198                  (nth 4 b-stat))))
    21992199      #+windows-target
    2200       (rlet ((a-info #>BY_HANDLE_FILE_INFORMATION)
    2201              (b-info #>BY_HANDLE_FILE_INFORMATION))
     2200      (%stack-block ((a-info (record-length #>BY_HANDLE_FILE_INFORMATION))
     2201                     (b-info (record-length #>BY_HANDLE_FILE_INFORMATION)))
    22022202        (unless (or (eql 0 (#_GetFileInformationByHandle (%int-to-ptr a) a-info))
    22032203                    (eql 0 (#_GetFileInformationByHandle (%int-to-ptr b) b-info)))
Note: See TracChangeset for help on using the changeset viewer.