anchor.diff:  
     (defun valid-bit-rate-index (br-index)
       (declare #.utils:*standard-optimize-settings*)
  -
  -    (and (> (the fixnum br-index) 0) (< (the fixnum br-index) 15)))
  +    (declare (fixnum br-index))
  +
  +    (and (> br-index 0) (< br-index 15)))
   
     (defun get-bit-rate (version layer bit-rate-index)
       (declare #.utils:*standard-optimize-settings*)
  
positive.code:                          ((= (the fixnum layer) (the fixnum +layer-3+))
                            (if (= (the fixnum version) (the fixnum +mpeg-1+))
                                (+ (* 144 (/ bit-rate sample-rate)) padded)
                                (+ (* 72  (/ bit-rate sample-rate)) padded)))))))
  
  (defmethod load-frame ((me frame) &key instream (read-payload nil))
    "Load an MPEG frame from current file position.  If READ-PAYLOAD is set,
  
negative.code:           (format nil "Bands ~[4~;8~;12~;16~] to 31" mode-extension)
            (format nil "Intensity Stereo: ~[off~;on~], MS Stereo: ~[off~;on~]"
                    (ash mode-extension -1) (logand mode-extension 1)))))
  
  
  (defun get-samples-per-frame (version layer)
    (declare #.utils:*standard-optimize-settings*)
  