X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fserve-event.lisp;h=b1a6eedca9364c9cb1c87ec298b35e29b459c06c;hb=54da325f13fb41669869aea688ae195426c0e231;hp=8fd5321f8e5ea3f9a658b8a0d820c1633bd8d9d1;hpb=378a5e39c182b5c3ba14da80c157ad2c0021b25f;p=sbcl.git

diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp
index 8fd5321..b1a6eed 100644
--- a/src/code/serve-event.lisp
+++ b/src/code/serve-event.lisp
@@ -66,7 +66,7 @@
 ;;; Add a new handler to *descriptor-handlers*.
 (defun add-fd-handler (fd direction function)
   #!+sb-doc
-  "Arange to call FUNCTION whenever FD is usable. DIRECTION should be
+  "Arrange to call FUNCTION whenever FD is usable. DIRECTION should be
   either :INPUT or :OUTPUT. The value returned should be passed to
   SYSTEM:REMOVE-FD-HANDLER when it is no longer needed."
   (unless (member direction '(:input :output))
@@ -90,8 +90,8 @@
 ;;; Search *descriptor-handlers* for any reference to fd, and nuke 'em.
 (defun invalidate-descriptor (fd)
   #!+sb-doc
-  "Remove any handers refering to fd. This should only be used when attempting
-  to recover from a detected inconsistancy."
+  "Remove any handlers referring to FD. This should only be used when attempting
+  to recover from a detected inconsistency."
   (with-descriptor-handlers
     (setf *descriptor-handlers*
           (delete fd *descriptor-handlers*