X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=32f7716df4fae9b2203f1ba739a27500b9fab4e6;hb=ba12c5c0420f28250ef4931b47af92c6d7963195;hp=115277ad50e7a0c8d7cf072b18c57fea000d4e4a;hpb=b67c2d7522c0b73a18e316faa2b81d7c8b187706;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 115277a..32f7716 100644
--- 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