diff --git a/code/serve-event.lisp b/code/serve-event.lisp index bf08f694b187beb367aa078741d08add235f13b4..9e0886b21dc09b948ce150c7bf27a4f6837d50be 100644 --- a/code/serve-event.lisp +++ b/code/serve-event.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/serve-event.lisp,v 1.18 1992/12/11 00:56:24 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/serve-event.lisp,v 1.19 1992/12/14 14:39:44 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -433,7 +433,8 @@ ;; Do the select. (unix:unix-select count read-mask write-mask except-mask to-sec to-usec)) - (declare (type (unsigned-byte 32) readable writeable)) + (declare (type (unsigned-byte 32) readable) + (type (or (unsigned-byte 32) null) writeable)) ;; Now see what it was (if anything) (cond ((fixnump value) (unless (zerop value)