X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fwin32-sockets.lisp;h=2d1e867e959caeb968eacdaf0798cebc2019942d;hb=a7699535aaba71765335f3be0a2103b2f07941af;hp=c5dadacf82cf82677c1a10411a7a58e6192ae0de;hpb=ed1910efb36f71b5ebe33b5ffffd7195e15644de;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/win32-sockets.lisp b/contrib/sb-bsd-sockets/win32-sockets.lisp
index c5dadac..2d1e867 100644
--- a/contrib/sb-bsd-sockets/win32-sockets.lisp
+++ b/contrib/sb-bsd-sockets/win32-sockets.lisp
@@ -32,6 +32,9 @@
 ;;; prepend "win32-" to the symbol names.  Rather than break compatibility
 ;;; for users depending on those names, wrap the misnamed functions in
 ;;; correctly named ones...
+;;;
+;;; FIXME: We have a deprecation pipe these days. Remove the win32-prefixes,
+;;; and make deprecation-wrappers with the prefixes.
 (macrolet ((define-socket-fd-arg-routines (&rest names)
              `(progn
                 (declaim (inline ,@names))