Changeset 15232

Timestamp:

Mar 4, 2012, 2:57:10 PM (13 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/source/level-1/linux-files.lisp (modified) (1 diff)

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

@@ -2198 +2198 @@
                   (nth 4 b-stat))))
       #+windows-target
-      (rlet ((a-info #>BY_HANDLE_FILE_INFORMATION)
-             (b-info #>BY_HANDLE_FILE_INFORMATION))
+      (%stack-block ((a-info (record-length #>BY_HANDLE_FILE_INFORMATION))
+                     (b-info (record-length #>BY_HANDLE_FILE_INFORMATION)))
         (unless (or (eql 0 (#_GetFileInformationByHandle (%int-to-ptr a) a-info))
                     (eql 0 (#_GetFileInformationByHandle (%int-to-ptr b) b-info)))