Ignore:
Timestamp:
Jan 25, 2008, 9:23:53 AM (12 years ago)
Author:
gb
Message:

Fix typos.

File:
1 edited

Legend:

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

    r8265 r8274  
    12251225              (syscall syscalls::socketcall 3 params)))))
    12261226    (cond ((or (eql err (- #$EINPROGRESS)) (eql err (- #$EINTR)))
    1227            (if (process-output-wait fd timeout)
    1228              (- (int-getsockopt fd #$SOL_SOCKET #$SO_ERROR))
     1227           (if (process-output-wait sockfd timeout)
     1228             (- (int-getsockopt sockfd #$SOL_SOCKET #$SO_ERROR))
    12291229             (- #$ETIMEDOUT)))
    12301230          (t err))))
Note: See TracChangeset for help on using the changeset viewer.