(defun seekablep (stream)
  (let ((pos (file-position stream)))
    (and pos
         (unwind-protect
              (file-position stream (if (zerop pos)
                                        (1+ pos)
                                        (1- pos)))
           (file-position stream pos)))))