From bec9f571f12dba1e02be95187480376367e540c5 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Tue, 19 May 1998 02:08:49 +0000
Subject: [PATCH] Doc. fix.

---
 code/multi-proc.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp
index f5f09a238..79ffa77e0 100644
--- a/code/multi-proc.lisp
+++ b/code/multi-proc.lisp
@@ -4,7 +4,7 @@
 ;;; the Public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.28 1998/05/01 00:53:16 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.29 1998/05/19 02:08:49 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1435,9 +1435,9 @@
 ;;; Wait until FD is usable for DIRECTION.
 ;;;
 (defun process-wait-until-fd-usable (fd direction &optional timeout)
-  "Wait until FD is usable for DIRECTION. DIRECTION should be either :INPUT or
-  :OUTPUT. TIMEOUT, if supplied, is the number of seconds to wait before giving
-  up."
+  "Wait until FD is usable for DIRECTION and return True. DIRECTION should be
+  either :INPUT or :OUTPUT. TIMEOUT, if supplied, is the number of seconds to
+  wait before giving up and returing NIL."
   (declare (type kernel:index fd)
 	   (type (or real null) timeout)
 	   (optimize (speed 3)))
-- 
GitLab