Skip to content
Snippets Groups Projects
Commit c4cd431c authored by rtoy's avatar rtoy
Browse files

Fix a few compiler warnings pointing to real issues:

o The error message in CONNECT-TO-INET-SOCKET could be getting the
  wrong message if closing the socket causes an error.

o The function (FLET DOTTED-QUAD CONNECT-TO-INET-SOCKET/NON-BLOCKING)
  was not using its argument.  (No actual change in behavior because
  all uses of DOTTED-QUAD were with an arg of ADDR anyway.)
parent 172f99d7
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.49 2006/03/14 02:18:28 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.50 2006/03/14 15:22:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -366,9 +366,9 @@ struct in_addr {
:format-control "Error connecting socket to [~A:~A]: ~A"
:format-arguments (list (if (stringp host)
host
(ip-string addr))
(ip-string addr))
port
(unix:get-unix-error-msg))
errmsg)
:errno errno)))
socket)))
......@@ -419,7 +419,7 @@ struct in_addr {
(logandc2 (unix:unix-fcntl socket unix:f-getfl 0)
unix:fndelay)))
(dotted-quad (ipaddr)
(let ((naddr (htonl addr)))
(let ((naddr (htonl ipaddr)))
(format nil "~D.~D.~D.~D"
(ldb (byte 8 0) naddr)
(ldb (byte 8 8) naddr)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment