X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fdoc.lisp;h=b4ecd694b493f992cb37909e943e4c366a988c75;hb=ecae2f9323086c64d026d4ce719590907f486c63;hp=3c85f3ec427215ab3d51d28a86d0ca6a607b1841;hpb=10d2c05ea44ca0837091434fe2223c0c31687615;p=sbcl.git diff --git a/contrib/sb-bsd-sockets/doc.lisp b/contrib/sb-bsd-sockets/doc.lisp index 3c85f3e..b4ecd69 100644 --- a/contrib/sb-bsd-sockets/doc.lisp +++ b/contrib/sb-bsd-sockets/doc.lisp @@ -210,16 +210,22 @@ symbols exported from PACKAGE" finally (read-char s t nil t)) 'string))) (funcall *standard-sharpsign-reader* s c n)))) - (dolist (c (cclan:all-components 'db-sockets)) + (dolist (c (cclan:all-components 'sb-bsd-sockets)) (when (and (typep c 'cl-source-file) - (not (typep c 'db-sockets-system::constants-file))) + (not (typep c 'sb-bsd-sockets-system::constants-file))) (with-open-file (in (component-pathname c) :direction :input) (do-file in *standard-output*)))))) (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)