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 "<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)