anchor.diff:    (let ((frame (make-instance 'frame)))
       #+easy-audio-check-crc
       (init-crc stream)
  -    (if (/= +frame-sync-code+ (read-bits 14 stream))
  -        (error 'flac-bad-frame
  -               :format-control "Frame sync code is not 11111111111110"))
  -    (if (/= 0 (read-bit stream)) (error 'flac-bad-frame
  -					:format-control "Error reading frame"))
  +    (when (/= +frame-sync-code+ (read-bits 14 stream))
  +      (error 'flac-bad-frame
  +             :format-control "Frame sync code is not 11111111111110"))
  +    (unless (zerop (read-bit stream))
  +      (error 'flac-bad-frame
  +	     :format-control "Error reading frame"))
   
       (with-slots (blocking-strategy
                    block-size
                    sample-rate
                    channel-assignment
                    sample-size
  -                 number) frame
  -      
  +                 number)
  +        frame
         (setf blocking-strategy (get-blocking-strategy (read-bit stream))
               block-size (read-bits 4 stream)
               sample-rate (read-bits 4 stream)
               channel-assignment (get-channel-assignment (read-bits 4 stream))
               sample-size (get-sample-size (read-bits 3 stream) streaminfo))
         
  -      (if (/= 0 (read-bit stream))
  -          (error 'flac-bad-frame :format-control "Error reading frame"))
  -
  -      (setf number
  -            (if (eq blocking-strategy :fixed)
  -                (read-utf8-u32 stream)
  -                (error 'flac-bad-frame
  -                       :format-control "Variable block size not implemented yet"))
  -    
  +      (unless (zerop (read-bit stream))
  +        (error 'flac-bad-frame
  +               :format-control "Error reading frame"))
  +
  +      (unless (eq blocking-strategy :fixed)
  +        (error 'flac-bad-frame
  +               :format-control "Variable block size not implemented yet"))
  +      (setf number (read-utf8-u32 stream)
               block-size (get-block-size block-size stream)
               sample-rate (get-sample-rate sample-rate stream streaminfo)
               (frame-crc-8 frame) (read-octet stream)))
  
positive.code:                     end-pos (+ start-pos upperpoint))))))
  
      ;; Check implementation limitations
      (if (and streaminfo
               (/= (streaminfo-minblocksize streaminfo)
                   (streaminfo-maxblocksize streaminfo)))
  	(error 'flac-bad-metadata
  	       :format-control "Cannot seek with variable blocksize"))
  
      (multiple-value-bind (needed-num remainder)
  	(floor sample (if streaminfo
  
negative.code: 					(secondnum (progn (reader-position bitreader (1- second-half))
  							  (restore-sync bitreader streaminfo))))
  
  				   (when (< needed-num firstnum)
                                       (error 'flac-error :format-control "Seek error"))
  
  				   (cond 
  				    ((< secondnum needed-num)
  