X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=4ad861f281e1ddd3d79c08a01b83e3c411de6c74;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=cb64f81c352994b944a0160fd860fdfecd569f58;hpb=95a6db7329b91dd90d165dd4057b9b5098d34aa2;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index cb64f81..4ad861f 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -749,9 +749,8 @@
 		    ,num-descriptors ,read-fds ,write-fds ,exception-fds
 		    (if timeout-secs (alien-sap (addr tv)) (int-sap 0))))))
 
-;;; Unix-select accepts sets of file descriptors and waits for an event
+;;; UNIX-SELECT accepts sets of file descriptors and waits for an event
 ;;; to happen on one of them or to time out.
-
 (defmacro num-to-fd-set (fdset num)
   `(if (fixnump ,num)
        (progn