anchor.diff:    (declare (type (sa-sb 32) entropy)
              (type (integer 1 15) fracbits)
              (type non-negative-fixnum order)
  -           (optimize (speed 3)))
  +           (optimize (speed 3)
  +                     #+easy-audio-unsafe-code
  +                     (safety 0)))
     (let ((coeffs (zeros order :type '(sb 32)))
           (buffer (zeros (+ +history-size+ (ash order 1))
                          :type '(sb 32)))
  
positive.code: (defun make-predictor-updater (history delay-a delay-b adapt-a adapt-b)
    (declare (type (sa-sb 32) history)
             (type (sb 32) delay-a delay-b adapt-a adapt-b)
             (optimize (speed 3)))
    (let ((last-a   0)
          (filter-a 0)
          (filter-b 0)
  
negative.code: (defmethod predictor-update (frame
                               (version (eql 3950))
                               (channels (eql :stereo)))
    (declare (ignore version channels)
             (optimize (speed 3)))
    ;; Seems like this function cannot be applyed to all channels
    ;; independently (like APPLY-FILTER)
    (let* ((history (zeros (+ +history-size+ +predictor-size+)))
  