X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fdoc.lisp;h=fa7a4825646e5e6765ba2980bd271f6326f7d893;hb=40bf78b47ea89b15698adb9c550efa4cbacafeb7;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..fa7a482 100644
--- a/contrib/sb-bsd-sockets/doc.lisp
+++ b/contrib/sb-bsd-sockets/doc.lisp
@@ -210,9 +210,9 @@ 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*))))))