X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-bsd-sockets%2Fconstants.lisp;h=e52aab1a5760bfb4dfd21ab18ca8764ddeb27980;hb=3b91bf9e9daf110b35dd8d5b6ca5a88e0fb0f13b;hp=e79288838f72fdf16eb2fbbd92aa8628201c7b75;hpb=f27b79bae24285a896c9b0ee1a421818eaf8e6db;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/constants.lisp b/contrib/sb-bsd-sockets/constants.lisp
index e792888..e52aab1 100644
--- a/contrib/sb-bsd-sockets/constants.lisp
+++ b/contrib/sb-bsd-sockets/constants.lisp
@@ -11,12 +11,13 @@
 ;;; then the stuff we're looking for
 ((:integer af-inet "AF_INET" "IP Protocol family")
  (:integer af-unspec "AF_UNSPEC" "Unspecified.")
-#-solaris (:integer af-local "AF_LOCAL" "Local to host (pipes and file-domain).")
- (:integer af-unix "AF_UNIX" "Old BSD name for af-local. ")
-#-(or solaris freebsd) (:integer af-file "AF_FILE" "POSIX name for af-local. ")
-#+linux (:integer af-inet6 "AF_INET6"   "IP version 6. ")
-#+linux (:integer af-route "AF_NETLINK" "Alias to emulate 4.4BSD ")
-
+ (:integer af-local
+	   #+(or sunos solaris) "AF_UNIX"
+	   #-(or sunos solaris) "AF_LOCAL"
+	   "Local to host (pipes and file-domain).")
+ #+linux (:integer af-inet6 "AF_INET6"   "IP version 6. ")
+ #+linux (:integer af-route "AF_NETLINK" "Alias to emulate 4.4BSD ")
+ 
  (:integer sock-stream "SOCK_STREAM"
            "Sequenced, reliable, connection-based byte streams.")
  (:integer sock-dgram "SOCK_DGRAM"