0.8.0.65:

[sbcl.git] / contrib / sb-bsd-sockets / defpackage.lisp

diff --git a/contrib/sb-bsd-sockets/defpackage.lisp b/contrib/sb-bsd-sockets/defpackage.lisp
index f424ee8..344136d 100644 (file)
--- a/contrib/sb-bsd-sockets/defpackage.lisp
+++ b/contrib/sb-bsd-sockets/defpackage.lisp
@@ -122,3 +122,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))