Changeset 10706


Ignore:
Timestamp:
Sep 11, 2008, 2:19:42 PM (11 years ago)
Author:
gb
Message:

Don't try to do #_ioctl (in UNREAD-DATA-AVAILABLE-P) on Windows.
Avoid Windows-related warning in OPTIMAL-BUFFER-SIZE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-streams.lisp

    r10684 r10706  
    33003300(defun optimal-buffer-size (fd element-type)
    33013301  #+windows-target (declare (ignore fd))
    3302   (let* ((nominal #-windows-target (or (nth-value 6 (%fstat fd)) *elements-per-buffer*))
     3302  (let* (#-windows-target (nominal (or (nth-value 6 (%fstat fd)) *elements-per-buffer*))
    33033303         (octets #+windows-target #$BUFSIZ
    33043304                 #-windows-target
     
    52565256
    52575257(defun unread-data-available-p (fd)
    5258   #+freebsd-target
     5258  #+(or freebsd-target windows-target)
    52595259  (fd-input-available-p fd 0)
    5260   #-freebsd-target
     5260  #-(or freebsd-target windows-target)
    52615261  (rlet ((arg (* :char) (%null-ptr)))
    52625262    (when (zerop (int-errno-call (#_ioctl fd #$FIONREAD :address arg)))
Note: See TracChangeset for help on using the changeset viewer.