Skip to content
Snippets Groups Projects
Commit 0ceae483 authored by ram's avatar ram
Browse files

Weaken type declaration on third SELECT result, since it can be NIL if we get

an error.
parent 9dd0d7a0
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -433,7 +433,8 @@
;; Do the select. ;; Do the select.
(unix:unix-select count read-mask write-mask except-mask (unix:unix-select count read-mask write-mask except-mask
to-sec to-usec)) 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) ;; Now see what it was (if anything)
(cond ((fixnump value) (cond ((fixnump value)
(unless (zerop value) (unless (zerop value)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment