1.0.48.19: another go at fixing the win32 build

[sbcl.git] / src / code / unix.lisp

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 115277a..32f7716 100644 (file)
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -881,6 +881,7 @@ corresponds to NAME, or NIL if there is none."
              (%extract-stat-results (addr buf))
              fd (addr buf))))
 
+#!-win32
 (defun fd-type (fd)
   (declare (type unix-fd fd))
   (let ((fmt (logand