[Openmcl-cvs-notifications] r16272 - /trunk/source/library/sockets.lisp

rme at clozure.com rme at clozure.com
Tue Sep 30 18:44:59 UTC 2014


Author: rme
Date: Tue Sep 30 18:44:59 2014
New Revision: 16272

Log:
A couple of Windows-related tweaks.

Modified:
    trunk/source/library/sockets.lisp

Modified: trunk/source/library/sockets.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/library/sockets.lisp	(original)
+++ trunk/source/library/sockets.lisp	Tue Sep 30 18:44:59 2014
@@ -1443,7 +1443,7 @@
     (setf (pref namelenp :int) +host-address-string-len+)
     #+windows-target
     (if (zerop (#_WSAAddressToStringA (sockaddr ip-socket-address)
-                                      (sockaddr-length socket-address)
+                                      (sockaddr-length ip-socket-address)
                                       (%null-ptr) namep namelenp))
         (%str-from-ptr namep (pref namelenp :int))
         (error "cannot convert host address to string, error ~A" (%get-win=
sock-error)))))
@@ -1591,6 +1591,7 @@
                                                  (parse-foreign-type '(:st=
ruct :sockaddr_un)) :sun_path)))
                                               8))
 =

+#-windows-target
 (defun copy-string-to-sockaddr_un (name sockaddr)
   "Copy a pathname to a sockaddr_un object, returning the length of
 the resulting sockaddr."



More information about the Openmcl-cvs-notifications mailing list