X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=32f7716df4fae9b2203f1ba739a27500b9fab4e6;hb=152c97de336af584a9b133207a772c704e3245cf;hp=115277ad50e7a0c8d7cf072b18c57fea000d4e4a;hpb=5385e8af2751efb74c274dcf649289e0082e745c;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