0.8.18.14:

[sbcl.git] / contrib / sb-bsd-sockets / doc.lisp
diff --git a/contrib/sb-bsd-sockets/doc.lisp b/contrib/sb-bsd-sockets/doc.lisp

index fa7a482..51f417f 100644 (file)
--- a/contrib/sb-bsd-sockets/doc.lisp
+++ b/contrib/sb-bsd-sockets/doc.lisp
@@ -1,3 +1,8 @@
+;;;; the old documentation extracted / generator for db-sockets / sb-bsd-sockets
+;;;;
+;;;; Not used anymore as the documentation is now integrated into the user manual,
+;;;; but I didn't have heart yet to delete this. -- NS 20040801
+
  (eval-when (:load-toplevel :compile-toplevel :execute)
    (defpackage :db-doc (:use  :cl :asdf #+sbcl :sb-ext #+cmu :ext )))
  (in-package :db-doc)
@@ -219,7 +224,13 @@ symbols exported from PACKAGE"
  (defun start ()
    (with-open-file (*standard-output* "index.html" :direction :output)
        (format t "<html><head><title>SBCL BSD-Sockets API Reference</title></head><body>~%")
-    (asdf:operate 'asdf:load-op 'sb-bsd-sockets)
-    (document-system 'sb-bsd-sockets :package :sb-bsd-sockets)))
+      (format t
+"<!--
+ This is a machine-generated file (from SB-BSD-SOCKETS source code, massaged
+ by doc.lisp), so do not edit it directly.
+ -->
+")
+      (asdf:operate 'asdf:load-op 'sb-bsd-sockets)
+      (document-system 'sb-bsd-sockets :package :sb-bsd-sockets)))
  
  (start)