(cond ((fixnump posn)
;; Adjust for buffered output: If there is any output
;; buffered, the *real* file position will be larger
(cond ((fixnump posn)
;; Adjust for buffered output: If there is any output
;; buffered, the *real* file position will be larger
(:io (values t t sb!unix:o_rdwr))
(:probe (values t nil sb!unix:o_rdonly)))
(declare (type index mask))
(:io (values t t sb!unix:o_rdwr))
(:probe (values t nil sb!unix:o_rdonly)))
(declare (type index mask))