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

diff --git a/contrib/sb-bsd-sockets/defpackage.lisp b/contrib/sb-bsd-sockets/defpackage.lisp
index f424ee8..a99bea2 100644
--- a/contrib/sb-bsd-sockets/defpackage.lisp
+++ b/contrib/sb-bsd-sockets/defpackage.lisp
@@ -35,8 +35,9 @@
            socket-bind socket-accept socket-connect
            socket-send socket-receive socket-recv
            socket-name socket-peername socket-listen
-           socket-close socket-file-descriptor socket-make-stream
-           get-protocol-by-name
+           socket-close socket-file-descriptor
+	   socket-family socket-protocol socket-type
+	   socket-make-stream get-protocol-by-name
 
            get-host-by-name get-host-by-address
            host-ent
@@ -53,17 +54,11 @@
 	   ;; all socket options are also exported, by code in
 	   ;; sockopt.lisp
 
-           bad-file-descriptor-error
-           address-in-use-error
-           interrupted-error
-           invalid-argument-error
-           out-of-memory-error
-           operation-not-supported-error
-           operation-not-permitted-error
-           protocol-not-supported-error
-	   socket-type-not-supported-error
-           network-unreachable-error
-           
+	   socket-error
+
+	   ;; other errno-based socket errors are exported by code in
+	   ;; sockets.lisp
+	   
            make-inet-address
 
            non-blocking-mode
@@ -122,3 +117,14 @@ than "network-endian integers".  See the section on <a href="#internet"
 
 
 |#
+
+(in-package :sb-bsd-sockets)
+
+(defmethod asdf:hyperdocumentation
+    ((package (eql #.*package*)) symbol kind)
+  (declare (ignore kind))
+  (format nil "file://~A#~A"
+	  #.(namestring
+	     (merge-pathnames "index.html"
+			      (or *load-pathname* *compile-file-pathname*)))
+	  symbol))