Changeset 14813


Ignore:
Timestamp:
Jun 6, 2011, 6:57:02 PM (8 years ago)
Author:
rme
Message:

Merge r14803 (Windows socket fixes) from trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • release/1.6/source/level-1/l1-sockets.lisp

    r14381 r14813  
    5757    (let* ((val (gensym)))
    5858      `(let* ((,val ,form))
    59         (if (< ,val 0)
     59        (if (or (< ,val 0) (eql ,val #xffffffff))
    6060          (%get-winsock-error)
    6161          ,val))))
    … …  
    876876             (if (and async (< res 0)
    877877                      #+windows-target
    878                       (= res #$WSAEWOULDBLOCK)
     878                      (= res (- #$WSAEWOULDBLOCK))
    879879                      #-windows-target
    880880                      (or (eql res (- #$ENETDOWN))
Note: See TracChangeset for help on using the changeset viewer.