X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fsockets.lisp;h=ed863ae226233c7c0230c3e69e4986fb545fce9b;hb=260de2062fca170efdac3e42491d7d866c2d2e56;hp=8cf96d5b97901827ad6e400632ae7854ee1204d2;hpb=3044d2a42fd6730eb8a6c74b4cadb0555bc14e31;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."))