X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fwin32.lisp;h=37696c3b9b873ff8bfc41ad1661edf2bdf22f8b2;hb=f2218c68ed978533fc46830ac81f4517fefe5a2a;hp=3aef59335d89c05c7d259545dc007ef8969bc75f;hpb=0e92abc181338bb9eec15eeb06f4b830ea54d746;p=sbcl.git

diff --git a/src/code/win32.lisp b/src/code/win32.lisp
index 3aef593..37696c3 100644
--- a/src/code/win32.lisp
+++ b/src/code/win32.lisp
@@ -118,7 +118,7 @@
 
     (unless (zerop (peek-console-input handle
                                        (cast buf (* t))
-                                       input-record-size (addr avail)))
+                                       1 (addr avail)))
       (return-from handle-listen (plusp avail)))
 
     ;; FIXME-SOCKETS: Try again here with WSAEventSelect in case