diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index 964b7617181d8dc7956da4df2084dcb55eafafb9..e450c5baa85ce376a584796f3049ea25bb013e23 100644 --- a/code/fd-stream.lisp +++ b/code/fd-stream.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.6 1990/09/06 19:40:38 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.7 1990/09/24 17:22:32 wlott Exp $ ;;; ;;; Streams for UNIX file descriptors. ;;; @@ -852,7 +852,9 @@ (loop (multiple-value-bind (count errno) - (mach:unix-select (1+ fd) (ash 1 fd) 0 0 0) + (mach:unix-select (1+ (fd-stream-fd stream)) + (ash 1 (fd-stream-fd stream)) + 0 0 0) (cond ((eql count 1) (do-input stream) (setf (fd-stream-ibuf-head stream) 0)