- (with-alien ((buf (struct wrapped_stat)))
- (syscall ("fstat_wrapper" int (* (struct wrapped_stat)))
- (%extract-stat-results (addr buf))
- fd (addr buf))))
+ (#!-win32 funcall #!+win32 sb!win32::call-with-crt-fd
+ (lambda (fd)
+ (with-alien ((buf (struct wrapped_stat)))
+ (syscall ("fstat_wrapper" int (* (struct wrapped_stat)))
+ (%extract-stat-results (addr buf))
+ fd (addr buf))))
+ fd))