X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=contrib%2Fsb-bsd-sockets%2Fdoc.lisp;h=51f417fc3c03281df0334b4cbd246fa1f1230551;hb=4bc6b918bb99e8dcd17bbe6479a06e52b2d04a6c;hp=fa7a4825646e5e6765ba2980bd271f6326f7d893;hpb=335ea712981366d406c7909beb39251ec0922369;p=sbcl.git diff --git a/contrib/sb-bsd-sockets/doc.lisp b/contrib/sb-bsd-sockets/doc.lisp index fa7a482..51f417f 100644 --- 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 "SBCL BSD-Sockets API Reference~%") - (asdf:operate 'asdf:load-op 'sb-bsd-sockets) - (document-system 'sb-bsd-sockets :package :sb-bsd-sockets))) + (format t +" +") + (asdf:operate 'asdf:load-op 'sb-bsd-sockets) + (document-system 'sb-bsd-sockets :package :sb-bsd-sockets))) (start)