X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fwin32.lisp;h=37696c3b9b873ff8bfc41ad1661edf2bdf22f8b2;hb=f2218c68ed978533fc46830ac81f4517fefe5a2a;hp=fb3d5c120f82a65ee22642fdded497b52a65b520;hpb=9a82b26397de09d67372f34158090c2284fd1411;p=sbcl.git

diff --git a/src/code/win32.lisp b/src/code/win32.lisp
index fb3d5c1..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
@@ -564,7 +564,7 @@
 #!-sb-fluid
 (declaim (inline get-time-of-day))
 (defun get-time-of-day ()
-  "Return the number of seconds and microseconds since the beginning og the
+  "Return the number of seconds and microseconds since the beginning of the
 UNIX epoch: January 1st 1970."
   (with-alien ((system-time filetime))
     (syscall (("GetSystemTimeAsFileTime" 4) void (* filetime))