(posn errno)

 	    (unix:unix-lseek (fd-stream-fd stream) 0 unix:l_incr)

 	  (declare (type (or (integer 0) null) posn))

 	  (format t "lseek returns ~D ~D~%" posn errno)

 	  (cond (posn

 		 ;; Adjust for buffered output:

 		 (decf posn (- (fd-stream-ibuf-tail stream)

 			       (fd-stream-ibuf-head stream)))

 		 (format t "Updated posn = ~D~%" posn)

 		 #+unicode

 		 (when (fd-stream-string-buffer stream)

 		       ;; octet-count doesn't use that.  Hence,

 		       ;; subtract one from string-index and

 		       ;; string-buffer-len.

 		       (progn

 			 (format t "~&ocount = ~D~%" ocount)

 			 (format t "posn = ~D~%" posn))

 		       (loop for k of-type fixnum from (1- (fd-stream-string-index stream))

 			       below (1- (fd-stream-string-buffer-len stream))

 			     do (decf posn (aref ocount k)))

 		       (progn

 			 (format t "new posn = ~D~%" posn)

 			 (format t "in-buffer-length = ~D~%" in-buffer-length)

 		   ;; string-buffer and no in-buffer, then the ibuf

 		   ;; tail and head pointers contain all the

 		   ;; information needed.

 		   (progn

 		     (format t "in-buffer-length = ~D~%" in-buffer-length)

 		     (format t "in-length = ~D~%" (fd-stream-in-length stream))

 		     (format t "fd-stream-in-index = ~D~%" (fd-stream-in-index stream))

 		     (format t "posn = ~A~%" posn))

 		   (decf posn (- (fd-stream-in-length stream)

 		 (format t "fd-stream-unread = ~S~%" (fd-stream-unread stream))

 		 (when (fd-stream-unread stream) ;;@@

 		   (decf posn))

 		 ;; Divide bytes by element size.

 		 (truncate posn (fd-stream-element-size stream)))

 		((eq errno unix:espipe)

 		 nil)