ファイルから4byteの整数を読みだす

(with-open-file (s f :direction :input :element-type 'unsigned-byte)
  (let ((x (make-array 4 :element-type 'unsigned-byte)))
    (read-sequence x s)
    x))

このようにファイルから変数xに4byte読みだすことは出来たのですが，それを4byteの整数に変換するにはどうすればよいのでしょうか．
あるいは4byteの整数として直接読み込むことが出来るのでしょうか？

補足：
wavファイルをparseするコードを自分で書こうと思って質問しました。
wavファイルのヘッダ情報はデータサイズがそれぞれ異なるので、どうしたらそれを分解できるかなと思った次第です。