anchor.diff:               :subchunk subchunk))))
   
   (defun read-subchunks (reader)
  +  "Reads all subchunks of wav file begining with
  +   format subchunk and ending with data."
     (let (chunks)
       (tagbody
        read-subchunks-loop
  
positive.code:   (invoke-restart 'skip-subchunk c))
  
  (defun read-chunk-header (reader)
    (if (/= (bitreader.be-bignum:read-bits 32 reader)
            +wav-id+)
        (error 'wav-error :message "Not a wav stream"))
  
negative.code:   reader)
  
  (defun read-fact-subchunk (reader size)
    "Reads fact subchunk of size SIZE from reader"
    (let ((fact (make-fact-subchunk :samples-num (read-bits 32 reader))))
      (if (/= size 4) (error 'wav-error-subchunk
                             :message "Fact subchunk size is not 4. Do not know what to do"
  