--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -881,6 +881,7 @@
              (%extract-stat-results (addr buf))
              fd (addr buf))))
 
+#!-win32
 (defun fd-type (fd)
   (declare (type unix-fd fd))
   (let ((fmt (logand