From 0ceae48371c993c15b261c42ca19bd1b73852f94 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 14 Dec 1992 14:39:44 +0000 Subject: [PATCH] Weaken type declaration on third SELECT result, since it can be NIL if we get an error. --- code/serve-event.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/code/serve-event.lisp b/code/serve-event.lisp index bf08f694b..9e0886b21 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) -- GitLab