Changeset 8274

Timestamp:

Jan 25, 2008, 1:23:53 AM (17 years ago)

Author:

Gary Byers

Message:

Fix typos.

File:

• trunk/source/level-1/l1-sockets.lisp (modified) (1 diff)

trunk/source/level-1/l1-sockets.lisp

@@ -1225 +1225 @@
               (syscall syscalls::socketcall 3 params)))))
     (cond ((or (eql err (- #$EINPROGRESS)) (eql err (- #$EINTR)))
-           (if (process-output-wait fd timeout)
-             (- (int-getsockopt fd #$SOL_SOCKET #$SO_ERROR))
+           (if (process-output-wait sockfd timeout)
+             (- (int-getsockopt sockfd #$SOL_SOCKET #$SO_ERROR))
              (- #$ETIMEDOUT)))
           (t err))))