X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fsockets.lisp;fp=contrib%2Fsb-bsd-sockets%2Fsockets.lisp;h=ed863ae226233c7c0230c3e69e4986fb545fce9b;hb=a4c87f2654b9bd5b5f35cb84ddf12e40bbadc407;hp=8cf96d5b97901827ad6e400632ae7854ee1204d2;hpb=1975bd0492ed33de669f92d8c03d75bca19ed011;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/sockets.lisp b/contrib/sb-bsd-sockets/sockets.lisp
index 8cf96d5..ed863ae 100644
--- a/contrib/sb-bsd-sockets/sockets.lisp
+++ b/contrib/sb-bsd-sockets/sockets.lisp
@@ -475,7 +475,7 @@ request an input stream and get an output stream in response\)."
                        (or (socket-error-symbol c) (socket-error-errno c))
                        #+cmu (sb-unix:get-unix-error-msg num)
                        #+sbcl
-                       #+win32 (sb-win32::get-last-error-message num)
+                       #+win32 (sb-win32:format-system-message num)
                        #-win32 (sb-int:strerror num)))))
   (:documentation "Common base class of socket related conditions."))