Changeset 14813
- Timestamp:
- Jun 6, 2011, 6:57:02 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.6/source/level-1/l1-sockets.lisp
r14381 r14813 57 57 (let* ((val (gensym))) 58 58 `(let* ((,val ,form)) 59 (if ( < ,val 0)59 (if (or (< ,val 0) (eql ,val #xffffffff)) 60 60 (%get-winsock-error) 61 61 ,val)))) … … 876 876 (if (and async (< res 0) 877 877 #+windows-target 878 (= res #$WSAEWOULDBLOCK)878 (= res (- #$WSAEWOULDBLOCK)) 879 879 #-windows-target 880 880 (or (eql res (- #$ENETDOWN))
Note: See TracChangeset
for help on using the changeset viewer.